[Koha-cvs] koha/C4 Search.pm [rel_2_2]

paul poulain paul at koha-fr.org
Tue Jul 25 14:33:04 CEST 2006


CVSROOT:	/cvsroot/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	paul poulain <tipaul>	06/07/25 12:33:04

Modified files:
	C4             : Search.pm 

Log message:
	add - to isbn only if there is an isbn !

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.99.2.12&r2=1.99.2.13

Patches:
Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.99.2.12
retrieving revision 1.99.2.13
diff -u -b -r1.99.2.12 -r1.99.2.13
--- Search.pm	7 Jul 2006 20:37:28 -0000	1.99.2.12
+++ Search.pm	25 Jul 2006 12:33:04 -0000	1.99.2.13
@@ -30,7 +30,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.99.2.12 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.99.2.13 $' =~ /\d+/g;
           shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -1541,7 +1541,7 @@
 	chop $data->{'additionalauthors'};
 	chop $data->{'additionalauthors'};
 	# handle ISBN : reintroduce - if there are none
-	$data->{'isbn'} = DisplayISBN($data->{'isbn'});
+	$data->{'isbn'} = DisplayISBN($data->{'isbn'}) if $data->{isbn};
 	$sth->finish;
 	return($data);
 } # sub bibdata





More information about the Koha-cvs mailing list