Lines 1308-1314
sub ModSubscription {
Link Here
|
1308 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1308 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1309 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1309 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1310 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
1310 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, |
1311 |
$itemtype, $previousitemtype |
1311 |
$itemtype, $previousitemtype, $mana_id |
1312 |
) = @_; |
1312 |
) = @_; |
1313 |
|
1313 |
|
1314 |
my $dbh = C4::Context->dbh; |
1314 |
my $dbh = C4::Context->dbh; |
Lines 1321-1327
sub ModSubscription {
Link Here
|
1321 |
callnumber=?, notes=?, letter=?, manualhistory=?, |
1321 |
callnumber=?, notes=?, letter=?, manualhistory=?, |
1322 |
internalnotes=?, serialsadditems=?, staffdisplaycount=?, |
1322 |
internalnotes=?, serialsadditems=?, staffdisplaycount=?, |
1323 |
opacdisplaycount=?, graceperiod=?, location = ?, enddate=?, |
1323 |
opacdisplaycount=?, graceperiod=?, location = ?, enddate=?, |
1324 |
skip_serialseq=?, itemtype=?, previousitemtype=? |
1324 |
skip_serialseq=?, itemtype=?, previousitemtype=?, mana_id=? |
1325 |
WHERE subscriptionid = ?"; |
1325 |
WHERE subscriptionid = ?"; |
1326 |
|
1326 |
|
1327 |
my $sth = $dbh->prepare($query); |
1327 |
my $sth = $dbh->prepare($query); |
Lines 1335-1341
sub ModSubscription {
Link Here
|
1335 |
$letter, ($manualhistory ? $manualhistory : 0), |
1335 |
$letter, ($manualhistory ? $manualhistory : 0), |
1336 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1336 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1337 |
$graceperiod, $location, $enddate, $skip_serialseq, |
1337 |
$graceperiod, $location, $enddate, $skip_serialseq, |
1338 |
$itemtype, $previousitemtype, |
1338 |
$itemtype, $previousitemtype, $mana_id, |
1339 |
$subscriptionid |
1339 |
$subscriptionid |
1340 |
); |
1340 |
); |
1341 |
my $rows = $sth->rows; |
1341 |
my $rows = $sth->rows; |
1342 |
- |
|
|