Commit a3135df4 authored by toins's avatar toins

really minor change : POD fixing, indentation & some compilation warn removing.

parent 1b77b07b
......@@ -838,7 +838,7 @@ Issue a book. Does no check, they are done in CanBookBeIssued. If we reach this
=item C<$date> contains the max date of return. calculated if empty.
AddIssue does the following things :
- step 0: check that there is a borrowernumber & a barcode provided
- step 01: check that there is a borrowernumber & a barcode provided
- check for RENEWAL (book issued & being issued to the same patron)
- renewal YES = Calculate Charge & renew
- renewal NO =
......@@ -870,9 +870,9 @@ if ($borrower and $barcode and $barcodecheck ne '0'){
# get biblioinformation for this item
my $biblio = GetBiblioFromItemNumber($item->{itemnumber});
#
# check if we just renew the issue.
#
#
# check if we just renew the issue.
#
if ( $actualissue->{borrowernumber} eq $borrower->{'borrowernumber'} ) {
# we renew, do we need to add some charge ?
my ( $charge, $itemtype ) = GetIssuingCharges(
......
This diff is collapsed.
......@@ -118,6 +118,7 @@ push @EXPORT, qw(
&fixup_cardnumber
&checkcardnumber
);
=item SearchMember
($count, $borrowers) = &SearchMember($searchstring, $type,$category_type);
......@@ -440,8 +441,7 @@ sub patronflags {
}
$flags{'ODUES'} = \%flaginfo;
}
my @itemswaiting =
GetReservesFromBorrowernumber( $patroninformation->{'borrowernumber'},'W' );
my @itemswaiting = GetReservesFromBorrowernumber( $patroninformation->{'borrowernumber'},'W' );
my $nowaiting = scalar @itemswaiting;
if ( $nowaiting > 0 ) {
my %flaginfo;
......
......@@ -54,8 +54,8 @@ push @EXPORT, qw(
#Output
push @EXPORT, qw(
&output_html_with_http_headers
);
&output_html_with_http_headers
);
#FIXME: this is a quick fix to stop rc1 installing broken
......
......@@ -272,9 +272,10 @@ sub GetReservesFromItemnumber {
=item GetReservesFromBorrowernumber
$borrowerreserv = GetReservesFromBorrowernumber($borrowernumber,$tatus);
TODO :: Descritpion
$borrowerreserv = GetReservesFromBorrowernumber($borrowernumber,$tatus);
TODO :: Descritpion
=cut
sub GetReservesFromBorrowernumber {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment