[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Search.pm
From: |
Henri-Damien LAURENT |
Subject: |
[Koha-cvs] koha/C4 Search.pm |
Date: |
Tue, 22 May 2007 08:54:21 +0000 |
CVSROOT: /cvsroot/koha
Module name: koha
Changes by: Henri-Damien LAURENT <hdl> 07/05/22 08:54:21
Modified files:
C4 : Search.pm
Log message:
Changing GetMarcStructure signature.
Deleting first parameter $dbh
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&r1=1.142&r2=1.143
Patches:
Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.142
retrieving revision 1.143
diff -u -b -r1.142 -r1.143
--- Search.pm 10 May 2007 14:45:15 -0000 1.142
+++ Search.pm 22 May 2007 08:54:21 -0000 1.143
@@ -25,7 +25,7 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.142 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.143 $' =~ /\d+/g;
shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
};
@@ -74,7 +74,7 @@
sub findseealso {
my ( $dbh, $fields ) = @_;
- my $tagslib = GetMarcStructure( $dbh, 1 );
+ my $tagslib = GetMarcStructure( 1 );
for ( my $i = 0 ; $i <= $#{$fields} ; $i++ ) {
my ($tag) = substr( @$fields[$i], 1, 3 );
my ($subfield) = substr( @$fields[$i], 4, 1 );