[Koha-cvs] koha/catalogue ISBDdetail.pl MARCdetail.pl

[Henri-Damien LAURENT]

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

Modified files:
	catalogue      : ISBDdetail.pl MARCdetail.pl 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/catalogue/ISBDdetail.pl?cvsroot=koha&r1=1.8&r2=1.9
http://cvs.savannah.gnu.org/viewcvs/koha/catalogue/MARCdetail.pl?cvsroot=koha&r1=1.12&r2=1.13

Patches:
Index: ISBDdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/catalogue/ISBDdetail.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- ISBDdetail.pl	24 Apr 2007 13:54:29 -0000	1.8
+++ ISBDdetail.pl	22 May 2007 08:55:47 -0000	1.9
@@ -86,7 +86,7 @@
 
 my $biblionumber = $query->param('biblionumber');
 my $itemtype     = &GetFrameworkCode($biblionumber);
-my $tagslib      = &GetMarcStructure( $dbh, 1, $itemtype );
+my $tagslib      = &GetMarcStructure( 1, $itemtype );
 
 my $record = GetMarcBiblio($biblionumber);
 

Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/catalogue/MARCdetail.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- MARCdetail.pl	21 May 2007 08:44:18 -0000	1.12
+++ MARCdetail.pl	22 May 2007 08:55:47 -0000	1.13
@@ -100,7 +100,7 @@
   ;    # if set to 1, then don't insert links, it's just to show the biblio
 my $subscriptionid = $query->param('subscriptionid');
 
-my $tagslib = &GetMarcStructure($dbh,1,$frameworkcode);
+my $tagslib = &GetMarcStructure(1,$frameworkcode);
 
 my $record = GetMarcBiblio($biblionumber);
 
@@ -295,7 +295,7 @@
         push( @big_array, \%this_row );
     }
 }
-my ($holdingbrtagf,$holdingbrtagsubf) = &GetMarcFromKohaField($dbh,"items.holdingbranch",$frameworkcode);
+my ($holdingbrtagf,$holdingbrtagsubf) = &GetMarcFromKohaField("items.holdingbranch",$frameworkcode);
 @big_array = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}} @big_array;
 
 #fill big_row with missing datas