[Koha-cvs] koha/bull acqui-search.pl claims.pl statecollec... [rel_2_2]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Antoine Farnault <toins>        07/05/04 15:50:54

Modified files:
        bull           : acqui-search.pl claims.pl statecollection.pl 
                         subscription-add.pl 

Log message:
        - GPL added.
        - commenting some Data::Dumper
        - removing some syspref already writed on auth.pm.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/bull/acqui-search.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.2.2.3&r2=1.2.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/bull/claims.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/statecollection.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.3.2.27&r2=1.3.2.28
http://cvs.savannah.gnu.org/viewcvs/koha/bull/subscription-add.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.5.2.11&r2=1.5.2.12

Patches:
Index: acqui-search.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/acqui-search.pl,v
retrieving revision 1.2.2.3
retrieving revision 1.2.2.4
diff -u -b -r1.2.2.3 -r1.2.2.4
--- acqui-search.pl     5 Feb 2006 21:59:21 -0000       1.2.2.3
+++ acqui-search.pl     4 May 2007 15:50:54 -0000       1.2.2.4
@@ -1,12 +1,30 @@
 #!/usr/bin/perl
 
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA  02111-1307 USA
+
+# $Id: acqui-search.pl,v 1.2.2.4 2007/05/04 15:50:54 toins Exp $
+
 use strict;
 use CGI;
 use C4::Auth;
 use C4::Output;
 use C4::Interface::CGI::Output;
 use C4::Database;
-use HTML::Template;
 use C4::Acquisition;
 my $query = new CGI;
 my ($template, $loggedinuser, $cookie)
@@ -58,9 +76,6 @@
                                                totspent => 
sprintf("%.2f",$totspent),
                                                totcomtd => 
sprintf("%.2f",$totcomtd),
                                                totavail => 
sprintf("%.2f",$totavail),
-                                               intranetcolorstylesheet => 
C4::Context->preference("intranetcolorstylesheet"),
-               intranetstylesheet => 
C4::Context->preference("intranetstylesheet"),
-               IntranetNav => C4::Context->preference("IntranetNav"),
                                                );
 
 output_html_with_http_headers $query, $cookie, $template->output;

Index: claims.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/claims.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
--- claims.pl   24 Nov 2006 00:18:05 -0000      1.1.2.1
+++ claims.pl   4 May 2007 15:50:54 -0000       1.1.2.2
@@ -1,5 +1,24 @@
 #!/usr/bin/perl
 
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA  02111-1307 USA
+
+# $Id: claims.pl,v 1.1.2.2 2007/05/04 15:50:54 toins Exp $
+
 use strict;
 use CGI;
 use C4::Auth;
@@ -8,8 +27,6 @@
 use C4::Output;
 use C4::Interface::CGI::Output;
 use C4::Context;
-use HTML::Template;
-use Data::Dumper;
 
 my $query = new CGI;
 
@@ -52,7 +69,7 @@
        $missingissues[$i]->{'supplierid'} = 
getsupplierbyserialid($missingissues[$i]->{'serialid'});
    }
 }
- warn Dumper(address@hidden);
+# warn Dumper(address@hidden);
 
 my $preview=0;
 if($op eq 'preview'){

Index: statecollection.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/statecollection.pl,v
retrieving revision 1.3.2.27
retrieving revision 1.3.2.28
diff -u -b -r1.3.2.27 -r1.3.2.28
--- statecollection.pl  26 Apr 2007 01:05:05 -0000      1.3.2.27
+++ statecollection.pl  4 May 2007 15:50:54 -0000       1.3.2.28
@@ -1,5 +1,24 @@
 #!/usr/bin/perl
 
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA  02111-1307 USA
+
+# $Id: statecollection.pl,v 1.3.2.28 2007/05/04 15:50:54 toins Exp $
+
 use strict;
 use CGI;
 use C4::Auth;
@@ -10,7 +29,6 @@
 use C4::Interface::CGI::Output;
 use C4::Context;
 use C4::Bull;
-use HTML::Template;
 use Date::Calc qw(:all);
 
 my $query = new CGI;

Index: subscription-add.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/subscription-add.pl,v
retrieving revision 1.5.2.11
retrieving revision 1.5.2.12
diff -u -b -r1.5.2.11 -r1.5.2.12
--- subscription-add.pl 30 Apr 2007 03:34:34 -0000      1.5.2.11
+++ subscription-add.pl 4 May 2007 15:50:54 -0000       1.5.2.12
@@ -1,5 +1,23 @@
 #!/usr/bin/perl
 
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA  02111-1307 USA
+
+# $Id: subscription-add.pl,v 1.5.2.12 2007/05/04 15:50:54 toins Exp $
 
 use strict;
 use CGI;
@@ -10,7 +28,6 @@
 use C4::Acquisition;
 use C4::Interface::CGI::Output;
 use C4::Context;
-use HTML::Template;
 use C4::Bull;
 use Date::Calc qw(:all);
 
@@ -35,7 +52,6 @@
                                debug => 1,
                                });
 
-
 my $weekarrayjs='';
 my $count = 0;
 my ($year, $month, $day) = Date::Calc::Today;
@@ -183,7 +199,6 @@
                                        
$add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3,
                                        "$numberingmethod", "$status", $notes
                                );      
-       
        }
        print 
$query->redirect("/cgi-bin/koha/bull/subscription-detail.pl?subscriptionid=$subscriptionid");
 } else {
@@ -207,7 +222,8 @@
         } else {
             $dateformat = '%d/%m/%Y';
         }
-        $template->param(subtype => address@hidden,
+        $template->param(
+                    subtype => address@hidden,
                     weekarrayjs => $weekarrayjs,
                     weekno => $weekno,
                     dateformat => $dateformat,