[Koha-cvs] CVS: koha/C4 Biblio.pm,1.115.2.2,1.115.2.3

[Paul POULAIN]

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.