Lines 1347-1353
$subscriptionid = &NewSubscription($auser,branchcode,$aqbooksellerid,$cost,$aqbu
Link Here
|
1347 |
$add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1, |
1347 |
$add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1, |
1348 |
$add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2, |
1348 |
$add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2, |
1349 |
$add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3, |
1349 |
$add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3, |
1350 |
$numberingmethod, $status, $notes, $serialsadditems) |
1350 |
$numberingmethod, $status, $notes, $serialsadditems, graceperiod) |
1351 |
|
1351 |
|
1352 |
Create a new subscription with value given on input args. |
1352 |
Create a new subscription with value given on input args. |
1353 |
|
1353 |
|
Lines 1370-1376
sub NewSubscription {
Link Here
|
1370 |
$lastvalue3, $innerloop3, $numberingmethod, $status, |
1370 |
$lastvalue3, $innerloop3, $numberingmethod, $status, |
1371 |
$notes, $letter, $firstacquidate, $irregularity, |
1371 |
$notes, $letter, $firstacquidate, $irregularity, |
1372 |
$numberpattern, $callnumber, $hemisphere, $manualhistory, |
1372 |
$numberpattern, $callnumber, $hemisphere, $manualhistory, |
1373 |
$internalnotes, $serialsadditems, |
1373 |
$internalnotes, $serialsadditems, $graceperiod |
1374 |
) = @_; |
1374 |
) = @_; |
1375 |
my $dbh = C4::Context->dbh; |
1375 |
my $dbh = C4::Context->dbh; |
1376 |
|
1376 |
|
Lines 1383-1390
sub NewSubscription {
Link Here
|
1383 |
add2,every2,whenmorethan2,setto2,lastvalue2,innerloop2, |
1383 |
add2,every2,whenmorethan2,setto2,lastvalue2,innerloop2, |
1384 |
add3,every3,whenmorethan3,setto3,lastvalue3,innerloop3, |
1384 |
add3,every3,whenmorethan3,setto3,lastvalue3,innerloop3, |
1385 |
numberingmethod, status, notes, letter,firstacquidate,irregularity, |
1385 |
numberingmethod, status, notes, letter,firstacquidate,irregularity, |
1386 |
numberpattern, callnumber, hemisphere,manualhistory,internalnotes,serialsadditems) |
1386 |
numberpattern, callnumber, hemisphere,manualhistory,internalnotes,serialsadditems,graceperiod) |
1387 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1387 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
1388 |
|; |
1388 |
|; |
1389 |
my $sth = $dbh->prepare($query); |
1389 |
my $sth = $dbh->prepare($query); |
1390 |
$sth->execute( |
1390 |
$sth->execute( |
Lines 1409-1414
sub NewSubscription {
Link Here
|
1409 |
$numberpattern, $callnumber, |
1409 |
$numberpattern, $callnumber, |
1410 |
$hemisphere, $manualhistory, |
1410 |
$hemisphere, $manualhistory, |
1411 |
$internalnotes, $serialsadditems, |
1411 |
$internalnotes, $serialsadditems, |
|
|
1412 |
$graceperiod, |
1412 |
); |
1413 |
); |
1413 |
|
1414 |
|
1414 |
#then create the 1st waited number |
1415 |
#then create the 1st waited number |
Lines 2364-2372
sub abouttoexpire {
Link Here
|
2364 |
$sth->execute($subscriptionid); |
2365 |
$sth->execute($subscriptionid); |
2365 |
my ($res) = $sth->fetchrow ; |
2366 |
my ($res) = $sth->fetchrow ; |
2366 |
# warn "date expiration : ".$expirationdate." date courante ".$res; |
2367 |
# warn "date expiration : ".$expirationdate." date courante ".$res; |
2367 |
my @res=split /-/,$res; |
2368 |
my @res=split (/-/,$res); |
2368 |
@res=Date::Calc::Today if ($res[0]*$res[1]==0); |
2369 |
@res=Date::Calc::Today if ($res[0]*$res[1]==0); |
2369 |
my @endofsubscriptiondate=split/-/,$expirationdate; |
2370 |
my @endofsubscriptiondate=split(/-/,$expirationdate); |
2370 |
my $x; |
2371 |
my $x; |
2371 |
if ( $per == 1 ) {$x=7;} |
2372 |
if ( $per == 1 ) {$x=7;} |
2372 |
if ( $per == 2 ) {$x=7; } |
2373 |
if ( $per == 2 ) {$x=7; } |