gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 11689: (follow-up) fix warnings generated when running Serials.t 

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
Jonathan Druart 2014-02-27 13:12:40 +01:00 committed by Galen Charlton
parent a9f1c3a66f
commit d2c424eda2
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C4/Serials.pm
View File

@ -2544,10 +2544,12 @@ sub GetNextDate {
# 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

10
t/db_dependent/Serials.t
View File

@ -41,7 +41,7 @@ my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
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"
});
@ -58,7 +58,13 @@ my $budget_id = AddBudget({
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(