Lines 1344-1350
sub ModSubscription {
Link Here
|
1344 |
$periodicity, $firstacquidate, $irregularity, $numberpattern, $locale, |
1344 |
$periodicity, $firstacquidate, $irregularity, $numberpattern, $locale, |
1345 |
$numberlength, $weeklength, $monthlength, $lastvalue1, $innerloop1, |
1345 |
$numberlength, $weeklength, $monthlength, $lastvalue1, $innerloop1, |
1346 |
$lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, |
1346 |
$lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, |
1347 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1347 |
$biblionumber, $callnumber, $notes, $letter, $late_issue_letter_code, $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 |
Lines 1353-1397
sub ModSubscription {
Link Here
|
1353 |
my $subscription = Koha::Subscriptions->find($subscriptionid); |
1353 |
my $subscription = Koha::Subscriptions->find($subscriptionid); |
1354 |
$subscription->set( |
1354 |
$subscription->set( |
1355 |
{ |
1355 |
{ |
1356 |
librarian => $auser, |
1356 |
librarian => $auser, |
1357 |
branchcode => $branchcode, |
1357 |
branchcode => $branchcode, |
1358 |
aqbooksellerid => $aqbooksellerid, |
1358 |
aqbooksellerid => $aqbooksellerid, |
1359 |
cost => $cost, |
1359 |
cost => $cost, |
1360 |
aqbudgetid => $aqbudgetid, |
1360 |
aqbudgetid => $aqbudgetid, |
1361 |
biblionumber => $biblionumber, |
1361 |
biblionumber => $biblionumber, |
1362 |
startdate => $startdate, |
1362 |
startdate => $startdate, |
1363 |
periodicity => $periodicity, |
1363 |
periodicity => $periodicity, |
1364 |
numberlength => $numberlength, |
1364 |
numberlength => $numberlength, |
1365 |
weeklength => $weeklength, |
1365 |
weeklength => $weeklength, |
1366 |
monthlength => $monthlength, |
1366 |
monthlength => $monthlength, |
1367 |
lastvalue1 => $lastvalue1, |
1367 |
lastvalue1 => $lastvalue1, |
1368 |
innerloop1 => $innerloop1, |
1368 |
innerloop1 => $innerloop1, |
1369 |
lastvalue2 => $lastvalue2, |
1369 |
lastvalue2 => $lastvalue2, |
1370 |
innerloop2 => $innerloop2, |
1370 |
innerloop2 => $innerloop2, |
1371 |
lastvalue3 => $lastvalue3, |
1371 |
lastvalue3 => $lastvalue3, |
1372 |
innerloop3 => $innerloop3, |
1372 |
innerloop3 => $innerloop3, |
1373 |
status => $status, |
1373 |
status => $status, |
1374 |
notes => $notes, |
1374 |
notes => $notes, |
1375 |
letter => $letter, |
1375 |
letter => $letter, |
1376 |
firstacquidate => $firstacquidate, |
1376 |
late_issue_letter_code => $late_issue_letter_code, |
1377 |
irregularity => $irregularity, |
1377 |
firstacquidate => $firstacquidate, |
1378 |
numberpattern => $numberpattern, |
1378 |
irregularity => $irregularity, |
1379 |
locale => $locale, |
1379 |
numberpattern => $numberpattern, |
1380 |
callnumber => $callnumber, |
1380 |
locale => $locale, |
1381 |
manualhistory => $manualhistory, |
1381 |
callnumber => $callnumber, |
1382 |
internalnotes => $internalnotes, |
1382 |
manualhistory => $manualhistory, |
1383 |
serialsadditems => $serialsadditems, |
1383 |
internalnotes => $internalnotes, |
1384 |
staffdisplaycount => $staffdisplaycount, |
1384 |
serialsadditems => $serialsadditems, |
1385 |
opacdisplaycount => $opacdisplaycount, |
1385 |
staffdisplaycount => $staffdisplaycount, |
1386 |
graceperiod => $graceperiod, |
1386 |
opacdisplaycount => $opacdisplaycount, |
1387 |
location => $location, |
1387 |
graceperiod => $graceperiod, |
1388 |
enddate => $enddate, |
1388 |
location => $location, |
1389 |
skip_serialseq => $skip_serialseq, |
1389 |
enddate => $enddate, |
1390 |
itemtype => $itemtype, |
1390 |
skip_serialseq => $skip_serialseq, |
1391 |
previousitemtype => $previousitemtype, |
1391 |
itemtype => $itemtype, |
1392 |
mana_id => $mana_id, |
1392 |
previousitemtype => $previousitemtype, |
1393 |
ccode => $ccode, |
1393 |
mana_id => $mana_id, |
1394 |
published_on_template => $published_on_template, |
1394 |
ccode => $ccode, |
|
|
1395 |
published_on_template => $published_on_template, |
1395 |
} |
1396 |
} |
1396 |
)->store; |
1397 |
)->store; |
1397 |
|
1398 |
|
Lines 1407-1416
sub ModSubscription {
Link Here
|
1407 |
|
1408 |
|
1408 |
=head2 NewSubscription |
1409 |
=head2 NewSubscription |
1409 |
|
1410 |
|
1410 |
$subscriptionid = &NewSubscription($auser,branchcode,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber, |
1411 |
$subscriptionid = &NewSubscription($manager_id,branchcode,$aqbooksellerid,$cost,$aqbudgetid,$biblionumber, |
1411 |
$startdate,$periodicity,$numberlength,$weeklength,$monthlength, |
1412 |
$startdate,$periodicity,$numberlength,$weeklength,$monthlength, |
1412 |
$lastvalue1,$innerloop1,$lastvalue2,$innerloop2,$lastvalue3,$innerloop3, |
1413 |
$lastvalue1,$innerloop1,$lastvalue2,$innerloop2,$lastvalue3,$innerloop3, |
1413 |
$status, $notes, $letter, $firstacquidate, $irregularity, $numberpattern, |
1414 |
$status, $notes, $letter, $late_issue_letter_code, $firstacquidate, $irregularity, $numberpattern, |
1414 |
$locale, $callnumber, $manualhistory, $internalnotes, $serialsadditems, |
1415 |
$locale, $callnumber, $manualhistory, $internalnotes, $serialsadditems, |
1415 |
$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, |
1416 |
$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, |
1416 |
$skip_serialseq, $itemtype, $previousitemtype); |
1417 |
$skip_serialseq, $itemtype, $previousitemtype); |
Lines 1424-1433
the id of this new subscription
Link Here
|
1424 |
|
1425 |
|
1425 |
sub NewSubscription { |
1426 |
sub NewSubscription { |
1426 |
my ( |
1427 |
my ( |
1427 |
$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, |
1428 |
$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, |
1428 |
$startdate, $periodicity, $numberlength, $weeklength, $monthlength, |
1429 |
$startdate, $periodicity, $numberlength, $weeklength, $monthlength, |
1429 |
$lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3, |
1430 |
$lastvalue1, $innerloop1, $lastvalue2, $innerloop2, $lastvalue3, |
1430 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1431 |
$innerloop3, $status, $notes, $letter, $late_issue_letter_code, $firstacquidate, $irregularity, |
1431 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1432 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1432 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1433 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1433 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode, |
1434 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode, |
Lines 1437-1481
sub NewSubscription {
Link Here
|
1437 |
|
1438 |
|
1438 |
my $subscription = Koha::Subscription->new( |
1439 |
my $subscription = Koha::Subscription->new( |
1439 |
{ |
1440 |
{ |
1440 |
librarian => $auser, |
1441 |
librarian => $auser, |
1441 |
branchcode => $branchcode, |
1442 |
branchcode => $branchcode, |
1442 |
aqbooksellerid => $aqbooksellerid, |
1443 |
aqbooksellerid => $aqbooksellerid, |
1443 |
cost => $cost, |
1444 |
cost => $cost, |
1444 |
aqbudgetid => $aqbudgetid, |
1445 |
aqbudgetid => $aqbudgetid, |
1445 |
biblionumber => $biblionumber, |
1446 |
biblionumber => $biblionumber, |
1446 |
startdate => $startdate, |
1447 |
startdate => $startdate, |
1447 |
periodicity => $periodicity, |
1448 |
periodicity => $periodicity, |
1448 |
numberlength => $numberlength, |
1449 |
numberlength => $numberlength, |
1449 |
weeklength => $weeklength, |
1450 |
weeklength => $weeklength, |
1450 |
monthlength => $monthlength, |
1451 |
monthlength => $monthlength, |
1451 |
lastvalue1 => $lastvalue1, |
1452 |
lastvalue1 => $lastvalue1, |
1452 |
innerloop1 => $innerloop1, |
1453 |
innerloop1 => $innerloop1, |
1453 |
lastvalue2 => $lastvalue2, |
1454 |
lastvalue2 => $lastvalue2, |
1454 |
innerloop2 => $innerloop2, |
1455 |
innerloop2 => $innerloop2, |
1455 |
lastvalue3 => $lastvalue3, |
1456 |
lastvalue3 => $lastvalue3, |
1456 |
innerloop3 => $innerloop3, |
1457 |
innerloop3 => $innerloop3, |
1457 |
status => $status, |
1458 |
status => $status, |
1458 |
notes => $notes, |
1459 |
notes => $notes, |
1459 |
letter => $letter, |
1460 |
letter => $letter, |
1460 |
firstacquidate => $firstacquidate, |
1461 |
late_issue_letter_code => $late_issue_letter_code, |
1461 |
irregularity => $irregularity, |
1462 |
firstacquidate => $firstacquidate, |
1462 |
numberpattern => $numberpattern, |
1463 |
irregularity => $irregularity, |
1463 |
locale => $locale, |
1464 |
numberpattern => $numberpattern, |
1464 |
callnumber => $callnumber, |
1465 |
locale => $locale, |
1465 |
manualhistory => $manualhistory, |
1466 |
callnumber => $callnumber, |
1466 |
internalnotes => $internalnotes, |
1467 |
manualhistory => $manualhistory, |
1467 |
serialsadditems => $serialsadditems, |
1468 |
internalnotes => $internalnotes, |
1468 |
staffdisplaycount => $staffdisplaycount, |
1469 |
serialsadditems => $serialsadditems, |
1469 |
opacdisplaycount => $opacdisplaycount, |
1470 |
staffdisplaycount => $staffdisplaycount, |
1470 |
graceperiod => $graceperiod, |
1471 |
opacdisplaycount => $opacdisplaycount, |
1471 |
location => $location, |
1472 |
graceperiod => $graceperiod, |
1472 |
enddate => $enddate, |
1473 |
location => $location, |
1473 |
skip_serialseq => $skip_serialseq, |
1474 |
enddate => $enddate, |
1474 |
itemtype => $itemtype, |
1475 |
skip_serialseq => $skip_serialseq, |
1475 |
previousitemtype => $previousitemtype, |
1476 |
itemtype => $itemtype, |
1476 |
mana_id => $mana_id, |
1477 |
previousitemtype => $previousitemtype, |
1477 |
ccode => $ccode, |
1478 |
mana_id => $mana_id, |
1478 |
published_on_template => $published_on_template, |
1479 |
ccode => $ccode, |
|
|
1480 |
published_on_template => $published_on_template, |
1479 |
} |
1481 |
} |
1480 |
)->store; |
1482 |
)->store; |
1481 |
$subscription->discard_changes; |
1483 |
$subscription->discard_changes; |