Lines 322-327
sub redirect_add_subscription {
Link Here
|
322 |
my @irregularity = $query->multi_param('irregularity'); |
322 |
my @irregularity = $query->multi_param('irregularity'); |
323 |
my $locale = $query->param('locale'); |
323 |
my $locale = $query->param('locale'); |
324 |
my $graceperiod = $query->param('graceperiod') || 0; |
324 |
my $graceperiod = $query->param('graceperiod') || 0; |
|
|
325 |
my $warn_when_late = $query->param('warn_when_late'); |
325 |
|
326 |
|
326 |
my $subtype = $query->param('subtype'); |
327 |
my $subtype = $query->param('subtype'); |
327 |
my $sublength = $query->param('sublength'); |
328 |
my $sublength = $query->param('sublength'); |
Lines 369-382
sub redirect_add_subscription {
Link Here
|
369 |
} |
370 |
} |
370 |
} |
371 |
} |
371 |
my $subscriptionid = NewSubscription( |
372 |
my $subscriptionid = NewSubscription( |
372 |
$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, |
373 |
$auser, $branchcode, $aqbooksellerid, $cost, $aqbudgetid, $biblionumber, |
373 |
$startdate, $periodicity, $numberlength, $weeklength, |
374 |
$startdate, $periodicity, $numberlength, $weeklength, |
374 |
$monthlength, $lastvalue1, $innerloop1, $lastvalue2, $innerloop2, |
375 |
$monthlength, $lastvalue1, $innerloop1, $lastvalue2, $innerloop2, |
375 |
$lastvalue3, $innerloop3, $status, $notes, $letter, $firstacquidate, |
376 |
$lastvalue3, $innerloop3, $status, $notes, $letter, $firstacquidate, |
376 |
join( ";", @irregularity ), $numberpattern, $locale, $callnumber, |
377 |
join( ";", @irregularity ), $numberpattern, $locale, $callnumber, |
377 |
$manualhistory, $internalnotes, $serialsadditems, |
378 |
$manualhistory, $internalnotes, $serialsadditems, |
378 |
$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate, |
379 |
$staffdisplaycount, $opacdisplaycount, $graceperiod, $warn_when_late, $location, $enddate, |
379 |
$skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode, $published_on_template |
380 |
$skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode, $published_on_template |
380 |
); |
381 |
); |
381 |
if ( ( C4::Context->preference('Mana') == 1 ) |
382 |
if ( ( C4::Context->preference('Mana') == 1 ) |
382 |
and ( grep { $_ eq "subscription" } split( /,/, C4::Context->preference('AutoShareWithMana') ) ) ) |
383 |
and ( grep { $_ eq "subscription" } split( /,/, C4::Context->preference('AutoShareWithMana') ) ) ) |
Lines 452-457
sub redirect_mod_subscription {
Link Here
|
452 |
my $staffdisplaycount = $query->param('staffdisplaycount'); |
453 |
my $staffdisplaycount = $query->param('staffdisplaycount'); |
453 |
my $opacdisplaycount = $query->param('opacdisplaycount'); |
454 |
my $opacdisplaycount = $query->param('opacdisplaycount'); |
454 |
my $graceperiod = $query->param('graceperiod') || 0; |
455 |
my $graceperiod = $query->param('graceperiod') || 0; |
|
|
456 |
my $warn_when_late = $query->param('warn_when_late'); |
455 |
my $location = $query->param('location'); |
457 |
my $location = $query->param('location'); |
456 |
my $itemtype = $query->param('itemtype'); |
458 |
my $itemtype = $query->param('itemtype'); |
457 |
my $previousitemtype = $query->param('previousitemtype'); |
459 |
my $previousitemtype = $query->param('previousitemtype'); |
Lines 493-500
sub redirect_mod_subscription {
Link Here
|
493 |
$innerloop1, $lastvalue2, $innerloop2, $lastvalue3, $innerloop3, |
495 |
$innerloop1, $lastvalue2, $innerloop2, $lastvalue3, $innerloop3, |
494 |
$status, $biblionumber, $callnumber, $notes, $letter, |
496 |
$status, $biblionumber, $callnumber, $notes, $letter, |
495 |
$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount, |
497 |
$manualhistory, $internalnotes, $serialsadditems, $staffdisplaycount, |
496 |
$opacdisplaycount, $graceperiod, $location, $enddate, $subscriptionid, |
498 |
$opacdisplaycount, $graceperiod, $warn_when_late, $location, $enddate, $subscriptionid, |
497 |
$skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode, $published_on_template |
499 |
$skip_serialseq, $itemtype, $previousitemtype, $mana_id, $ccode, $published_on_template |
498 |
); |
500 |
); |
499 |
|
501 |
|
500 |
my @additional_fields = |
502 |
my @additional_fields = |
501 |
- |
|
|