Lines 1171-1177
sub ModSubscription {
Link Here
|
1171 |
$whenmorethan1, $setto1, $lastvalue1, $innerloop1, $add2, $every2, $whenmorethan2, $setto2, |
1171 |
$whenmorethan1, $setto1, $lastvalue1, $innerloop1, $add2, $every2, $whenmorethan2, $setto2, |
1172 |
$lastvalue2, $innerloop2, $add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, |
1172 |
$lastvalue2, $innerloop2, $add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, |
1173 |
$numberingmethod, $status, $biblionumber, $callnumber, $notes, $letter, $hemisphere, $manualhistory, |
1173 |
$numberingmethod, $status, $biblionumber, $callnumber, $notes, $letter, $hemisphere, $manualhistory, |
1174 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, $subscriptionid |
1174 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, $subscriptionid, |
|
|
1175 |
$seriallifespan |
1175 |
) = @_; |
1176 |
) = @_; |
1176 |
|
1177 |
|
1177 |
# warn $irregularity; |
1178 |
# warn $irregularity; |
Lines 1185-1191
sub ModSubscription {
Link Here
|
1185 |
numberingmethod=?, status=?, biblionumber=?, callnumber=?, notes=?, |
1186 |
numberingmethod=?, status=?, biblionumber=?, callnumber=?, notes=?, |
1186 |
letter=?, hemisphere=?,manualhistory=?,internalnotes=?,serialsadditems=?, |
1187 |
letter=?, hemisphere=?,manualhistory=?,internalnotes=?,serialsadditems=?, |
1187 |
staffdisplaycount = ?,opacdisplaycount = ?, graceperiod = ?, location = ? |
1188 |
staffdisplaycount = ?,opacdisplaycount = ?, graceperiod = ?, location = ? |
1188 |
,enddate=? |
1189 |
,enddate=?, seriallifespan=? |
1189 |
WHERE subscriptionid = ?"; |
1190 |
WHERE subscriptionid = ?"; |
1190 |
|
1191 |
|
1191 |
#warn "query :".$query; |
1192 |
#warn "query :".$query; |
Lines 1202-1208
sub ModSubscription {
Link Here
|
1202 |
$numberingmethod, $status, $biblionumber, $callnumber, |
1203 |
$numberingmethod, $status, $biblionumber, $callnumber, |
1203 |
$notes, $letter, $hemisphere, ( $manualhistory ? $manualhistory : 0 ), |
1204 |
$notes, $letter, $hemisphere, ( $manualhistory ? $manualhistory : 0 ), |
1204 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1205 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, |
1205 |
$graceperiod, $location, $enddate, $subscriptionid |
1206 |
$graceperiod, $location, $enddate, $seriallifespan, $subscriptionid |
1206 |
); |
1207 |
); |
1207 |
my $rows = $sth->rows; |
1208 |
my $rows = $sth->rows; |
1208 |
|
1209 |
|
Lines 1228-1239
the id of this new subscription
Link Here
|
1228 |
=cut |
1229 |
=cut |
1229 |
|
1230 |
|
1230 |
sub NewSubscription { |
1231 |
sub NewSubscription { |
|
|
1232 |
|
1231 |
my ($auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, $startdate, $periodicity, |
1233 |
my ($auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, $startdate, $periodicity, |
1232 |
$dow, $numberlength, $weeklength, $monthlength, $add1, $every1, $whenmorethan1, $setto1, |
1234 |
$dow, $numberlength, $weeklength, $monthlength, $add1, $every1, $whenmorethan1, $setto1, |
1233 |
$lastvalue1, $innerloop1, $add2, $every2, $whenmorethan2, $setto2, $lastvalue2, $innerloop2, |
1235 |
$lastvalue1, $innerloop1, $add2, $every2, $whenmorethan2, $setto2, $lastvalue2, $innerloop2, |
1234 |
$add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, $numberingmethod, $status, |
1236 |
$add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, $numberingmethod, $status, |
1235 |
$notes, $letter, $firstacquidate, $irregularity, $numberpattern, $callnumber, $hemisphere, $manualhistory, |
1237 |
$notes, $letter, $firstacquidate, $irregularity, $numberpattern, $callnumber, $hemisphere, $manualhistory, |
1236 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate |
1238 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, $seriallifespan |
1237 |
) = @_; |
1239 |
) = @_; |
1238 |
my $dbh = C4::Context->dbh; |
1240 |
my $dbh = C4::Context->dbh; |
1239 |
|
1241 |
|
Lines 1247-1254
sub NewSubscription {
Link Here
|
1247 |
add3,every3,whenmorethan3,setto3,lastvalue3,innerloop3, |
1249 |
add3,every3,whenmorethan3,setto3,lastvalue3,innerloop3, |
1248 |
numberingmethod, status, notes, letter,firstacquidate,irregularity, |
1250 |
numberingmethod, status, notes, letter,firstacquidate,irregularity, |
1249 |
numberpattern, callnumber, hemisphere,manualhistory,internalnotes,serialsadditems, |
1251 |
numberpattern, callnumber, hemisphere,manualhistory,internalnotes,serialsadditems, |
1250 |
staffdisplaycount,opacdisplaycount,graceperiod,location,enddate) |
1252 |
staffdisplaycount,opacdisplaycount,graceperiod,location,enddate,seriallifespan) |
1251 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1253 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1252 |
|; |
1254 |
|; |
1253 |
my $sth = $dbh->prepare($query); |
1255 |
my $sth = $dbh->prepare($query); |
1254 |
$sth->execute( |
1256 |
$sth->execute( |
Lines 1257-1263
sub NewSubscription {
Link Here
|
1257 |
$lastvalue1, $innerloop1, $add2, $every2, $whenmorethan2, $setto2, $lastvalue2, $innerloop2, |
1259 |
$lastvalue1, $innerloop1, $add2, $every2, $whenmorethan2, $setto2, $lastvalue2, $innerloop2, |
1258 |
$add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, $numberingmethod, "$status", |
1260 |
$add3, $every3, $whenmorethan3, $setto3, $lastvalue3, $innerloop3, $numberingmethod, "$status", |
1259 |
$notes, $letter, $firstacquidate, $irregularity, $numberpattern, $callnumber, $hemisphere, $manualhistory, |
1261 |
$notes, $letter, $firstacquidate, $irregularity, $numberpattern, $callnumber, $hemisphere, $manualhistory, |
1260 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate |
1262 |
$internalnotes, $serialsadditems, $staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, $seriallifespan |
1261 |
); |
1263 |
); |
1262 |
|
1264 |
|
1263 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |
1265 |
my $subscriptionid = $dbh->{'mysql_insertid'}; |