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

[Henri-Damien LAURENT]

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);