View | Details | Raw Unified | Return to bug 8956
Collapse All | Expand All

(-)a/serials/subscription-add.pl (-12 / +13 lines)
Lines 137-143 my $branches = GetBranches($onlymine); Link Here
137
my $branchloop;
137
my $branchloop;
138
for my $thisbranch (
138
for my $thisbranch (
139
    sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} }
139
    sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} }
140
    keys %{$branches} )
140
    keys %{$branches}
141
  )
141
{
142
{
142
    my $selected = 0;
143
    my $selected = 0;
143
    $selected = 1 if ( defined($subs) && $thisbranch eq $subs->{'branchcode'} );
144
    $selected = 1 if ( defined($subs) && $thisbranch eq $subs->{'branchcode'} );
Lines 275-283 sub redirect_add_subscription { Link Here
275
    my $missinglist    = $query->param('missinglist');
276
    my $missinglist    = $query->param('missinglist');
276
    my $opacnote       = $query->param('opacnote');
277
    my $opacnote       = $query->param('opacnote');
277
    my $librariannote  = $query->param('librariannote');
278
    my $librariannote  = $query->param('librariannote');
278
    my $x_label           = $query->param('x_label');
279
    my $x_label        = $query->param('x_label');
279
    my $y_label           = $query->param('y_label');
280
    my $y_label        = $query->param('y_label');
280
    my $z_label           = $query->param('z_label');
281
    my $z_label        = $query->param('z_label');
281
    my $subscriptionid = NewSubscription(
282
    my $subscriptionid = NewSubscription(
282
        $auser,           $branchcode,
283
        $auser,           $branchcode,
283
        $aqbooksellerid,  $cost,
284
        $aqbooksellerid,  $cost,
Lines 302-309 sub redirect_add_subscription { Link Here
302
        $internalnotes,     $serialsadditems,
303
        $internalnotes,     $serialsadditems,
303
        $staffdisplaycount, $opacdisplaycount,
304
        $staffdisplaycount, $opacdisplaycount,
304
        $graceperiod,       $location,
305
        $graceperiod,       $location,
305
        $enddate,
306
        $enddate,           $x_label,
306
        $x_label, $y_label, $z_label,
307
        $y_label,           $z_label,
307
    );
308
    );
308
    ModSubscriptionHistory(
309
    ModSubscriptionHistory(
309
        $subscriptionid, $histstartdate, $histenddate, $recievedlist,
310
        $subscriptionid, $histstartdate, $histenddate, $recievedlist,
Lines 380-390 sub redirect_mod_subscription { Link Here
380
    my $nextexpected      = GetNextExpected($subscriptionid);
381
    my $nextexpected      = GetNextExpected($subscriptionid);
381
382
382
    # field labels
383
    # field labels
383
    my $x_label           = $query->param('x_label');
384
    my $x_label = $query->param('x_label');
384
    my $y_label           = $query->param('y_label');
385
    my $y_label = $query->param('y_label');
385
    my $z_label           = $query->param('z_label');
386
    my $z_label = $query->param('z_label');
386
387
387
    #  If it's  a mod, we need to check the current 'expected' issue, and mod it in the serials table if necessary.
388
#  If it's  a mod, we need to check the current 'expected' issue, and mod it in the serials table if necessary.
388
    if ( $nextacquidate ne $nextexpected->{planneddate}->output('iso') ) {
389
    if ( $nextacquidate ne $nextexpected->{planneddate}->output('iso') ) {
389
        ModNextExpected( $subscriptionid,
390
        ModNextExpected( $subscriptionid,
390
            C4::Dates->new( $nextacquidate, 'iso' ) );
391
            C4::Dates->new( $nextacquidate, 'iso' ) );
Lines 418-424 sub redirect_mod_subscription { Link Here
418
        $staffdisplaycount, $opacdisplaycount,
419
        $staffdisplaycount, $opacdisplaycount,
419
        $graceperiod,       $location,
420
        $graceperiod,       $location,
420
        $enddate,           $subscriptionid,
421
        $enddate,           $subscriptionid,
421
        $x_label,           $y_label,          $z_label
422
        $x_label,           $y_label,
423
        $z_label
422
    );
424
    );
423
    ModSubscriptionHistory(
425
    ModSubscriptionHistory(
424
        $subscriptionid, $histstartdate, $histenddate, $recievedlist,
426
        $subscriptionid, $histstartdate, $histenddate, $recievedlist,
425
- 

Return to bug 8956