Lines 1315-1321
sub ModSubscription {
Link Here
|
1315 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1315 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1316 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1316 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1317 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
1317 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
1318 |
$itemtype, $previousitemtype |
1318 |
$itemtype, $previousitemtype, $mana_id |
1319 |
) = @_; |
1319 |
) = @_; |
1320 |
|
1320 |
|
1321 |
my $dbh = C4::Context->dbh; |
1321 |
my $dbh = C4::Context->dbh; |
Lines 1328-1334
sub ModSubscription {
Link Here
|
1328 |
callnumber=?, notes=?, letter=?, manualhistory=?, |
1328 |
callnumber=?, notes=?, letter=?, manualhistory=?, |
1329 |
internalnotes=?, serialsadditems=?, staffdisplaycount=?, |
1329 |
internalnotes=?, serialsadditems=?, staffdisplaycount=?, |
1330 |
opacdisplaycount=?, graceperiod=?, location = ?, enddate=?, |
1330 |
opacdisplaycount=?, graceperiod=?, location = ?, enddate=?, |
1331 |
skip_serialseq=?, itemtype=?, previousitemtype=? |
1331 |
skip_serialseq=?, itemtype=?, previousitemtype=?, mana_id=? |
1332 |
WHERE subscriptionid = ?"; |
1332 |
WHERE subscriptionid = ?"; |
1333 |
|
1333 |
|
1334 |
my $sth = $dbh->prepare($query); |
1334 |
my $sth = $dbh->prepare($query); |
Lines 1342-1348
sub ModSubscription {
Link Here
|
1342 |
$letter, ($manualhistory ? $manualhistory : 0), |
1342 |
$letter, ($manualhistory ? $manualhistory : 0), |
1343 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1343 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1344 |
$graceperiod, $location, $enddate, $skip_serialseq, |
1344 |
$graceperiod, $location, $enddate, $skip_serialseq, |
1345 |
$itemtype, $previousitemtype, |
1345 |
$itemtype, $previousitemtype, $mana_id, |
1346 |
$subscriptionid |
1346 |
$subscriptionid |
1347 |
); |
1347 |
); |
1348 |
my $rows = $sth->rows; |
1348 |
my $rows = $sth->rows; |
1349 |
- |
|
|