From 1e0d19e820d3466f1992644b93b0b52123b89f6f Mon Sep 17 00:00:00 2001 From: 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]="{'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 @@ - -
-

- Each box needs to be filled in with fine,time to start charging,charging cycle
- eg 1,7,7 = 1USD,EUR,etc fine, after 7 days, every 7 days

-

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 -

-
- - - - - - - - - - - - -
 
- - "> - " value="" size=6 maxlength=10> -
-
-
-
- -- 2.39.5