Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

fix for 536 (subtitle error)

Browse source
This commit is contained in:
tipaul 2003-10-06 15:20:51 +00:00
parent 518d879544
commit 31a590d4ad
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
C4/Biblio.pm
View file

@ -1,6 +1,9 @@
package C4::Biblio;
# $Id$
# $Log$
# Revision 1.64 2003/10/06 15:20:51 tipaul
# fix for 536 (subtitle error)
#
# Revision 1.63 2003/10/01 13:25:49 tipaul
# seems a char encoding problem modified something in char_decode sub... changing back to something that works...
#
@ -1131,6 +1134,7 @@ sub MARCmarc2koha {
$result = &MARCmarc2kohaOneField($sth,"items",$field,$record,$result);
}
# additional authors : specific
$result = &MARCmarc2kohaOneField($sth,"bibliosubtitle","subtitle",$record,$result);
$result = &MARCmarc2kohaOneField($sth,"additionalauthors","additionalauthors",$record,$result);
# modify copyrightdate to keep only the 1st year found
my $temp = $result->{'copyrightdate'};
@ -1252,7 +1256,7 @@ sub NEWnewbiblio {
OLDmodaddauthor($dbh,$oldbibnum,$addiauthsubfields[$subfieldcount]);
}
}
($tagfield,$tagsubfield) = MARCfind_marc_from_kohafield($dbh,"bibliosubtitle.subtitle");
($tagfield,$tagsubfield) = MARCfind_marc_from_kohafield($dbh,"bibliosubtitle.title");
my @subtitlefields = $record->field($tagfield);
foreach my $subtitlefield (@subtitlefields) {
my @subtitlesubfields = $subtitlefield->subfield($tagsubfield);