[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.