Lines 1318-1324
sub ModSubscription {
Link Here
|
1318 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1318 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1319 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1319 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1320 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
1320 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
1321 |
$itemtype, $previousitemtype, $mana_id |
1321 |
$itemtype, $previousitemtype, $mana_id, $auto_claim_enabled |
1322 |
) = @_; |
1322 |
) = @_; |
1323 |
|
1323 |
|
1324 |
my $subscription = Koha::Subscriptions->find($subscriptionid); |
1324 |
my $subscription = Koha::Subscriptions->find($subscriptionid); |
Lines 1361-1366
sub ModSubscription {
Link Here
|
1361 |
itemtype => $itemtype, |
1361 |
itemtype => $itemtype, |
1362 |
previousitemtype => $previousitemtype, |
1362 |
previousitemtype => $previousitemtype, |
1363 |
mana_id => $mana_id, |
1363 |
mana_id => $mana_id, |
|
|
1364 |
auto_claim_enabled => $auto_claim_enabled // 0, |
1364 |
} |
1365 |
} |
1365 |
)->store; |
1366 |
)->store; |
1366 |
# FIXME Must be $subscription->serials |
1367 |
# FIXME Must be $subscription->serials |
Lines 1398-1404
sub NewSubscription {
Link Here
|
1398 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1399 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1399 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1400 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1400 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1401 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1401 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id |
1402 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id, |
|
|
1403 |
$auto_claim_enabled |
1402 |
) = @_; |
1404 |
) = @_; |
1403 |
my $dbh = C4::Context->dbh; |
1405 |
my $dbh = C4::Context->dbh; |
1404 |
|
1406 |
|
Lines 1441-1446
sub NewSubscription {
Link Here
|
1441 |
itemtype => $itemtype, |
1443 |
itemtype => $itemtype, |
1442 |
previousitemtype => $previousitemtype, |
1444 |
previousitemtype => $previousitemtype, |
1443 |
mana_id => $mana_id, |
1445 |
mana_id => $mana_id, |
|
|
1446 |
auto_claim_enabled => $auto_claim_enabled // 0, |
1444 |
} |
1447 |
} |
1445 |
)->store; |
1448 |
)->store; |
1446 |
$subscription->discard_changes; |
1449 |
$subscription->discard_changes; |
Lines 1859-1865
sub GetLateOrMissingIssues {
Link Here
|
1859 |
if ($supplierid) { |
1862 |
if ($supplierid) { |
1860 |
$sth = $dbh->prepare( |
1863 |
$sth = $dbh->prepare( |
1861 |
"SELECT |
1864 |
"SELECT |
1862 |
serialid, aqbooksellerid, name, |
1865 |
serialid, serial.aqbooksellerid, name, |
1863 |
biblio.title, biblioitems.issn, planneddate, serialseq, |
1866 |
biblio.title, biblioitems.issn, planneddate, serialseq, |
1864 |
serial.status, serial.subscriptionid, claimdate, claims_count, |
1867 |
serial.status, serial.subscriptionid, claimdate, claims_count, |
1865 |
subscription.branchcode |
1868 |
subscription.branchcode |