From 1e0d19e820d3466f1992644b93b0b52123b89f6f Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 4 May 2004 15:24:34 +0000
Subject: [PATCH] removed (replaced by issuingrules.pl, script to come)

---
 admin/charges.pl                                   | 92 ----------------------
 .../default/en/parameters/charges.tmpl             | 29 -------
 2 files changed, 121 deletions(-)
 delete mode 100755 admin/charges.pl
 delete mode 100644 koha-tmpl/intranet-tmpl/default/en/parameters/charges.tmpl

diff --git a/admin/charges.pl b/admin/charges.pl
deleted file mode 100755
index 702ab0afa1..0000000000
--- 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
index fba66d01e2..0000000000
--- 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" -->
-- 
2.11.0