[Koha-cvs] CVS: koha/C4 Biblio.pm,1.115.2.2,1.115.2.3
Paul POULAIN
tipaul at users.sourceforge.net
Thu Feb 10 14:14:42 CET 2005
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19054/C4
Modified Files:
Tag: rel_2_2
Biblio.pm
Log Message:
* multiple main authors are now correctly handled in simple (non-MARC) view
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.2
retrieving revision 1.115.2.3
diff -C2 -r1.115.2.2 -r1.115.2.3
*** Biblio.pm 11 Jan 2005 16:02:35 -0000 1.115.2.2
--- Biblio.pm 10 Feb 2005 13:14:36 -0000 1.115.2.3
***************
*** 1137,1147 ****
( $tagfield, $subfield ) = MARCfind_marc_from_kohafield("",$kohatable.".".$kohafield,$frameworkcode);
foreach my $field ( $record->field($tagfield) ) {
! if ( $field->subfield($subfield) ) {
! if ( $result->{$kohafield} ) {
! $result->{$kohafield} .= " | " . $field->subfield($subfield);
! }
! else {
! $result->{$kohafield} = $field->subfield($subfield);
! }
}
}
--- 1137,1152 ----
( $tagfield, $subfield ) = MARCfind_marc_from_kohafield("",$kohatable.".".$kohafield,$frameworkcode);
foreach my $field ( $record->field($tagfield) ) {
! if ( $field->subfields ) {
! my @subfields = $field->subfields();
! foreach my $subfieldcount ( 0 .. $#subfields ) {
! if ($subfields[$subfieldcount][0] eq $subfield) {
! if ( $result->{$kohafield} ) {
! $result->{$kohafield} .= " | " . $subfields[$subfieldcount][1];
! }
! else {
! $result->{$kohafield} = $subfields[$subfieldcount][1];
! }
! }
! }
}
}
***************
*** 1305,1310 ****
foreach my $subtitlefield (@subtitlefields) {
my @subtitlesubfields = $subtitlefield->subfield($tagsubfield);
foreach my $subfieldcount (0..$#subtitlesubfields) {
! OLDmodsubtitle($dbh,$oldbiblionumber,$subtitlesubfields[$subfieldcount]);
}
}
--- 1310,1320 ----
foreach my $subtitlefield (@subtitlefields) {
my @subtitlesubfields = $subtitlefield->subfield($tagsubfield);
+ # delete & create subtitle again because OLDmodsubtitle can't handle new subtitles
+ # between 2 modifs
+ $dbh->do("delete from bibliosubtitle where biblionumber=$oldbiblionumber");
foreach my $subfieldcount (0..$#subtitlesubfields) {
! foreach my $subtit(split /\||#/,$subtitlesubfields[$subfieldcount]) {
! OLDnewsubtitle($dbh,$oldbiblionumber,$subtit);
! }
}
}
***************
*** 2627,2630 ****
--- 2637,2643 ----
# $Id$
# $Log$
+ # Revision 1.115.2.3 2005/02/10 13:14:36 tipaul
+ # * multiple main authors are now correctly handled in simple (non-MARC) view
+ #
# Revision 1.115.2.2 2005/01/11 16:02:35 tipaul
# in catalogue, modifs were not stored properly the non-MARC item DB. Affect only libraries without barcodes.
More information about the Koha-cvs
mailing list