|
Lines 1279-1289
returns the number of rows affected
Link Here
|
| 1279 |
|
1279 |
|
| 1280 |
sub ModSubscription { |
1280 |
sub ModSubscription { |
| 1281 |
my ( |
1281 |
my ( |
| 1282 |
$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate, |
1282 |
$manager_id, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate, |
| 1283 |
$periodicity, $firstacquidate, $irregularity, $numberpattern, $locale, |
1283 |
$periodicity, $firstacquidate, $irregularity, $numberpattern, $locale, |
| 1284 |
$numberlength, $weeklength, $monthlength, $lastvalue1, $innerloop1, |
1284 |
$numberlength, $weeklength, $monthlength, $lastvalue1, $innerloop1, |
| 1285 |
$lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, |
1285 |
$lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, |
| 1286 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1286 |
$biblionumber, $callnumber, $notes, $letter, $late_issue_letter_code, $manualhistory, |
| 1287 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1287 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
| 1288 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
1288 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
| 1289 |
$itemtype, $previousitemtype, $mana_id, $ccode |
1289 |
$itemtype, $previousitemtype, $mana_id, $ccode |
|
Lines 1292-1298
sub ModSubscription {
Link Here
|
| 1292 |
my $subscription = Koha::Subscriptions->find($subscriptionid); |
1292 |
my $subscription = Koha::Subscriptions->find($subscriptionid); |
| 1293 |
$subscription->set( |
1293 |
$subscription->set( |
| 1294 |
{ |
1294 |
{ |
| 1295 |
librarian => $auser, |
1295 |
manager_id => $manager_id, |
| 1296 |
branchcode => $branchcode, |
1296 |
branchcode => $branchcode, |
| 1297 |
aqbooksellerid => $aqbooksellerid, |
1297 |
aqbooksellerid => $aqbooksellerid, |
| 1298 |
cost => $cost, |
1298 |
cost => $cost, |
|
Lines 1312-1317
sub ModSubscription {
Link Here
|
| 1312 |
status => $status, |
1312 |
status => $status, |
| 1313 |
notes => $notes, |
1313 |
notes => $notes, |
| 1314 |
letter => $letter, |
1314 |
letter => $letter, |
|
|
1315 |
late_issue_letter_code => $late_issue_letter_code, |
| 1315 |
firstacquidate => $firstacquidate, |
1316 |
firstacquidate => $firstacquidate, |
| 1316 |
irregularity => $irregularity, |
1317 |
irregularity => $irregularity, |
| 1317 |
numberpattern => $numberpattern, |
1318 |
numberpattern => $numberpattern, |
|
Lines 1344-1353
sub ModSubscription {
Link Here
|
| 1344 |
|
1345 |
|
| 1345 |
=head2 NewSubscription |
1346 |
=head2 NewSubscription |
| 1346 |
|
1347 |
|
| 1347 |
$subscriptionid = &NewSubscription($auser,branchcode,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber, |
1348 |
$subscriptionid = &NewSubscription($manager_id,branchcode,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber, |
| 1348 |
$startdate,$periodicity,$numberlength,$weeklength,$monthlength, |
1349 |
$startdate,$periodicity,$numberlength,$weeklength,$monthlength, |
| 1349 |
$lastvalue1,$innerloop1,$lastvalue2,$innerloop2,$lastvalue3,$innerloop3, |
1350 |
$lastvalue1,$innerloop1,$lastvalue2,$innerloop2,$lastvalue3,$innerloop3, |
| 1350 |
$status, $notes, $letter, $firstacquidate, $irregularity, $numberpattern, |
1351 |
$status, $notes, $letter, $late_issue_letter_code, $firstacquidate, $irregularity, $numberpattern, |
| 1351 |
$locale, $callnumber, $manualhistory, $internalnotes, $serialsadditems, |
1352 |
$locale, $callnumber, $manualhistory, $internalnotes, $serialsadditems, |
| 1352 |
$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, |
1353 |
$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, |
| 1353 |
$skip_serialseq, $itemtype, $previousitemtype); |
1354 |
$skip_serialseq, $itemtype, $previousitemtype); |
|
Lines 1361-1370
the id of this new subscription
Link Here
|
| 1361 |
|
1362 |
|
| 1362 |
sub NewSubscription { |
1363 |
sub NewSubscription { |
| 1363 |
my ( |
1364 |
my ( |
| 1364 |
$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, |
1365 |
$manager_id, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, |
| 1365 |
$startdate, $periodicity, $numberlength, $weeklength, $monthlength, |
1366 |
$startdate, $periodicity, $numberlength, $weeklength, $monthlength, |
| 1366 |
$lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3, |
1367 |
$lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3, |
| 1367 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1368 |
$innerloop3, $status, $notes, $letter, $late_issue_letter_code, $firstacquidate, $irregularity, |
| 1368 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1369 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
| 1369 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1370 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
| 1370 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode |
1371 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode |
|
Lines 1373-1379
sub NewSubscription {
Link Here
|
| 1373 |
|
1374 |
|
| 1374 |
my $subscription = Koha::Subscription->new( |
1375 |
my $subscription = Koha::Subscription->new( |
| 1375 |
{ |
1376 |
{ |
| 1376 |
librarian => $auser, |
1377 |
manager_id => $manager_id, |
| 1377 |
branchcode => $branchcode, |
1378 |
branchcode => $branchcode, |
| 1378 |
aqbooksellerid => $aqbooksellerid, |
1379 |
aqbooksellerid => $aqbooksellerid, |
| 1379 |
cost => $cost, |
1380 |
cost => $cost, |
|
Lines 1393-1398
sub NewSubscription {
Link Here
|
| 1393 |
status => $status, |
1394 |
status => $status, |
| 1394 |
notes => $notes, |
1395 |
notes => $notes, |
| 1395 |
letter => $letter, |
1396 |
letter => $letter, |
|
|
1397 |
late_issue_letter_code => $late_issue_letter_code, |
| 1396 |
firstacquidate => $firstacquidate, |
1398 |
firstacquidate => $firstacquidate, |
| 1397 |
irregularity => $irregularity, |
1399 |
irregularity => $irregularity, |
| 1398 |
numberpattern => $numberpattern, |
1400 |
numberpattern => $numberpattern, |