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 |
- |
|
|