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