Lines 1347-1353
sub ModSubscription {
Link Here
|
1347 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1347 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1348 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1348 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1349 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
1349 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
1350 |
$itemtype, $previousitemtype, $mana_id, $ccode, $published_on_template |
1350 |
$itemtype, $previousitemtype, $mana_id, $ccode, $published_on_template, |
|
|
1351 |
$auto_claim_enabled |
1351 |
) = @_; |
1352 |
) = @_; |
1352 |
|
1353 |
|
1353 |
my $subscription = Koha::Subscriptions->find($subscriptionid); |
1354 |
my $subscription = Koha::Subscriptions->find($subscriptionid); |
Lines 1392-1397
sub ModSubscription {
Link Here
|
1392 |
mana_id => $mana_id, |
1393 |
mana_id => $mana_id, |
1393 |
ccode => $ccode, |
1394 |
ccode => $ccode, |
1394 |
published_on_template => $published_on_template, |
1395 |
published_on_template => $published_on_template, |
|
|
1396 |
auto_claim_enabled => $auto_claim_enabled // 0, |
1395 |
} |
1397 |
} |
1396 |
)->store; |
1398 |
)->store; |
1397 |
|
1399 |
|
Lines 1424-1437
the id of this new subscription
Link Here
|
1424 |
|
1426 |
|
1425 |
sub NewSubscription { |
1427 |
sub NewSubscription { |
1426 |
my ( |
1428 |
my ( |
1427 |
$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, |
1429 |
$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, |
1428 |
$startdate, $periodicity, $numberlength, $weeklength, $monthlength, |
1430 |
$startdate, $periodicity, $numberlength, $weeklength, $monthlength, |
1429 |
$lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3, |
1431 |
$lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3, |
1430 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1432 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1431 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1433 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1432 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1434 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1433 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode, |
1435 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode, |
1434 |
$published_on_template, |
1436 |
$published_on_template, $auto_claim_enabled |
1435 |
) = @_; |
1437 |
) = @_; |
1436 |
my $dbh = C4::Context->dbh; |
1438 |
my $dbh = C4::Context->dbh; |
1437 |
|
1439 |
|
Lines 1476-1481
sub NewSubscription {
Link Here
|
1476 |
mana_id => $mana_id, |
1478 |
mana_id => $mana_id, |
1477 |
ccode => $ccode, |
1479 |
ccode => $ccode, |
1478 |
published_on_template => $published_on_template, |
1480 |
published_on_template => $published_on_template, |
|
|
1481 |
auto_claim_enabled => $auto_claim_enabled // 0, |
1479 |
} |
1482 |
} |
1480 |
)->store; |
1483 |
)->store; |
1481 |
$subscription->discard_changes; |
1484 |
$subscription->discard_changes; |
Lines 1935-1941
sub GetLateOrMissingIssues {
Link Here
|
1935 |
if ($supplierid) { |
1938 |
if ($supplierid) { |
1936 |
$sth = $dbh->prepare( |
1939 |
$sth = $dbh->prepare( |
1937 |
"SELECT |
1940 |
"SELECT |
1938 |
serialid, aqbooksellerid, name, |
1941 |
serialid, serial.aqbooksellerid, name, |
1939 |
biblio.title, biblioitems.issn, planneddate, serialseq, |
1942 |
biblio.title, biblioitems.issn, planneddate, serialseq, |
1940 |
serial.status, serial.subscriptionid, claimdate, serial.notes AS notes, claims_count, |
1943 |
serial.status, serial.subscriptionid, claimdate, serial.notes AS notes, claims_count, |
1941 |
subscription.branchcode, serial.publisheddate |
1944 |
subscription.branchcode, serial.publisheddate |