Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100755 61 lines (52 sloc) 1.551 kB
d0374d0 Initial revision
rangi authored
1 #!/usr/bin/perl
2
3 #script to display reports
4 #written 8/11/99
5
6 use strict;
7 use CGI;
8 use C4::Output;
9 use C4::Database;
10
11 my $input = new CGI;
12 print $input->header;
13 my $type=$input->param('type');
14 print startpage();
15 print startmenu('issue');
16 print "Each box needs to be filled in with fine,time to start charging,charging cycle<br>
17 eg 1,7,7 = $1 fine, after 7 days, every 7 days";
18
19 my $dbh=C4Connect;
20 my $query="Select description,categorycode from categories";
21 my $sth=$dbh->prepare($query);
22 $sth->execute;
23 print mktablehdr;
24 my @trow;
25 my @trow3;
26 my $i=0;
27 while (my $data=$sth->fetchrow_hashref){
28 $trow[$i]=$data->{'description'};
29 $trow3[$i]=$data->{'categorycode'};
30 $i++;
31 }
32 $sth->finish;
33 print mktablerow(10,'white','',@trow);
34 print "<form action=/cgi-bin/koha/updatecharges.pl method=post>";
35 $query="Select description,itemtype from itemtypes";
36 $sth=$dbh->prepare($query);
37 $sth->execute;
38 $i=0;
39
40 while (my $data=$sth->fetchrow_hashref){
41 my @trow2;
42 for ($i=0;$i<9;$i++){
43 $query="select * from categoryitem where categorycode='$trow3[$i]' and itemtype='$data->{'itemtype'}'";
44 my $sth2=$dbh->prepare($query);
45 $sth2->execute;
46 my $dat=$sth2->fetchrow_hashref;
47 $sth2->finish;
48 my $fine=$dat->{'fine'}+0;
49 $trow2[$i]="<input type=text name=\"$trow3[$i]$data->{'itemtype'}\" value=\"$fine,$dat->{'startcharge'},$dat->{'chargeperiod'}\" size=6>";
50 }
51 print mktablerow(11,'white',$data->{'description'},@trow2);
52 }
53
54 $sth->finish;
55
56
57 print "</table>";
58 print "<input type=submit></form>";
59 print endmenu('issue');
60 print endpage();
Something went wrong with that request. Please try again.