Lines 991-997
sub AddIssue {
Link Here
|
991 |
} |
991 |
} |
992 |
if ($borrower and $barcode and $barcodecheck ne '0'){#??? wtf |
992 |
if ($borrower and $barcode and $barcodecheck ne '0'){#??? wtf |
993 |
# find which item we issue |
993 |
# find which item we issue |
994 |
my $item = GetItem('', $barcode) or return undef; # if we don't get an Item, abort. |
994 |
my $item = GetItem('', $barcode) or return; # if we don't get an Item, abort. |
995 |
my $branch = _GetCircControlBranch($item,$borrower); |
995 |
my $branch = _GetCircControlBranch($item,$borrower); |
996 |
|
996 |
|
997 |
# get actual issuing if there is one |
997 |
# get actual issuing if there is one |
Lines 1303-1309
sub GetIssuingRule {
Link Here
|
1303 |
return $irule if defined($irule) ; |
1303 |
return $irule if defined($irule) ; |
1304 |
|
1304 |
|
1305 |
# if no rule matches, |
1305 |
# if no rule matches, |
1306 |
return undef; |
1306 |
return; |
1307 |
} |
1307 |
} |
1308 |
|
1308 |
|
1309 |
=head2 GetBranchBorrowerCircRule |
1309 |
=head2 GetBranchBorrowerCircRule |
Lines 2175-2181
tables issues and the firstname,surname & cardnumber from borrowers.
Link Here
|
2175 |
|
2175 |
|
2176 |
sub GetBiblioIssues { |
2176 |
sub GetBiblioIssues { |
2177 |
my $biblionumber = shift; |
2177 |
my $biblionumber = shift; |
2178 |
return undef unless $biblionumber; |
2178 |
return unless $biblionumber; |
2179 |
my $dbh = C4::Context->dbh; |
2179 |
my $dbh = C4::Context->dbh; |
2180 |
my $query = " |
2180 |
my $query = " |
2181 |
SELECT issues.*,items.barcode,biblio.biblionumber,biblio.title, biblio.author,borrowers.cardnumber,borrowers.surname,borrowers.firstname |
2181 |
SELECT issues.*,items.barcode,biblio.biblionumber,biblio.title, biblio.author,borrowers.cardnumber,borrowers.surname,borrowers.firstname |
Lines 2353-2365
from the book's item type.
Link Here
|
2353 |
=cut |
2353 |
=cut |
2354 |
|
2354 |
|
2355 |
sub AddRenewal { |
2355 |
sub AddRenewal { |
2356 |
my $borrowernumber = shift or return undef; |
2356 |
my $borrowernumber = shift or return; |
2357 |
my $itemnumber = shift or return undef; |
2357 |
my $itemnumber = shift or return; |
2358 |
my $branch = shift; |
2358 |
my $branch = shift; |
2359 |
my $datedue = shift; |
2359 |
my $datedue = shift; |
2360 |
my $lastreneweddate = shift || DateTime->now(time_zone => C4::Context->tz)->ymd(); |
2360 |
my $lastreneweddate = shift || DateTime->now(time_zone => C4::Context->tz)->ymd(); |
2361 |
my $item = GetItem($itemnumber) or return undef; |
2361 |
my $item = GetItem($itemnumber) or return; |
2362 |
my $biblio = GetBiblioFromItemNumber($itemnumber) or return undef; |
2362 |
my $biblio = GetBiblioFromItemNumber($itemnumber) or return; |
2363 |
|
2363 |
|
2364 |
my $dbh = C4::Context->dbh; |
2364 |
my $dbh = C4::Context->dbh; |
2365 |
# Find the issues record for this book |
2365 |
# Find the issues record for this book |
Lines 2380-2386
sub AddRenewal {
Link Here
|
2380 |
# based on the value of the RenewalPeriodBase syspref. |
2380 |
# based on the value of the RenewalPeriodBase syspref. |
2381 |
unless ($datedue) { |
2381 |
unless ($datedue) { |
2382 |
|
2382 |
|
2383 |
my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber ) or return undef; |
2383 |
my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber ) or return; |
2384 |
my $itemtype = (C4::Context->preference('item-level_itypes')) ? $biblio->{'itype'} : $biblio->{'itemtype'}; |
2384 |
my $itemtype = (C4::Context->preference('item-level_itypes')) ? $biblio->{'itype'} : $biblio->{'itemtype'}; |
2385 |
|
2385 |
|
2386 |
$datedue = (C4::Context->preference('RenewalPeriodBase') eq 'date_due') ? |
2386 |
$datedue = (C4::Context->preference('RenewalPeriodBase') eq 'date_due') ? |
2387 |
- |
|
|