koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] koha/C4 Biblio.pm


From: Henri-Damien LAURENT
Subject: [Koha-cvs] koha/C4 Biblio.pm
Date: Tue, 22 May 2007 08:51:20 +0000

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

Modified files:
        C4             : Biblio.pm 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&r1=1.206&r2=1.207

Patches:
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.206
retrieving revision 1.207
diff -u -b -r1.206 -r1.207
--- Biblio.pm   21 May 2007 08:44:17 -0000      1.206
+++ Biblio.pm   22 May 2007 08:51:19 -0000      1.207
@@ -33,7 +33,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.206 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.207 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw( Exporter );
 
@@ -1415,10 +1415,9 @@
 
 =over 4
 
-$res = GetMarcStructure($dbh,$forlibrarian,$frameworkcode);
+$res = GetMarcStructure($forlibrarian,$frameworkcode);
 
 Returns a reference to a big hash of hash, with the Marc structure fro the 
given frameworkcode
-$dbh : DB handler
 $forlibrarian  :if set to 1, the MARC descriptions are the librarians ones, 
otherwise it's the public (OPAC) ones
 $frameworkcode : the framework code to read
 
@@ -1429,7 +1428,8 @@
 =cut
 
 sub GetMarcStructure {
-    my ( $dbh, $forlibrarian, $frameworkcode ) = @_;
+    my ( $forlibrarian, $frameworkcode ) = @_;
+    my $dbh=C4::Context->dbh;
     $frameworkcode = "" unless $frameworkcode;
     my $sth;
     my $libfield = ( $forlibrarian eq 1 ) ? 'liblibrarian' : 'libopac';
@@ -2490,7 +2490,7 @@
     my $frameworkcode = &GetFrameworkCode( $bibnum );
     my ( $itemtagfield, $itemtagsubfield ) =
       &GetMarcFromKohaField( "items.itemnumber", $frameworkcode );
-    my $tagslib = &GetMarcStructure( $dbh, 1, $frameworkcode );
+    my $tagslib = &GetMarcStructure( 1, $frameworkcode );
     my $itemrecord = GetMarcItem( $bibnum, $itemnum) if ($itemnum);
     my @loop_data;
     my $authorised_values_sth =
@@ -3918,8 +3918,12 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.206 2007/05/21 08:44:17 btoumi Exp $
+# $Id: Biblio.pm,v 1.207 2007/05/22 08:51:19 hdl Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.207  2007/05/22 08:51:19  hdl
+# Changing GetMarcStructure signature.
+# Deleting first parameter $dbh
+#
 # Revision 1.206  2007/05/21 08:44:17  btoumi
 # add security when u delete biblio :
 # u must delete linked items before delete biblio




reply via email to

[Prev in Thread] Current Thread [Next in Thread]