Lines 1284-1290
sub ModSubscription {
Link Here
|
1284 |
$lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, |
1284 |
$lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, |
1285 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1285 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1286 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1286 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1287 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq |
1287 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, $serial_lifespan |
1288 |
) = @_; |
1288 |
) = @_; |
1289 |
|
1289 |
|
1290 |
my $dbh = C4::Context->dbh; |
1290 |
my $dbh = C4::Context->dbh; |
Lines 1297-1303
sub ModSubscription {
Link Here
|
1297 |
callnumber=?, notes=?, letter=?, manualhistory=?, |
1297 |
callnumber=?, notes=?, letter=?, manualhistory=?, |
1298 |
internalnotes=?, serialsadditems=?, staffdisplaycount=?, |
1298 |
internalnotes=?, serialsadditems=?, staffdisplaycount=?, |
1299 |
opacdisplaycount=?, graceperiod=?, location = ?, enddate=?, |
1299 |
opacdisplaycount=?, graceperiod=?, location = ?, enddate=?, |
1300 |
skip_serialseq=? |
1300 |
skip_serialseq=?, |
|
|
1301 |
serial_lifespan=? |
1301 |
WHERE subscriptionid = ?"; |
1302 |
WHERE subscriptionid = ?"; |
1302 |
|
1303 |
|
1303 |
my $sth = $dbh->prepare($query); |
1304 |
my $sth = $dbh->prepare($query); |
Lines 1311-1317
sub ModSubscription {
Link Here
|
1311 |
$letter, ($manualhistory ? $manualhistory : 0), |
1312 |
$letter, ($manualhistory ? $manualhistory : 0), |
1312 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1313 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1313 |
$graceperiod, $location, $enddate, $skip_serialseq, |
1314 |
$graceperiod, $location, $enddate, $skip_serialseq, |
1314 |
$subscriptionid |
1315 |
$serial_lifespan, $subscriptionid |
1315 |
); |
1316 |
); |
1316 |
my $rows = $sth->rows; |
1317 |
my $rows = $sth->rows; |
1317 |
|
1318 |
|
Lines 1343-1349
sub NewSubscription {
Link Here
|
1343 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1344 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1344 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1345 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1345 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1346 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1346 |
$location, $enddate, $skip_serialseq |
1347 |
$location, $enddate, $skip_serialseq, $serial_lifespan |
1347 |
) = @_; |
1348 |
) = @_; |
1348 |
my $dbh = C4::Context->dbh; |
1349 |
my $dbh = C4::Context->dbh; |
1349 |
|
1350 |
|
Lines 1356-1363
sub NewSubscription {
Link Here
|
1356 |
lastvalue3, innerloop3, status, notes, letter, firstacquidate, |
1357 |
lastvalue3, innerloop3, status, notes, letter, firstacquidate, |
1357 |
irregularity, numberpattern, locale, callnumber, |
1358 |
irregularity, numberpattern, locale, callnumber, |
1358 |
manualhistory, internalnotes, serialsadditems, staffdisplaycount, |
1359 |
manualhistory, internalnotes, serialsadditems, staffdisplaycount, |
1359 |
opacdisplaycount, graceperiod, location, enddate, skip_serialseq) |
1360 |
opacdisplaycount, graceperiod, location, enddate, skip_serialseq, |
1360 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1361 |
serial_lifespan) |
|
|
1362 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1361 |
|; |
1363 |
|; |
1362 |
my $sth = $dbh->prepare($query); |
1364 |
my $sth = $dbh->prepare($query); |
1363 |
$sth->execute( |
1365 |
$sth->execute( |
Lines 1367-1373
sub NewSubscription {
Link Here
|
1367 |
$lastvalue3, $innerloop3, $status, $notes, $letter, |
1369 |
$lastvalue3, $innerloop3, $status, $notes, $letter, |
1368 |
$firstacquidate, $irregularity, $numberpattern, $locale, $callnumber, |
1370 |
$firstacquidate, $irregularity, $numberpattern, $locale, $callnumber, |
1369 |
$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount, |
1371 |
$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount, |
1370 |
$opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq |
1372 |
$opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq, |
|
|
1373 |
$serial_lifespan |
1371 |
); |
1374 |
); |
1372 |
|
1375 |
|
1373 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |
1376 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |