gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 7921: Software error while placing order 

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Passed-QA-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Liz Rea <liz@catalyst.net.nz>
This commit is contained in:
Fridolyn SOMERS 2012-10-31 14:26:31 +01:00 committed by Liz Rea
parent 0a23401f38
commit a7277ff28a
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C4/Biblio.pm
View File

@ -1148,13 +1148,14 @@ sub GetUsedMarcStructure($) {
($MARCfield,$MARCsubfield)=GetMarcFromKohaField($kohafield,$frameworkcode);
Returns the MARC fields & subfields mapped to the koha field
for the given frameworkcode
for the given frameworkcode or default framework if $frameworkcode is missing
=cut
sub GetMarcFromKohaField {
my ( $kohafield, $frameworkcode ) = @_;
return (0, undef) unless $kohafield and defined $frameworkcode;
my $kohafield = shift;
my $frameworkcode = shift || '';
return (0, undef) unless $kohafield;
my $relations = C4::Context->marcfromkohafield;
if ( my $mf = $relations->{$frameworkcode}->{$kohafield} ) {
return @$mf;

2
acqui/neworderempty.pl
View File

@ -440,7 +440,7 @@ sub MARCfindbreeding {
if ( C4::Context->preference("z3950NormalizeAuthor")
and C4::Context->preference("z3950AuthorAuthFields") )
{
my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author");
my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author", '');
# my $summary = C4::Context->preference("z3950authortemplate");
my $auth_fields =