From 7881f45fde1e8f7e9f2c23f1da7e80b5d38b65f2 Mon Sep 17 00:00:00 2001
From: hdl <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