[Koha-cvs] CVS: koha/C4 Biblio.pm,1.63,1.64

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv21826/C4

Modified Files:
        Biblio.pm 
Log Message:
fix for 536 (subtitle error)

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.63
retrieving revision 1.64
diff -C2 -r1.63 -r1.64
*** Biblio.pm   1 Oct 2003 13:25:49 -0000       1.63
--- Biblio.pm   6 Oct 2003 15:20:51 -0000       1.64
***************
*** 2,5 ****
--- 2,8 ----
  # $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...
***************
*** 1132,1135 ****
--- 1135,1139 ----
        }
        # 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
***************
*** 1253,1257 ****
                }
        }
!       ($tagfield,$tagsubfield) = 
MARCfind_marc_from_kohafield($dbh,"bibliosubtitle.subtitle");
        my @subtitlefields = $record->field($tagfield);
        foreach my $subtitlefield (@subtitlefields) {
--- 1257,1261 ----
                }
        }
!       ($tagfield,$tagsubfield) = 
MARCfind_marc_from_kohafield($dbh,"bibliosubtitle.title");
        my @subtitlefields = $record->field($tagfield);
        foreach my $subtitlefield (@subtitlefields) {