Bug 7941 : Fix version numbers in modules

[koha_fer] / C4 / SIP / ILS / Transaction / Hold.pm

diff --git a/C4/SIP/ILS/Transaction/Hold.pm b/C4/SIP/ILS/Transaction/Hold.pm
index 6965753..4644b73 100644 (file)
--- a/C4/SIP/ILS/Transaction/Hold.pm
+++ b/C4/SIP/ILS/Transaction/Hold.pm
@@ -16,7 +16,7 @@ use C4::Biblio;               # GetBiblioFromItemNumber GetBiblioItemByBiblioNumber
 use vars qw($VERSION @ISA);
 
 BEGIN {
-    $VERSION = 1.01;
+    $VERSION = 3.07.00.049;
            @ISA = qw(ILS::Transaction);
 }
 
@@ -49,7 +49,7 @@ sub do_hold {
                $self->ok(0);
                return $self;
        }
-       my $borrower = GetMember( $self->{patron}->id, 'cardnumber');
+       my $borrower = GetMember( 'cardnumber'=>$self->{patron}->id);
        unless ($borrower) {
                $self->screen_msg('No borrower matches cardnumber "' . $self->{patron}->id . '".');
                $self->ok(0);
@@ -82,7 +82,7 @@ sub drop_hold {
                $self->ok(0);
                return $self;
        }
-       my $borrower = GetMember( $self->{patron}->id, 'cardnumber');
+       my $borrower = GetMember( 'cardnumber'=>$self->{patron}->id);
        unless ($borrower) {
                $self->screen_msg('No borrower matches cardnumber "' . $self->{patron}->id . '".');
                $self->ok(0);
@@ -104,7 +104,7 @@ sub change_hold {
                $self->ok(0);
                return $self;
        }
-       my $borrower = GetMember( $self->{patron}->id, 'cardnumber');
+       my $borrower = GetMember( 'cardnumber'=>$self->{patron}->id);
        unless ($borrower) {
                $self->screen_msg('No borrower matches cardnumber "' . $self->{patron}->id . '".');
                $self->ok(0);
@@ -132,8 +132,8 @@ sub change_hold {
 1;
 __END__
 
-# 10 friggin arguments
-AddReserve($branch,$borrowernumber,$biblionumber,$constraint,$bibitems,$priority,$notes,$title,$checkitem,$found)
+# 11 friggin arguments
+AddReserve($branch,$borrowernumber,$biblionumber,$constraint,$bibitems,$priority,$startdate,$notes,$title,$checkitem,$found)
 
 ModReserve($rank, $biblio, $borrower, $branch , $itemnumber)