removed (replaced by issuingrules.pl, script to come)

diff --git a/admin/charges.pl b/admin/charges.pl
deleted file mode 100755 (executable)
index 702ab0a..0000000
--- a/admin/charges.pl
+++ /dev/null
@@ -1,92 +0,0 @@
-#!/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
-
-use strict;
-use CGI;
-use C4::Context;
-use C4::Output;
-use C4::Database;
-use C4::Auth;
-use C4::Output;
-use C4::Interface::CGI::Output;
-use HTML::Template;
-
-my $input = new CGI;
-
-my $flagsrequired;
-$flagsrequired->{circulation}=1;
-my ($template, $loggedinuser, $cookie)
-    = get_template_and_user({template_name => "parameters/charges.tmpl",
-                             query => $input,
-                             type => "intranet",
-                             authnotrequired => 0,
-                            flagsrequired => {parameters => 1},
-                             debug => 1,
-                             });
-
-my $type=$input->param('type');
-
-my $dbh = C4::Context->dbh;
-my $sth=$dbh->prepare("Select description,categorycode from categories");
-$sth->execute;
- my @trow3;
-my @title_loop;
-my $i=0;
-while (my $data=$sth->fetchrow_hashref){
-       my %row = (in_title => $data->{'description'});
-       push @title_loop,\%row;
-       $trow3[$i]=$data->{'categorycode'};
-       $i++;
-}
-$sth->finish;
-$sth=$dbh->prepare("Select description,itemtype from itemtypes");
-$sth->execute;
-$i=0;
-my $toggle="white";
-my @row_loop;
-while (my $data=$sth->fetchrow_hashref){
-       my @trow2;
-       my @cell_loop;
-       if ( $toggle eq 'white' ) {
-               $toggle = '#ffffcc';
-       } else {
-               $toggle = 'white';
-       }
-       for ($i=0;$i<9;$i++){
-               my $sth2=$dbh->prepare("select * from categoryitem where categorycode=? and itemtype=?");
-               $sth2->execute($trow3[$i],$data->{'itemtype'});
-               my $dat=$sth2->fetchrow_hashref;
-               $sth2->finish;
-               my $fine=$dat->{'fine'}+0;
-#              $trow2[$i]="<input type=text name=\"$trow3[$i].$data->{'itemtype'}\" value=\"$fine,$dat->{'firstremind'},$dat->{'chargeperiod'}\" size=6>";
-               my %row = (inputname=> "$trow3[$i].$data->{'itemtype'}",
-                                               inputvalue => "$fine,$dat->{'firstremind'},$dat->{'chargeperiod'}",
-                                               toggle => $toggle,
-                                               );
-               push @cell_loop,\%row;
-       }
-       my %row = (categorycode => $data->{description},
-                                       cell =>\@cell_loop);
-       push @row_loop, \%row;
-}
-
-$sth->finish;
-$template->param(title => \@title_loop,
-                                               row => \@row_loop);
-output_html_with_http_headers $input, $cookie, $template->output;

diff --git a/koha-tmpl/intranet-tmpl/default/en/parameters/charges.tmpl b/koha-tmpl/intranet-tmpl/default/en/parameters/charges.tmpl
deleted file mode 100644 (file)
index fba66d0..0000000
--- a/koha-tmpl/intranet-tmpl/default/en/parameters/charges.tmpl
+++ /dev/null
@@ -1,29 +0,0 @@
-<!-- TMPL_INCLUDE NAME="parameters-top.inc" -->
-<div id="mainbloc">
-       <p>
-       Each box needs to be filled in with fine,time to start charging,charging cycle<br/>
-       eg 1,7,7 = 1USD,EUR,etc fine, after 7 days, every 7 days</p>
-       <p>Note : fines are calculated by the fines2.pl script, located in misc directory. Ask your administrator to put this script in crontab, after midnight, to have fines calculated every night
-       </p>
-       <form action=/cgi-bin/koha/admin/updatecharges.pl method=post>
-       <table border=0>
-       <TR align="center">
-               <th>&nbsp;</th><!-- TMPL_LOOP name="title" --><th><!-- TMPL_VAR name="in_title" --></th><!-- /TMPL_LOOP -->
-       </TR>
-       <!-- TMPL_LOOP name="row" -->
-               <TR align="center">
-                       <th>
-                               <!-- TMPL_VAR name="categorycode" -->
-                       </th>
-                       <!-- TMPL_LOOP name="cell" -->
-                               <td bgcolor="<!-- TMPL_VAR name="toggle" -->">
-                                       <input name="<!-- TMPL_VAR name="inputname" -->" value="<!-- TMPL_VAR name="inputvalue" -->" size=6 maxlength=10>
-                               </td>
-                       <!-- /TMPL_LOOP -->
-               </TR>
-       <!-- /TMPL_LOOP -->
-       </table>
-       <center><input type=submit value="OK" class="button parameters"></center>
-       </form>
-</div>
-<!-- TMPL_INCLUDE NAME="parameters-bottom.inc" -->