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