|
Lines 1409-1415
sub NewSubscription {
Link Here
|
| 1409 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
1409 |
$innerloop3, $status, $notes, $letter, $firstacquidate, $irregularity, |
| 1410 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
1410 |
$numberpattern, $locale, $callnumber, $manualhistory, $internalnotes, |
| 1411 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
1411 |
$serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, |
| 1412 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype |
1412 |
$location, $enddate, $skip_serialseq, $itemtype, $previousitemtype, $mana_id |
| 1413 |
) = @_; |
1413 |
) = @_; |
| 1414 |
my $dbh = C4::Context->dbh; |
1414 |
my $dbh = C4::Context->dbh; |
| 1415 |
|
1415 |
|
|
Lines 1423-1430
sub NewSubscription {
Link Here
|
| 1423 |
irregularity, numberpattern, locale, callnumber, |
1423 |
irregularity, numberpattern, locale, callnumber, |
| 1424 |
manualhistory, internalnotes, serialsadditems, staffdisplaycount, |
1424 |
manualhistory, internalnotes, serialsadditems, staffdisplaycount, |
| 1425 |
opacdisplaycount, graceperiod, location, enddate, skip_serialseq, |
1425 |
opacdisplaycount, graceperiod, location, enddate, skip_serialseq, |
| 1426 |
itemtype, previousitemtype) |
1426 |
itemtype, previousitemtype, mana_id) |
| 1427 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1427 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?, ?) |
| 1428 |
|; |
1428 |
|; |
| 1429 |
my $sth = $dbh->prepare($query); |
1429 |
my $sth = $dbh->prepare($query); |
| 1430 |
$sth->execute( |
1430 |
$sth->execute( |
|
Lines 1435-1441
sub NewSubscription {
Link Here
|
| 1435 |
$firstacquidate, $irregularity, $numberpattern, $locale, $callnumber, |
1435 |
$firstacquidate, $irregularity, $numberpattern, $locale, $callnumber, |
| 1436 |
$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount, |
1436 |
$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount, |
| 1437 |
$opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq, |
1437 |
$opacdisplaycount, $graceperiod, $location, $enddate, $skip_serialseq, |
| 1438 |
$itemtype, $previousitemtype |
1438 |
$itemtype, $previousitemtype, $mana_id |
| 1439 |
); |
1439 |
); |
| 1440 |
|
1440 |
|
| 1441 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |
1441 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |