|
Lines 1301-1307
sub ModSubscription {
Link Here
|
| 1301 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1301 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
| 1302 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1302 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
| 1303 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
1303 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
| 1304 |
$itemtype, $previousitemtype, $mana_id |
1304 |
$itemtype, $previousitemtype, $mana_id, $ccode |
| 1305 |
) = @_; |
1305 |
) = @_; |
| 1306 |
|
1306 |
|
| 1307 |
my $dbh = C4::Context->dbh; |
1307 |
my $dbh = C4::Context->dbh; |
|
Lines 1314-1320
sub ModSubscription {
Link Here
|
| 1314 |
callnumber=?, notes=?, letter=?, manualhistory=?, |
1314 |
callnumber=?, notes=?, letter=?, manualhistory=?, |
| 1315 |
internalnotes=?, serialsadditems=?, staffdisplaycount=?, |
1315 |
internalnotes=?, serialsadditems=?, staffdisplaycount=?, |
| 1316 |
opacdisplaycount=?, graceperiod=?, location = ?, enddate=?, |
1316 |
opacdisplaycount=?, graceperiod=?, location = ?, enddate=?, |
| 1317 |
skip_serialseq=?, itemtype=?, previousitemtype=?, mana_id=? |
1317 |
skip_serialseq=?, itemtype=?, previousitemtype=?, mana_id=?, ccode=? |
| 1318 |
WHERE subscriptionid = ?"; |
1318 |
WHERE subscriptionid = ?"; |
| 1319 |
|
1319 |
|
| 1320 |
my $sth = $dbh->prepare($query); |
1320 |
my $sth = $dbh->prepare($query); |
|
Lines 1328-1334
sub ModSubscription {
Link Here
|
| 1328 |
$letter, ($manualhistory ? $manualhistory : 0), |
1328 |
$letter, ($manualhistory ? $manualhistory : 0), |
| 1329 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1329 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
| 1330 |
$graceperiod, $location, $enddate, $skip_serialseq, |
1330 |
$graceperiod, $location, $enddate, $skip_serialseq, |
| 1331 |
$itemtype, $previousitemtype, $mana_id, |
1331 |
$itemtype, $previousitemtype, $mana_id, $ccode, |
| 1332 |
$subscriptionid |
1332 |
$subscriptionid |
| 1333 |
); |
1333 |
); |
| 1334 |
my $rows = $sth->rows; |
1334 |
my $rows = $sth->rows; |
|
Lines 1345-1351
$subscriptionid = &NewSubscription($auser,branchcode,$aqbooksellerid,$cost,$aqbu
Link Here
|
| 1345 |
$status, $notes, $letter, $firstacquidate, $irregularity, $numberpattern, |
1345 |
$status, $notes, $letter, $firstacquidate, $irregularity, $numberpattern, |
| 1346 |
$locale, $callnumber, $manualhistory, $internalnotes, $serialsadditems, |
1346 |
$locale, $callnumber, $manualhistory, $internalnotes, $serialsadditems, |
| 1347 |
$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, |
1347 |
$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, |
| 1348 |
$skip_serialseq, $itemtype, $previousitemtype); |
1348 |
$skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode); |
| 1349 |
|
1349 |
|
| 1350 |
Create a new subscription with value given on input args. |
1350 |
Create a new subscription with value given on input args. |
| 1351 |
|
1351 |
|
|
Lines 1362-1368
sub NewSubscription {
Link Here
|
| 1362 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1362 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
| 1363 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1363 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
| 1364 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1364 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
| 1365 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id |
1365 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode |
| 1366 |
) = @_; |
1366 |
) = @_; |
| 1367 |
my $dbh = C4::Context->dbh; |
1367 |
my $dbh = C4::Context->dbh; |
| 1368 |
|
1368 |
|
|
Lines 1405-1410
sub NewSubscription {
Link Here
|
| 1405 |
itemtype => $itemtype, |
1405 |
itemtype => $itemtype, |
| 1406 |
previousitemtype => $previousitemtype, |
1406 |
previousitemtype => $previousitemtype, |
| 1407 |
mana_id => $mana_id, |
1407 |
mana_id => $mana_id, |
|
|
1408 |
ccode => $ccode, |
| 1408 |
} |
1409 |
} |
| 1409 |
)->store; |
1410 |
)->store; |
| 1410 |
$subscription->discard_changes; |
1411 |
$subscription->discard_changes; |