[Koha-cvs] koha/cataloguing additem.pl addbiblio.pl

Henri-Damien LAURENT laurenthdl at alinto.com
Tue May 22 10:50:47 CEST 2007


CVSROOT:	/cvsroot/koha
Module name:	koha
Changes by:	Henri-Damien LAURENT <hdl>	07/05/22 08:50:47

Modified files:
	cataloguing    : additem.pl addbiblio.pl 

Log message:
	Changing GetMarcStructure signature.
	Deleting first parameter $dbh

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/additem.pl?cvsroot=koha&r1=1.16&r2=1.17
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/addbiblio.pl?cvsroot=koha&r1=1.24&r2=1.25

Patches:
Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/cataloguing/additem.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- additem.pl	27 Apr 2007 14:00:48 -0000	1.16
+++ additem.pl	22 May 2007 08:50:47 -0000	1.17
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: additem.pl,v 1.16 2007/04/27 14:00:48 hdl Exp $
+# $Id: additem.pl,v 1.17 2007/05/22 08:50:47 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -66,7 +66,7 @@
 # find itemtype
 my $frameworkcode = &GetFrameworkCode($biblionumber);
 
-my $tagslib = &GetMarcStructure($dbh,1,$frameworkcode);
+my $tagslib = &GetMarcStructure(1,$frameworkcode);
 my $record = GetMarcBiblio($biblionumber);
 # warn "==>".$record->as_formatted;
 my $oldrecord = TransformMarcToKoha($dbh,$record);

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/cataloguing/addbiblio.pl,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- addbiblio.pl	27 Apr 2007 14:00:49 -0000	1.24
+++ addbiblio.pl	22 May 2007 08:50:47 -0000	1.25
@@ -1,6 +1,6 @@
 #!/usr/bin/perl 
 
-# $Id: addbiblio.pl,v 1.24 2007/04/27 14:00:49 hdl Exp $
+# $Id: addbiblio.pl,v 1.25 2007/05/22 08:50:47 hdl Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -505,7 +505,7 @@
             -multiple => 0 );
 $template->param( framework => $framework, breedingid => $breedingid);
 
-$tagslib = &GetMarcStructure($dbh,1,$frameworkcode);
+$tagslib = &GetMarcStructure(1,$frameworkcode);
 my $record=-1;
 my $encoding="";
 $record = GetMarcBiblio( $biblionumber ) if ($biblionumber);





More information about the Koha-cvs mailing list