From 7881f45fde1e8f7e9f2c23f1da7e80b5d38b65f2 Mon Sep 17 00:00:00 2001 From: hdl Date: Wed, 27 Jun 2007 22:09:15 +0000 Subject: [PATCH] Removing some Warnings. --- C4/Serials.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/C4/Serials.pm b/C4/Serials.pm index f7f205722b..d0949d20e3 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -927,7 +927,6 @@ sub GetNextSeq { $calculated, $newlastvalue1, $newlastvalue2, $newlastvalue3, $newinnerloop1, $newinnerloop2, $newinnerloop3 ); - use Data::Dumper; warn Dumper($val); my $pattern = $val->{numberpattern}; my @seasons = ( 'nothing', 'Winter', 'Spring', 'Summer', 'Autumn' ); my @southern_seasons = ( '', 'Summer', 'Autumn', 'Winter', 'Spring' ); @@ -1206,12 +1205,12 @@ sub ModSerialStatus { my $val = $sth->fetchrow_hashref; # next issue number - warn "Next Seq"; +# warn "Next Seq"; my ( $newserialseq, $newlastvalue1, $newlastvalue2, $newlastvalue3, $newinnerloop1, $newinnerloop2, $newinnerloop3 ) = GetNextSeq($val); - warn "Next Seq End"; +# warn "Next Seq End"; # next date (calculated from actual date & frequency parameters) # warn "publisheddate :$publisheddate "; -- 2.39.5