Lines 1385-1391
sub ModSubscription {
Link Here
|
1385 |
$lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, |
1385 |
$lastvalue2, $innerloop2, $lastvalue3, $innerloop3, $status, |
1386 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1386 |
$biblionumber, $callnumber, $notes, $letter, $manualhistory, |
1387 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1387 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1388 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq |
1388 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, $seriallifespan |
1389 |
) = @_; |
1389 |
) = @_; |
1390 |
|
1390 |
|
1391 |
my $dbh = C4::Context->dbh; |
1391 |
my $dbh = C4::Context->dbh; |
Lines 1398-1404
sub ModSubscription {
Link Here
|
1398 |
callnumber=?, notes=?, letter=?, manualhistory=?, |
1398 |
callnumber=?, notes=?, letter=?, manualhistory=?, |
1399 |
internalnotes=?, serialsadditems=?, staffdisplaycount=?, |
1399 |
internalnotes=?, serialsadditems=?, staffdisplaycount=?, |
1400 |
opacdisplaycount=?, graceperiod=?, location = ?, enddate=?, |
1400 |
opacdisplaycount=?, graceperiod=?, location = ?, enddate=?, |
1401 |
skip_serialseq=? |
1401 |
skip_serialseq=?, |
|
|
1402 |
seriallifespan=? |
1402 |
WHERE subscriptionid = ?"; |
1403 |
WHERE subscriptionid = ?"; |
1403 |
|
1404 |
|
1404 |
my $sth = $dbh->prepare($query); |
1405 |
my $sth = $dbh->prepare($query); |
Lines 1412-1418
sub ModSubscription {
Link Here
|
1412 |
$letter, ($manualhistory ? $manualhistory : 0), |
1413 |
$letter, ($manualhistory ? $manualhistory : 0), |
1413 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1414 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1414 |
$graceperiod, $location, $enddate, $skip_serialseq, |
1415 |
$graceperiod, $location, $enddate, $skip_serialseq, |
1415 |
$subscriptionid |
1416 |
$seriallifespan, $subscriptionid |
1416 |
); |
1417 |
); |
1417 |
my $rows = $sth->rows; |
1418 |
my $rows = $sth->rows; |
1418 |
|
1419 |
|
Lines 1444-1450
sub NewSubscription {
Link Here
|
1444 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1445 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1445 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1446 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1446 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1447 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1447 |
$location, $enddate, $skip_serialseq |
1448 |
$location, $enddate, $skip_serialseq, $seriallifespan |
1448 |
) = @_; |
1449 |
) = @_; |
1449 |
my $dbh = C4::Context->dbh; |
1450 |
my $dbh = C4::Context->dbh; |
1450 |
|
1451 |
|
Lines 1457-1464
sub NewSubscription {
Link Here
|
1457 |
lastvalue3, innerloop3, status, notes, letter, firstacquidate, |
1458 |
lastvalue3, innerloop3, status, notes, letter, firstacquidate, |
1458 |
irregularity, numberpattern, locale, callnumber, |
1459 |
irregularity, numberpattern, locale, callnumber, |
1459 |
manualhistory, internalnotes, serialsadditems, staffdisplaycount, |
1460 |
manualhistory, internalnotes, serialsadditems, staffdisplaycount, |
1460 |
opacdisplaycount, graceperiod, location, enddate, skip_serialseq) |
1461 |
opacdisplaycount, graceperiod, location, enddate, skip_serialseq, |
1461 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1462 |
seriallifespan) |
|
|
1463 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1462 |
|; |
1464 |
|; |
1463 |
my $sth = $dbh->prepare($query); |
1465 |
my $sth = $dbh->prepare($query); |
1464 |
$sth->execute( |
1466 |
$sth->execute( |
Lines 1468-1474
sub NewSubscription {
Link Here
|
1468 |
$lastvalue3, $innerloop3, $status, $notes, $letter, |
1470 |
$lastvalue3, $innerloop3, $status, $notes, $letter, |
1469 |
$firstacquidate, $irregularity, $numberpattern, $locale, $callnumber, |
1471 |
$firstacquidate, $irregularity, $numberpattern, $locale, $callnumber, |
1470 |
$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount, |
1472 |
$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount, |
1471 |
$opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq |
1473 |
$opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq, |
|
|
1474 |
$seriallifespan |
1472 |
); |
1475 |
); |
1473 |
|
1476 |
|
1474 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |
1477 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |