Lines 1285-1295
returns the number of rows affected
Link Here
|
1285 |
|
1285 |
|
1286 |
sub ModSubscription { |
1286 |
sub ModSubscription { |
1287 |
my ( |
1287 |
my ( |
1288 |
$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate, |
1288 |
$manager_id, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $startdate, |
1289 |
$periodicity, $firstacquidate, $irregularity, $numberpattern, $locale, |
1289 |
$periodicity, $firstacquidate, $irregularity, $numberpattern, $locale, |
1290 |
$numberlength, $weeklength, $monthlength, $lastvalue1, $innerloop1, |
1290 |
$numberlength, $weeklength, $monthlength, $lastvalue1, $innerloop1, |
1291 |
$lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, |
1291 |
$lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, |
1292 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1292 |
$biblionumber, $callnumber, $notes, $letter, $late_issue_letter_code, $manualhistory, |
1293 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1293 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1294 |
$graceperiod, $warn_when_late, $location, $enddate, $subscriptionid, $skip_serialseq, |
1294 |
$graceperiod, $warn_when_late, $location, $enddate, $subscriptionid, $skip_serialseq, |
1295 |
$itemtype, $previousitemtype, $mana_id, $ccode, $published_on_template |
1295 |
$itemtype, $previousitemtype, $mana_id, $ccode, $published_on_template |
Lines 1298-1304
sub ModSubscription {
Link Here
|
1298 |
my $subscription = Koha::Subscriptions->find($subscriptionid); |
1298 |
my $subscription = Koha::Subscriptions->find($subscriptionid); |
1299 |
$subscription->set( |
1299 |
$subscription->set( |
1300 |
{ |
1300 |
{ |
1301 |
librarian => $auser, |
1301 |
manager_id => $manager_id, |
1302 |
branchcode => $branchcode, |
1302 |
branchcode => $branchcode, |
1303 |
aqbooksellerid => $aqbooksellerid, |
1303 |
aqbooksellerid => $aqbooksellerid, |
1304 |
cost => $cost, |
1304 |
cost => $cost, |
Lines 1318-1323
sub ModSubscription {
Link Here
|
1318 |
status => $status, |
1318 |
status => $status, |
1319 |
notes => $notes, |
1319 |
notes => $notes, |
1320 |
letter => $letter, |
1320 |
letter => $letter, |
|
|
1321 |
late_issue_letter_code => $late_issue_letter_code, |
1321 |
firstacquidate => $firstacquidate, |
1322 |
firstacquidate => $firstacquidate, |
1322 |
irregularity => $irregularity, |
1323 |
irregularity => $irregularity, |
1323 |
numberpattern => $numberpattern, |
1324 |
numberpattern => $numberpattern, |
Lines 1352-1361
sub ModSubscription {
Link Here
|
1352 |
|
1353 |
|
1353 |
=head2 NewSubscription |
1354 |
=head2 NewSubscription |
1354 |
|
1355 |
|
1355 |
$subscriptionid = &NewSubscription($auser,branchcode,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber, |
1356 |
$subscriptionid = &NewSubscription($manager_id,branchcode,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber, |
1356 |
$startdate,$periodicity,$numberlength,$weeklength,$monthlength, |
1357 |
$startdate,$periodicity,$numberlength,$weeklength,$monthlength, |
1357 |
$lastvalue1,$innerloop1,$lastvalue2,$innerloop2,$lastvalue3,$innerloop3, |
1358 |
$lastvalue1,$innerloop1,$lastvalue2,$innerloop2,$lastvalue3,$innerloop3, |
1358 |
$status, $notes, $letter, $firstacquidate, $irregularity, $numberpattern, |
1359 |
$status, $notes, $letter, $late_issue_letter_code, $firstacquidate, $irregularity, $numberpattern, |
1359 |
$locale, $callnumber, $manualhistory, $internalnotes, $serialsadditems, |
1360 |
$locale, $callnumber, $manualhistory, $internalnotes, $serialsadditems, |
1360 |
$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, |
1361 |
$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, |
1361 |
$skip_serialseq, $itemtype, $previousitemtype); |
1362 |
$skip_serialseq, $itemtype, $previousitemtype); |
Lines 1369-1378
the id of this new subscription
Link Here
|
1369 |
|
1370 |
|
1370 |
sub NewSubscription { |
1371 |
sub NewSubscription { |
1371 |
my ( |
1372 |
my ( |
1372 |
$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, |
1373 |
$manager_id, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, |
1373 |
$startdate, $periodicity, $numberlength, $weeklength, $monthlength, |
1374 |
$startdate, $periodicity, $numberlength, $weeklength, $monthlength, |
1374 |
$lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3, |
1375 |
$lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3, |
1375 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1376 |
$innerloop3, $status, $notes, $letter, $late_issue_letter_code, $firstacquidate, $irregularity, |
1376 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1377 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1377 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $warn_when_late, |
1378 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $warn_when_late, |
1378 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode, |
1379 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode, |
Lines 1382-1388
sub NewSubscription {
Link Here
|
1382 |
|
1383 |
|
1383 |
my $subscription = Koha::Subscription->new( |
1384 |
my $subscription = Koha::Subscription->new( |
1384 |
{ |
1385 |
{ |
1385 |
librarian => $auser, |
1386 |
manager_id => $manager_id, |
1386 |
branchcode => $branchcode, |
1387 |
branchcode => $branchcode, |
1387 |
aqbooksellerid => $aqbooksellerid, |
1388 |
aqbooksellerid => $aqbooksellerid, |
1388 |
cost => $cost, |
1389 |
cost => $cost, |
Lines 1402-1407
sub NewSubscription {
Link Here
|
1402 |
status => $status, |
1403 |
status => $status, |
1403 |
notes => $notes, |
1404 |
notes => $notes, |
1404 |
letter => $letter, |
1405 |
letter => $letter, |
|
|
1406 |
late_issue_letter_code => $late_issue_letter_code, |
1405 |
firstacquidate => $firstacquidate, |
1407 |
firstacquidate => $firstacquidate, |
1406 |
irregularity => $irregularity, |
1408 |
irregularity => $irregularity, |
1407 |
numberpattern => $numberpattern, |
1409 |
numberpattern => $numberpattern, |