From 8f319c4ab360163c68e02c338db02dfe3e4fded4 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Thu, 11 May 2006 14:15:51 +0000
Subject: [PATCH] Adding version string

---
 C4/Biblio.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 26ec368036..48b35b7155 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -26,7 +26,8 @@ use MARC::Record;
 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);
 
@@ -3005,6 +3006,9 @@ Paul POULAIN paul.poulain@free.fr
 
 # $Id$
 # $Log$
+# Revision 1.115.2.52  2006/05/11 14:15:51  rangi
+# Adding version string
+#
 # Revision 1.115.2.51  2006/04/17 13:50:59  tgarip1957
 # Missing semicolon
 #
-- 
2.39.5