[Koha-cvs] koha/bull acqui-search.pl claims.pl statecollec... [rel_2_2]
Antoine Farnault
antoine at koha-fr.org
Fri May 4 17:50:54 CEST 2007
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(\@missingissues);
+# warn Dumper(\@missingissues);
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 => \@sub_type_data,
+ $template->param(
+ subtype => \@sub_type_data,
weekarrayjs => $weekarrayjs,
weekno => $weekno,
dateformat => $dateformat,
More information about the Koha-cvs
mailing list