From 2ae0459df0f9ab72eb5f3640134888137f64b98e Mon Sep 17 00:00:00 2001 From: toins Date: Thu, 26 Jul 2007 15:14:05 +0000 Subject: [PATCH] removing warn compilation. --- C4/AuthoritiesMarc.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index dba3ca7716..eb2e6047d0 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -27,7 +27,7 @@ use C4::Search; use vars qw($VERSION @ISA @EXPORT); # set the version for version checking -$VERSION = 0.01; +$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); }; @ISA = qw(Exporter); @EXPORT = qw( @@ -319,12 +319,14 @@ counts Usage of Authid in bibliorecords. =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); @@ -1192,6 +1194,9 @@ Paul POULAIN paul.poulain@free.fr # $Id$ # $Log$ +# 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 # -- 2.39.5