|
Lines 1261-1267
sub ModSubscription {
Link Here
|
| 1261 |
$lastvalue2, $innerloop2, $add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, |
1261 |
$lastvalue2, $innerloop2, $add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, |
| 1262 |
$numberingmethod, $status, $biblionumber, $callnumber, $notes, $letter, $hemisphere, $manualhistory, |
1262 |
$numberingmethod, $status, $biblionumber, $callnumber, $notes, $letter, $hemisphere, $manualhistory, |
| 1263 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, $subscriptionid, |
1263 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, $subscriptionid, |
| 1264 |
$seriallifespan |
1264 |
$serial_lifespan |
| 1265 |
) = @_; |
1265 |
) = @_; |
| 1266 |
|
1266 |
|
| 1267 |
# warn $irregularity; |
1267 |
# warn $irregularity; |
|
Lines 1275-1281
sub ModSubscription {
Link Here
|
| 1275 |
numberingmethod=?, status=?, biblionumber=?, callnumber=?, notes=?, |
1275 |
numberingmethod=?, status=?, biblionumber=?, callnumber=?, notes=?, |
| 1276 |
letter=?, hemisphere=?,manualhistory=?,internalnotes=?,serialsadditems=?, |
1276 |
letter=?, hemisphere=?,manualhistory=?,internalnotes=?,serialsadditems=?, |
| 1277 |
staffdisplaycount = ?,opacdisplaycount = ?, graceperiod = ?, location = ? |
1277 |
staffdisplaycount = ?,opacdisplaycount = ?, graceperiod = ?, location = ? |
| 1278 |
,enddate=?, seriallifespan=? |
1278 |
,enddate=?, serial_lifespan=? |
| 1279 |
WHERE subscriptionid = ?"; |
1279 |
WHERE subscriptionid = ?"; |
| 1280 |
|
1280 |
|
| 1281 |
#warn "query :".$query; |
1281 |
#warn "query :".$query; |
|
Lines 1292-1298
sub ModSubscription {
Link Here
|
| 1292 |
$numberingmethod, $status, $biblionumber, $callnumber, |
1292 |
$numberingmethod, $status, $biblionumber, $callnumber, |
| 1293 |
$notes, $letter, $hemisphere, ( $manualhistory ? $manualhistory : 0 ), |
1293 |
$notes, $letter, $hemisphere, ( $manualhistory ? $manualhistory : 0 ), |
| 1294 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1294 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
| 1295 |
$graceperiod, $location, $enddate, $seriallifespan, $subscriptionid |
1295 |
$graceperiod, $location, $enddate, $serial_lifespan, $subscriptionid |
| 1296 |
); |
1296 |
); |
| 1297 |
my $rows = $sth->rows; |
1297 |
my $rows = $sth->rows; |
| 1298 |
|
1298 |
|
|
Lines 1324-1330
sub NewSubscription {
Link Here
|
| 1324 |
$lastvalue1, $innerloop1, $add2, $every2, $whenmorethan2, $setto2, $lastvalue2, $innerloop2, |
1324 |
$lastvalue1, $innerloop1, $add2, $every2, $whenmorethan2, $setto2, $lastvalue2, $innerloop2, |
| 1325 |
$add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, $numberingmethod, $status, |
1325 |
$add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, $numberingmethod, $status, |
| 1326 |
$notes, $letter, $firstacquidate, $irregularity, $numberpattern, $callnumber, $hemisphere, $manualhistory, |
1326 |
$notes, $letter, $firstacquidate, $irregularity, $numberpattern, $callnumber, $hemisphere, $manualhistory, |
| 1327 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, $seriallifespan |
1327 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, $serial_lifespan |
| 1328 |
) = @_; |
1328 |
) = @_; |
| 1329 |
my $dbh = C4::Context->dbh; |
1329 |
my $dbh = C4::Context->dbh; |
| 1330 |
|
1330 |
|
|
Lines 1338-1344
sub NewSubscription {
Link Here
|
| 1338 |
add3,every3,whenmorethan3,setto3,lastvalue3,innerloop3, |
1338 |
add3,every3,whenmorethan3,setto3,lastvalue3,innerloop3, |
| 1339 |
numberingmethod, status, notes, letter,firstacquidate,irregularity, |
1339 |
numberingmethod, status, notes, letter,firstacquidate,irregularity, |
| 1340 |
numberpattern, callnumber, hemisphere,manualhistory,internalnotes,serialsadditems, |
1340 |
numberpattern, callnumber, hemisphere,manualhistory,internalnotes,serialsadditems, |
| 1341 |
staffdisplaycount,opacdisplaycount,graceperiod,location,enddate,seriallifespan) |
1341 |
staffdisplaycount,opacdisplaycount,graceperiod,location,enddate,serial_lifespan) |
| 1342 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1342 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
| 1343 |
|; |
1343 |
|; |
| 1344 |
my $sth = $dbh->prepare($query); |
1344 |
my $sth = $dbh->prepare($query); |
|
Lines 1348-1354
sub NewSubscription {
Link Here
|
| 1348 |
$lastvalue1, $innerloop1, $add2, $every2, $whenmorethan2, $setto2, $lastvalue2, $innerloop2, |
1348 |
$lastvalue1, $innerloop1, $add2, $every2, $whenmorethan2, $setto2, $lastvalue2, $innerloop2, |
| 1349 |
$add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, $numberingmethod, "$status", |
1349 |
$add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, $numberingmethod, "$status", |
| 1350 |
$notes, $letter, $firstacquidate, $irregularity, $numberpattern, $callnumber, $hemisphere, $manualhistory, |
1350 |
$notes, $letter, $firstacquidate, $irregularity, $numberpattern, $callnumber, $hemisphere, $manualhistory, |
| 1351 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, $seriallifespan |
1351 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, $serial_lifespan |
| 1352 |
); |
1352 |
); |
| 1353 |
|
1353 |
|
| 1354 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |
1354 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |