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; |