[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) {