removing '-' in isbn to allow amazon content.
[koha.git] / admin / finesrules.pl
1 #!/usr/bin/perl
2
3 # Copyright 2000-2002 Katipo Communications
4 #
5 # This file is part of Koha.
6 #
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
10 # version.
11 #
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA  02111-1307 USA
19
20 use strict;
21 use CGI;
22 use C4::Context;
23 use C4::Auth;
24 use C4::Output;
25
26 use C4::Koha;
27 use C4::Branch; # GetBranches
28
29 my $input = new CGI;
30 my $dbh = C4::Context->dbh;
31
32 my $type=$input->param('type');
33 my $branch = $input->param('branch');
34 $branch="" unless $branch;
35 my $op = $input->param('op');
36
37 # my $flagsrequired;
38 # $flagsrequired->{circulation}=1;
39 my ($template, $loggedinuser, $cookie)
40     = get_template_and_user({template_name => "admin/finesrules.tmpl",
41                              query => $input,
42                              type => "intranet",
43                              authnotrequired => 0,
44                              flagsrequired => {parameters => 1},
45                               debug => 1,
46                              });
47 # save the values entered
48 if ($op eq 'save') {
49   my @names=$input->param();
50   my $sth_search = $dbh->prepare("select count(*) as total from issuingrules where branchcode=? and categorycode=? and itemtype=?");
51
52   my $sth_Finsert = $dbh->prepare("insert into issuingrules (branchcode,categorycode,itemtype,fine,firstremind,chargeperiod) values (?,?,?,?,?,?)");
53   my $sth_Fupdate=$dbh->prepare("Update issuingrules set fine=?,firstremind=?,chargeperiod=? where branchcode=? and categorycode=? and itemtype=?");
54   my $sth_Fdelete=$dbh->prepare("delete from issuingrules where branchcode=? and categorycode=? and itemtype=? and issuelength=0");
55
56   foreach my $key (@names){
57     # FINES
58     if ($key =~ /F-(.*)-(.*)\.(.*)/) {
59       my $br = $1; # branch
60       my $bor = $2; # borrower category
61       my $cat = $3; # item type
62       my $data=$input->param($key);
63       my ($fine,$firstremind,$chargeperiod)=split(',',$data);
64       warn "$br $bor $cat $fine $firstremind $chargeperiod";
65 #                       if ($fine >0) {
66 #       $br="*" unless ($br);
67       $bor="*" unless ($bor);
68       $cat="*" unless ($cat);
69       $sth_search->execute($br,$bor,$cat);
70       my $res = $sth_search->fetchrow_hashref();
71       if ($res->{total}) {
72               $sth_Fupdate->execute($fine,$firstremind,$chargeperiod,$br,$bor,$cat);
73       } else {
74               $sth_Finsert->execute($br,$bor,$cat,$fine,$firstremind,$chargeperiod);
75       }
76     }
77   }
78
79 }
80 my $branches = GetBranches;
81 my @branchloop;
82 foreach my $thisbranch (keys %$branches) {
83         my $selected = 1 if $thisbranch eq $branch;
84         my %row =(value => $thisbranch,
85                                 selected => $selected,
86                                 branchname => $branches->{$thisbranch}->{'branchname'},
87                         );
88         push @branchloop, \%row;
89 }
90
91 my $sth=$dbh->prepare("Select description,categorycode from categories order by description");
92 $sth->execute;
93 my @trow3;
94 my @title_loop;
95 # my $i=0;
96 while (my $data=$sth->fetchrow_hashref){
97         my %row = (in_title => $data->{'description'});
98         push @title_loop,\%row;
99         push @trow3,$data->{'categorycode'};
100 #       $i++;
101 }
102
103 my %row = (in_title => "*");
104 push @title_loop, \%row;
105 push @trow3,'*';
106
107 $sth->finish;
108 $sth=$dbh->prepare("Select description,itemtype from itemtypes order by description");
109 $sth->execute;
110 # $i=0;
111 my $toggle= 1;
112 my @row_loop;
113 my @itemtypes;
114 while (my $row=$sth->fetchrow_hashref){
115         push @itemtypes,\$row;
116 }
117 my $line;
118 $line->{itemtype} = "*";
119 $line->{description} = "*";
120 push @itemtypes,\$line;
121
122 foreach my $data (@itemtypes) {
123         my @trow2;
124         my @cell_loop;
125         if ( $toggle eq 1 ) {
126                 $toggle = 0;
127         } else {
128                 $toggle = 1;
129         }
130         for (my $i=0;$i<=$#trow3;$i++){
131                 my $sth2=$dbh->prepare("select * from issuingrules where branchcode=? and categorycode=? and itemtype=?");
132                 $sth2->execute($branch,$trow3[$i],$$data->{'itemtype'});
133                 my $dat=$sth2->fetchrow_hashref;
134                 $sth2->finish;
135                 my $fine=$dat->{'fine'}+0;
136                 my $finesvalue;
137                 $finesvalue= "$fine,$dat->{'firstremind'},$dat->{'chargeperiod'}" if $fine+$dat->{'firstremind'}+$dat->{'chargeperiod'}>0;
138                 my %row = (finesname=> "F-$branch-$trow3[$i].$$data->{'itemtype'}",
139                                         finesvalue => $finesvalue,
140                                         toggle => $toggle,
141                                         );
142                 push @cell_loop,\%row;
143         }
144         my %row = (categorycode => $$data->{description},
145                                         cell =>\@cell_loop);
146         push @row_loop, \%row;
147 }
148
149 $sth->finish;
150 $template->param(title => \@title_loop,
151                 row => \@row_loop,
152                 branchloop => \@branchloop,
153                 branch => $branch,
154                 intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
155                 intranetstylesheet => C4::Context->preference("intranetstylesheet"),
156                 IntranetNav => C4::Context->preference("IntranetNav"),
157                                                 );
158 output_html_with_http_headers $input, $cookie, $template->output;