# irreg1;irreg2;irreg3
# where irregX is the number of issue which will not be received
# (the first issue takes the number 1, the 2nd the number 2 and so on)
- my @irreg = split /;/, $subscription->{'irregularity'} ;
my %irregularities;
- foreach my $irregularity (@irreg) {
- $irregularities{$irregularity} = 1;
+ if ( $subscription->{irregularity} ) {
+ my @irreg = split /;/, $subscription->{'irregularity'} ;
+ foreach my $irregularity (@irreg) {
+ $irregularities{$irregularity} = 1;
+ }
}
# Get the 'fictive' next issue number
my $budgetid;
my $bpid = AddBudgetPeriod({
budget_period_startdate => '01-01-2015',
- budget_period_enddate => '12-31-2015',
+ budget_period_enddate => '31-12-2015',
budget_description => "budget desc"
});
my $frequency_id = AddSubscriptionFrequency({ description => "Test frequency 1" });
my $pattern_id = AddSubscriptionNumberpattern({
label => 'Test numberpattern 1',
- numberingmethod => '{X}'
+ numberingmethod => '{X}',
+ label1 => q{},
+ add1 => 1,
+ every1 => 1,
+ every1 => 1,
+ numbering1 => 1,
+ whenmorethan1 => 1,
});
my $subscriptionid = NewSubscription(