X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FAuthoritiesMarc.pm;h=eb2e6047d04f211fa1148245ab6e9ab59565d2dd;hb=2ae0459df0f9ab72eb5f3640134888137f64b98e;hp=dba3ca771684bf6dea09fb69a03dfd93824e4203;hpb=9395334e6970a7cd91901f73de3a142e1b3c5199;p=koha.git

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
 #