[Koha-cvs] koha/C4 Serials.pm [rel_3_0]

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Henri-Damien LAURENT <hdl>      07/02/05 09:01:57

Modified files:
        C4             : Serials.pm 

Log message:
        Removing warns

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Serials.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.5.2.30&r2=1.5.2.31

Patches:
Index: Serials.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Serials.pm,v
retrieving revision 1.5.2.30
retrieving revision 1.5.2.31
diff -u -b -r1.5.2.30 -r1.5.2.31
--- Serials.pm  29 Jan 2007 10:29:54 -0000      1.5.2.30
+++ Serials.pm  5 Feb 2007 09:01:57 -0000       1.5.2.31
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Serials.pm,v 1.5.2.30 2007/01/29 10:29:54 hdl Exp $
+# $Id: Serials.pm,v 1.5.2.31 2007/02/05 09:01:57 hdl Exp $
 
 use strict;
 use C4::Date;
@@ -35,7 +35,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.5.2.30 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.5.2.31 $' =~ /\d+/g;
     shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
 };
 
@@ -1063,7 +1063,7 @@
         }
     }
     elsif ( $subscription->{monthlength} ){
-        warn "dateCHECKRESERV :".$subscription->{startdate};
+#         warn "dateCHECKRESERV :".$subscription->{startdate};
         my @date=split (/-/,$subscription->{startdate});
         my @enddate = 
Add_Delta_YM($date[0],$date[1],$date[2],0,$subscription->{monthlength});
         $enddate=sprintf("%04d-%02d-%02d",$enddate[0],$enddate[1],$enddate[2]);
@@ -1082,7 +1082,7 @@
         my @enddate = 
Add_Delta_Days($date[0],$date[1],$date[2],$subscription->{weeklength}*7);
         $enddate=sprintf("%04d-%02d-%02d",$enddate[0],$enddate[1],$enddate[2]);
     }
-    warn "date de fin :$enddate";
+#     warn "date de fin :$enddate";
     return $enddate;
 }
 
@@ -1268,7 +1268,7 @@
         $internalnotes,
         $subscriptionid
     ) = @_;
-    warn $irregularity;
+#     warn $irregularity;
     my $dbh   = C4::Context->dbh;
     my $query = "UPDATE subscription
                     SET librarian=?, 
branchcode=?,aqbooksellerid=?,cost=?,aqbudgetid=?,startdate=?,
@@ -2274,7 +2274,7 @@
         "select max(planneddate) from serial where subscriptionid=?");
     $sth->execute($subscriptionid);
     my ($res) = $sth->fetchrow ;
-    warn "date expiration : ".$expirationdate." date courante ".$res;
+#     warn "date expiration : ".$expirationdate." date courante ".$res;
     my @res=split /-/,$res;
     my @endofsubscriptiondate=split/-/,$expirationdate;
     my $per = $subscription->{'periodicity'};