[Koha-cvs] koha/C4 AuthoritiesMarc.pm

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        07/07/26 15:14:06

Modified files:
        C4             : AuthoritiesMarc.pm 

Log message:
        removing warn compilation.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/AuthoritiesMarc.pm?cvsroot=koha&r1=1.49&r2=1.50

Patches:
Index: AuthoritiesMarc.pm
===================================================================
RCS file: /sources/koha/koha/C4/AuthoritiesMarc.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- AuthoritiesMarc.pm  16 Jul 2007 15:45:28 -0000      1.49
+++ AuthoritiesMarc.pm  26 Jul 2007 15:14:05 -0000      1.50
@@ -27,7 +27,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = 0.01;
+$VERSION = do { my @v = '$Revision: 1.50 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw(Exporter);
 @EXPORT = qw(
@@ -319,12 +319,14 @@
 =back
 
 =cut
+
 sub CountUsage {
     my ($authid) = @_;
     if (C4::Context->preference('NoZebra')) {
         # Read the index Koha-Auth-Number for this authid and count the lines
         my $result = C4::Search::NZanalyse("an=$authid");
-        return scalar split /;/,$result;
+        my @tab = split /;/,$result;
+        return scalar @tab;
     } else {
         ### ZOOM search here
         my $oConnection=C4::Context->Zconn("biblioserver",1);
@@ -1190,8 +1192,11 @@
 
 =cut
 
-# $Id: AuthoritiesMarc.pm,v 1.49 2007/07/16 15:45:28 hdl Exp $
+# $Id: AuthoritiesMarc.pm,v 1.50 2007/07/26 15:14:05 toins Exp $
 # $Log: AuthoritiesMarc.pm,v $
+# Revision 1.50  2007/07/26 15:14:05  toins
+# removing warn compilation.
+#
 # Revision 1.49  2007/07/16 15:45:28  hdl
 # Adding Summary for UNIMARC authorities
 #