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, $seriallifespan |
1388 |
$graceperiod, $location, $enddate, $subscriptionid, $skip_serialseq, $serial_lifespan |
1389 |
) = @_; |
1389 |
) = @_; |
1390 |
|
1390 |
|
1391 |
my $dbh = C4::Context->dbh; |
1391 |
my $dbh = C4::Context->dbh; |
Lines 1399-1405
sub ModSubscription {
Link Here
|
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 |
serial_lifespan=? |
1403 |
WHERE subscriptionid = ?"; |
1403 |
WHERE subscriptionid = ?"; |
1404 |
|
1404 |
|
1405 |
my $sth = $dbh->prepare($query); |
1405 |
my $sth = $dbh->prepare($query); |
Lines 1413-1419
sub ModSubscription {
Link Here
|
1413 |
$letter, ($manualhistory ? $manualhistory : 0), |
1413 |
$letter, ($manualhistory ? $manualhistory : 0), |
1414 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1414 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1415 |
$graceperiod, $location, $enddate, $skip_serialseq, |
1415 |
$graceperiod, $location, $enddate, $skip_serialseq, |
1416 |
$seriallifespan, $subscriptionid |
1416 |
$serial_lifespan, $subscriptionid |
1417 |
); |
1417 |
); |
1418 |
my $rows = $sth->rows; |
1418 |
my $rows = $sth->rows; |
1419 |
|
1419 |
|
Lines 1445-1451
sub NewSubscription {
Link Here
|
1445 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1445 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1446 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1446 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1447 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1447 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1448 |
$location, $enddate, $skip_serialseq, $seriallifespan |
1448 |
$location, $enddate, $skip_serialseq, $serial_lifespan |
1449 |
) = @_; |
1449 |
) = @_; |
1450 |
my $dbh = C4::Context->dbh; |
1450 |
my $dbh = C4::Context->dbh; |
1451 |
|
1451 |
|
Lines 1459-1465
sub NewSubscription {
Link Here
|
1459 |
irregularity, numberpattern, locale, callnumber, |
1459 |
irregularity, numberpattern, locale, callnumber, |
1460 |
manualhistory, internalnotes, serialsadditems, staffdisplaycount, |
1460 |
manualhistory, internalnotes, serialsadditems, staffdisplaycount, |
1461 |
opacdisplaycount, graceperiod, location, enddate, skip_serialseq, |
1461 |
opacdisplaycount, graceperiod, location, enddate, skip_serialseq, |
1462 |
seriallifespan) |
1462 |
serial_lifespan) |
1463 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1463 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1464 |
|; |
1464 |
|; |
1465 |
my $sth = $dbh->prepare($query); |
1465 |
my $sth = $dbh->prepare($query); |
Lines 1471-1477
sub NewSubscription {
Link Here
|
1471 |
$firstacquidate, $irregularity, $numberpattern, $locale, $callnumber, |
1471 |
$firstacquidate, $irregularity, $numberpattern, $locale, $callnumber, |
1472 |
$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount, |
1472 |
$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount, |
1473 |
$opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq, |
1473 |
$opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq, |
1474 |
$seriallifespan |
1474 |
$serial_lifespan |
1475 |
); |
1475 |
); |
1476 |
|
1476 |
|
1477 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |
1477 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |