use C4::Overdues;
use C4::Reserves;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
+our ($VERSION,@ISA,@EXPORT,@EXPORT_OK);
$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
FROM borrowers
WHERE borrowernumber = ?
";
- my $sth = $dbh->prepare($query);
+ $sth = $dbh->prepare($query);
$sth->execute($borrowernumber);
$sth->finish;
&logaction(C4::Context->userenv->{'number'},"MEMBERS","DELETE",$borrowernumber,"")
use C4::Search;
use C4::Circulation;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,%EXPORT_TAGS);
+
my $library_name = C4::Context->preference("LibraryName");
# set the version for version checking
=head1 DESCRIPTION
-this modules provides somes functions to deal with reservations.
+ this modules provides somes functions to deal with reservations.
=head1 FUNCTIONS
&GetReservesFromItemnumber
&GetReservesFromBiblionumber
&GetReservesFromBorrowernumber
- GetReservesForBranch
- GetReservesToBranch
+ &GetReservesForBranch
+ &GetReservesToBranch
&GetReserveCount
&GetReserveFee
- GetReservesForBranch
- GetReservesToBranch
+ &GetReservesForBranch
+ &GetReservesToBranch
&GetOtherReserves
&ModReserveFill
=item AddReserve
-AddReserve($branch,$borrowernumber,$biblionumber,$constraint,$bibitems,$priority,$notes,$title,$checkitem,$found)
+ AddReserve($branch,$borrowernumber,$biblionumber,$constraint,$bibitems,$priority,$notes,$title,$checkitem,$found)
=cut
return ( $#results + 1, \@results );
}
+=item GetReservesFromItemnumber
+
+ ( $reservedate, $borrowernumber, $branchcode ) = GetReservesFromItemnumber($itemnumber);
+
+ TODO :: Description here
+
+=cut
+
sub GetReservesFromItemnumber {
my ( $itemnumber ) = @_;
my $dbh = C4::Context->dbh;
return ( $reservedate, $borrowernumber, $branchcode );
}
+=item GetReservesFromBorrowernumber
+
+ $borrowerreserv = GetReservesFromBorrowernumber($borrowernumber,$tatus);
+
+ TODO :: Descritpion
+=cut
+
sub GetReservesFromBorrowernumber {
my ( $borrowernumber, $status ) = @_;
my $dbh = C4::Context->dbh;
return ( $messages, $nextreservinfo );
}
+=item GetReserveFee
+
+$fee = GetReserveFee($borrowernumber,$biblionumber,$constraint,$biblionumber);
+
+Calculate the fee for a reserve
+
+=cut
+
sub GetReserveFee {
my ($borrowernumber, $biblionumber, $constraint, $bibitems ) = @_;
}
}
}
-
- # print "fee $fee";
return $fee;
}
-=head2 GetReservesToBranch
+=item GetReservesToBranch
@transreserv = GetReservesToBranch( $frombranch );
return (@transreserv);
}
-=head2 GetReservesForBranch
+=item GetReservesForBranch
@transreserv = GetReservesForBranch($frombranch);
return @results;
}
-=item GetReserveFee
-
-$fee = GetReserveFee($borrowernumber,$biblionumber,$constraint,$biblionumber);
-
-Calculate the fee for a reserve
-
-=cut
-
=back
=head1 AUTHOR