|
Lines 1432-1442
sub NewSubscription {
Link Here
|
| 1432 |
# then create the 1st expected number |
1432 |
# then create the 1st expected number |
| 1433 |
$query = qq( |
1433 |
$query = qq( |
| 1434 |
INSERT INTO subscriptionhistory |
1434 |
INSERT INTO subscriptionhistory |
| 1435 |
(biblionumber, subscriptionid, histstartdate, opacnote, librariannote) |
1435 |
(biblionumber, subscriptionid, histstartdate) |
| 1436 |
VALUES (?,?,?,?,?) |
1436 |
VALUES (?,?,?) |
| 1437 |
); |
1437 |
); |
| 1438 |
$sth = $dbh->prepare($query); |
1438 |
$sth = $dbh->prepare($query); |
| 1439 |
$sth->execute( $biblionumber, $subscriptionid, $startdate, $notes, $internalnotes ); |
1439 |
$sth->execute( $biblionumber, $subscriptionid, $startdate); |
| 1440 |
|
1440 |
|
| 1441 |
# reread subscription to get a hash (for calculation of the 1st issue number) |
1441 |
# reread subscription to get a hash (for calculation of the 1st issue number) |
| 1442 |
my $subscription = GetSubscription($subscriptionid); |
1442 |
my $subscription = GetSubscription($subscriptionid); |
| 1443 |
- |
|
|