|
Lines 578-584
C<$issuingimpossible> and C<$needsconfirmation> are some hashref.
Link Here
|
| 578 |
|
578 |
|
| 579 |
=over 4 |
579 |
=over 4 |
| 580 |
|
580 |
|
| 581 |
=item C<$borrower> hash with borrower informations (from GetMemberDetails) |
581 |
=item C<$borrower> hash with borrower informations (from GetMember or GetMemberDetails) |
| 582 |
|
582 |
|
| 583 |
=item C<$barcode> is the bar code of the book being issued. |
583 |
=item C<$barcode> is the bar code of the book being issued. |
| 584 |
|
584 |
|
|
Lines 858-864
sub CanBookBeIssued {
Link Here
|
| 858 |
elsif ($issue->{borrowernumber}) { |
858 |
elsif ($issue->{borrowernumber}) { |
| 859 |
|
859 |
|
| 860 |
# issued to someone else |
860 |
# issued to someone else |
| 861 |
my $currborinfo = C4::Members::GetMemberDetails( $issue->{borrowernumber} ); |
861 |
my $currborinfo = C4::Members::GetMember( borrowernumber => $issue->{borrowernumber} ); |
| 862 |
|
862 |
|
| 863 |
# warn "=>.$currborinfo->{'firstname'} $currborinfo->{'surname'} ($currborinfo->{'cardnumber'})"; |
863 |
# warn "=>.$currborinfo->{'firstname'} $currborinfo->{'surname'} ($currborinfo->{'cardnumber'})"; |
| 864 |
$needsconfirmation{ISSUED_TO_ANOTHER} = 1; |
864 |
$needsconfirmation{ISSUED_TO_ANOTHER} = 1; |
|
Lines 872-878
sub CanBookBeIssued {
Link Here
|
| 872 |
my ( $restype, $res ) = C4::Reserves::CheckReserves( $item->{'itemnumber'} ); |
872 |
my ( $restype, $res ) = C4::Reserves::CheckReserves( $item->{'itemnumber'} ); |
| 873 |
if ($restype) { |
873 |
if ($restype) { |
| 874 |
my $resbor = $res->{'borrowernumber'}; |
874 |
my $resbor = $res->{'borrowernumber'}; |
| 875 |
my ( $resborrower ) = C4::Members::GetMemberDetails( $resbor, 0 ); |
875 |
my ( $resborrower ) = C4::Members::GetMember( borrowernumber => $resbor ); |
| 876 |
my $branches = GetBranches(); |
876 |
my $branches = GetBranches(); |
| 877 |
my $branchname = $branches->{ $res->{'branchcode'} }->{'branchname'}; |
877 |
my $branchname = $branches->{ $res->{'branchcode'} }->{'branchname'}; |
| 878 |
if ( $resbor ne $borrower->{'borrowernumber'} && $restype eq "Waiting" ) |
878 |
if ( $resbor ne $borrower->{'borrowernumber'} && $restype eq "Waiting" ) |
|
Lines 909-915
Issue a book. Does no check, they are done in CanBookBeIssued. If we reach this
Link Here
|
| 909 |
|
909 |
|
| 910 |
=over 4 |
910 |
=over 4 |
| 911 |
|
911 |
|
| 912 |
=item C<$borrower> is a hash with borrower informations (from GetMemberDetails). |
912 |
=item C<$borrower> is a hash with borrower informations (from GetMember or GetMemberDetails). |
| 913 |
|
913 |
|
| 914 |
=item C<$barcode> is the barcode of the item being issued. |
914 |
=item C<$barcode> is the barcode of the item being issued. |
| 915 |
|
915 |
|
|
Lines 1525-1531
sub AddReturn {
Link Here
|
| 1525 |
my $issue = GetItemIssue($itemnumber); |
1525 |
my $issue = GetItemIssue($itemnumber); |
| 1526 |
# warn Dumper($iteminformation); |
1526 |
# warn Dumper($iteminformation); |
| 1527 |
if ($issue and $issue->{borrowernumber}) { |
1527 |
if ($issue and $issue->{borrowernumber}) { |
| 1528 |
$borrower = C4::Members::GetMemberDetails($issue->{borrowernumber}) |
1528 |
$borrower = C4::Members::GetMember( borrowernumber => $issue->{borrowernumber}) |
| 1529 |
or die "Data inconsistency: barcode $barcode (itemnumber:$itemnumber) claims to be issued to non-existant borrowernumber '$issue->{borrowernumber}'\n" |
1529 |
or die "Data inconsistency: barcode $barcode (itemnumber:$itemnumber) claims to be issued to non-existant borrowernumber '$issue->{borrowernumber}'\n" |
| 1530 |
. Dumper($issue) . "\n"; |
1530 |
. Dumper($issue) . "\n"; |
| 1531 |
} else { |
1531 |
} else { |
|
Lines 2261-2267
sub AddRenewal {
Link Here
|
| 2261 |
# based on the value of the RenewalPeriodBase syspref. |
2261 |
# based on the value of the RenewalPeriodBase syspref. |
| 2262 |
unless ($datedue) { |
2262 |
unless ($datedue) { |
| 2263 |
|
2263 |
|
| 2264 |
my $borrower = C4::Members::GetMemberDetails( $borrowernumber, 0 ) or return undef; |
2264 |
my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber ) or return undef; |
| 2265 |
my $itemtype = (C4::Context->preference('item-level_itypes')) ? $biblio->{'itype'} : $biblio->{'itemtype'}; |
2265 |
my $itemtype = (C4::Context->preference('item-level_itypes')) ? $biblio->{'itype'} : $biblio->{'itemtype'}; |
| 2266 |
|
2266 |
|
| 2267 |
$datedue = (C4::Context->preference('RenewalPeriodBase') eq 'date_due') ? |
2267 |
$datedue = (C4::Context->preference('RenewalPeriodBase') eq 'date_due') ? |
|
Lines 2315-2321
sub GetRenewCount {
Link Here
|
| 2315 |
my $renewsallowed = 0; |
2315 |
my $renewsallowed = 0; |
| 2316 |
my $renewsleft = 0; |
2316 |
my $renewsleft = 0; |
| 2317 |
|
2317 |
|
| 2318 |
my $borrower = C4::Members::GetMemberDetails($bornum); |
2318 |
my $borrower = C4::Members::GetMember( borrowernumber => $bornum); |
| 2319 |
my $item = GetItem($itemno); |
2319 |
my $item = GetItem($itemno); |
| 2320 |
|
2320 |
|
| 2321 |
# Look in the issues table for this item, lent to this borrower, |
2321 |
# Look in the issues table for this item, lent to this borrower, |
| 2322 |
- |
|
|