[Koha-cvs] koha/bull member-search.pl routing-preview.pl r... [rel_2_2]

[Robert Lyon]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Robert Lyon <bob_lyon>	06/11/27 04:39:35

Modified files:
	bull           : member-search.pl routing-preview.pl routing.pl 
	                 subscription-add.pl 

Log message:
	Removing warns and data dumps from the code

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/bull/member-search.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.1&r2=1.1.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/bull/routing-preview.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.1&r2=1.1.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/bull/routing.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.1&r2=1.1.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/bull/subscription-add.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.5.2.6&r2=1.5.2.7

Patches:
Index: member-search.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/member-search.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- member-search.pl	24 Nov 2006 00:18:05 -0000	1.1.2.1
+++ member-search.pl	27 Nov 2006 04:39:35 -0000	1.1.2.2
@@ -35,8 +35,6 @@
 
 if($searchstring){
     my ($count, $members) = &BornameSearch($env, $searchstring, "surname", "advanced");
-    warn Dumper($count);
-    warn Dumper($members);
     
     $template->param(
 	subscriptionid => $subscriptionid,

Index: routing-preview.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/routing-preview.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- routing-preview.pl	24 Nov 2006 00:18:05 -0000	1.1.2.1
+++ routing-preview.pl	27 Nov 2006 04:39:35 -0000	1.1.2.2
@@ -17,7 +17,6 @@
 use HTML::Template;
 use C4::Search;
 use C4::Bull;
-use Data::Dumper;
 
 my $query = new CGI;
 my $subscriptionid = $query->param('subscriptionid');
@@ -68,8 +67,6 @@
                                  AND cancellationdate is NULL AND (found <> 'F' or found is NULL)");
         $sth->execute($biblio,$routinglist[$i]->{'borrowernumber'});
         my $data = $sth->fetchrow_hashref;
-#	warn Dumper($data);
-#       warn "$routinglist[$i]->{'borrowernumber'} is the same as $data->{'borrowernumber'}";
 	if($routinglist[$i]->{'borrowernumber'} == $data->{'borrowernumber'}){
 	    UpdateReserve($routinglist[$i]->{'ranking'},$biblio,$routinglist[$i]->{'borrowernumber'},$branch);
         } else {

Index: routing.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/routing.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- routing.pl	24 Nov 2006 00:18:05 -0000	1.1.2.1
+++ routing.pl	27 Nov 2006 04:39:35 -0000	1.1.2.2
@@ -16,7 +16,6 @@
 use HTML::Template;
 use C4::Search;
 use C4::Bull;
-use Data::Dumper;
 
 my $query = new CGI;
 my $subscriptionid = $query->param('subscriptionid');
@@ -46,9 +45,6 @@
 my ($count, at serials) = old_getserials($subscriptionid);
 my ($serialdates) = getlatestserials($subscriptionid,$count);
 
-use Data::Dumper;
-warn "count $count";
-warn Dumper($serialdates);
 my @dates;
 my $i=0;
 foreach my $dateseq (@$serialdates) {
@@ -62,7 +58,6 @@
         }
         $i++;
 }
-warn Dumper(@dates);
 
 my ($template, $loggedinuser, $cookie)
 = get_template_and_user({template_name => "bull/routing.tmpl",
@@ -107,7 +102,7 @@
     
     push(@results, $data);
 }
-# warn Dumper(@results);
+
 # for adding routing list
 my $new;
 if ($op eq 'new') {

Index: subscription-add.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/subscription-add.pl,v
retrieving revision 1.5.2.6
retrieving revision 1.5.2.7
diff -u -b -r1.5.2.6 -r1.5.2.7
--- subscription-add.pl	27 Nov 2006 00:27:43 -0000	1.5.2.6
+++ subscription-add.pl	27 Nov 2006 04:39:35 -0000	1.5.2.7
@@ -52,7 +52,6 @@
         $wkno++;    
 }
 chop($weekarrayjs);
-# warn $weekarrayjs;
 
 my $sub_on;
 my @subscription_types = (