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

(-)a/C4/Serials.pm (-3 / +5 lines)
Lines 2549-2558 sub GetNextDate { Link Here
2549
        # irreg1;irreg2;irreg3
2549
        # irreg1;irreg2;irreg3
2550
        # where irregX is the number of issue which will not be received
2550
        # where irregX is the number of issue which will not be received
2551
        # (the first issue takes the number 1, the 2nd the number 2 and so on)
2551
        # (the first issue takes the number 1, the 2nd the number 2 and so on)
2552
        my @irreg = split /;/, $subscription->{'irregularity'} ;
2553
        my %irregularities;
2552
        my %irregularities;
2554
        foreach my $irregularity (@irreg) {
2553
        if ( $subscription->{irregularity} ) {
2555
            $irregularities{$irregularity} = 1;
2554
            my @irreg = split /;/, $subscription->{'irregularity'} ;
2555
            foreach my $irregularity (@irreg) {
2556
                $irregularities{$irregularity} = 1;
2557
            }
2556
        }
2558
        }
2557
2559
2558
        # Get the 'fictive' next issue number
2560
        # Get the 'fictive' next issue number
(-)a/t/db_dependent/Serials.t (-3 / +8 lines)
Lines 41-47 my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, ''); Link Here
41
my $budgetid;
41
my $budgetid;
42
my $bpid = AddBudgetPeriod({
42
my $bpid = AddBudgetPeriod({
43
    budget_period_startdate => '01-01-2015',
43
    budget_period_startdate => '01-01-2015',
44
    budget_period_enddate   => '12-31-2015',
44
    budget_period_enddate   => '31-12-2015',
45
    budget_description      => "budget desc"
45
    budget_description      => "budget desc"
46
});
46
});
47
47
Lines 58-64 my $budget_id = AddBudget({ Link Here
58
my $frequency_id = AddSubscriptionFrequency({ description => "Test frequency 1" });
58
my $frequency_id = AddSubscriptionFrequency({ description => "Test frequency 1" });
59
my $pattern_id = AddSubscriptionNumberpattern({
59
my $pattern_id = AddSubscriptionNumberpattern({
60
    label => 'Test numberpattern 1',
60
    label => 'Test numberpattern 1',
61
    numberingmethod => '{X}'
61
    numberingmethod => '{X}',
62
    label1 => q{},
63
    add1 => 1,
64
    every1 => 1,
65
    every1 => 1,
66
    numbering1 => 1,
67
    whenmorethan1 => 1,
62
});
68
});
63
69
64
my $subscriptionid = NewSubscription(
70
my $subscriptionid = NewSubscription(
65
- 

Return to bug 11689