|
Lines 1373-1378
sub NewSubscription {
Link Here
|
| 1373 |
) = @_; |
1373 |
) = @_; |
| 1374 |
my $dbh = C4::Context->dbh; |
1374 |
my $dbh = C4::Context->dbh; |
| 1375 |
|
1375 |
|
|
|
1376 |
$_ ||= undef # Set to undef for integer values, not empty string |
| 1377 |
for ( |
| 1378 |
$aqbooksellerid, $lastvalue1, $innerloop1, $lastvalue2, |
| 1379 |
$innerloop2, $lastvalue3, $innerloop3, |
| 1380 |
); |
| 1376 |
#save subscription (insert into database) |
1381 |
#save subscription (insert into database) |
| 1377 |
my $query = qq| |
1382 |
my $query = qq| |
| 1378 |
INSERT INTO subscription |
1383 |
INSERT INTO subscription |
| 1379 |
- |
|
|