From: hdl <hdl>
Date: Wed, 27 Jun 2007 22:09:15 +0000 (+0000)
Subject: Removing some Warnings.
X-Git-Tag: dev_week~155
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=7881f45fde1e8f7e9f2c23f1da7e80b5d38b65f2;p=srvgit

Removing some Warnings.
---

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 ";