rel_3_0 moved to HEAD

[koha.git] / C4 / Review.pm

diff --git a/C4/Review.pm b/C4/Review.pm
index 345a3bd..e49de4f 100644 (file)
--- a/C4/Review.pm
+++ b/C4/Review.pm
@@ -23,7 +23,8 @@ use C4::Context;
 
 use vars qw($VERSION @ISA @EXPORT);
 
-$VERSION = 0.01;
+# set the version for version checking
+$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -47,8 +48,6 @@ Review.pm provides many routines for manipulating reviews.
 
 =head1 FUNCTIONS
 
-=over 2
-
 =cut
 
 @ISA    = qw(Exporter);
@@ -99,7 +98,6 @@ sub updatereview {
     my $sth = $dbh->prepare($query);
     $sth->execute( $review, 0, $borrowernumber, $biblionumber );
     $sth->finish();
-
 }
 
 sub numberofreviews {
@@ -151,7 +149,6 @@ sub getallreviews {
 
 Takes a reviewid and marks that review approved
 
-
 =cut
 
 sub approvereview {
@@ -171,7 +168,6 @@ sub approvereview {
 
 Takes a reviewid and deletes it
 
-
 =cut
 
 sub deletereview {
@@ -187,8 +183,6 @@ sub deletereview {
 1;
 __END__
 
-=back
-
 =head1 AUTHOR
 
 Koha Team