X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=admin%2Faqbookfund.pl;h=d5673c8c36488cbe4f0dcd822e6d815f74dc9e87;hb=98406923bb2d6a7632d5c8f10525c398efa594bf;hp=63335ab28d72b1868fff15fb2a67d402f290e04c;hpb=52a5fd4bbd16fb70dafadbb6ebcdf4dd6d6e929c;p=koha.git diff --git a/admin/aqbookfund.pl b/admin/aqbookfund.pl index 63335ab28d..d5673c8c36 100755 --- a/admin/aqbookfund.pl +++ b/admin/aqbookfund.pl @@ -1,24 +1,6 @@ #!/usr/bin/perl -#script to administer the aqbudget table #written 20/02/2002 by paul.poulain@free.fr -# This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html) - -# ALGO : -# this script use an $op to know what to do. -# if $op is empty or none of the above values, -# - the default screen is build (with all records, or filtered datas). -# - the user can clic on add, modify or delete record. -# if $op=add_form -# - if primkey exists, this is a modification,so we read the $primkey record -# - builds the add/modify form -# if $op=add_validate -# - the user has just send datas, so we create/modify the record -# if $op=delete_form -# - we show the record having primkey=$primkey and ask for deletion validation form -# if $op=delete_confirm -# - we delete the record having primkey=$primkey - # Copyright 2000-2002 Katipo Communications # @@ -37,173 +19,277 @@ # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, # Suite 330, Boston, MA 02111-1307 USA + +=head1 NAME + +aqbookfund.pl + +=head1 DESCRIPTION + +script to administer the aqbudget table. + +=head1 CGI PARAMETERS + +=over 4 + +=item op +this script use an C<$op> to know what to do. +C can be equal to: +* empty or none of the above values, then + - the default screen is build (with all records, or filtered datas). + - the user can clic on add, modify or delete record. +* add_form, then + - if primkey exists, this is a modification,so we read the $primkey record + - builds the add/modify form +* add_validate, then + - the user has just send datas, so we create/modify the record +* delete_form, then + - we show the record having primkey=$primkey and ask for deletion validation form +* delete_confirm, then + - we delete the record having primkey=$primkey + +=cut + use strict; use CGI; +use List::Util qw/min/; +use C4::Branch; # GetBranches use C4::Auth; +use C4::Koha; use C4::Context; +use C4::Bookfund; use C4::Output; -use C4::Interface::CGI::Output; -use C4::Search; -use HTML::Template; - -sub StringSearch { - my ($env,$searchstring,$type)=@_; - my $dbh = C4::Context->dbh; - $searchstring=~ s/\'/\\\'/g; - my @data=split(' ',$searchstring); - my $count=@data; - my $query="select bookfundid,bookfundname,bookfundgroup from aqbookfund where (bookfundid like \"$data[0]%\") order by bookfundid"; - my $sth=$dbh->prepare($query); - $sth->execute; - my @results; - my $cnt=0; - while (my $data=$sth->fetchrow_hashref){ - push(@results,$data); - $cnt ++; - } - # $sth->execute; - $sth->finish; - return ($cnt,\@results); -} +use C4::Dates; +use C4::Debug; +# use Smart::Comments; + +my $dbh = C4::Context->dbh; my $input = new CGI; -my $searchfield=$input->param('searchfield'); -my $offset=$input->param('offset'); my $script_name="/cgi-bin/koha/admin/aqbookfund.pl"; my $bookfundid=$input->param('bookfundid'); -my $pagesize=20; -my $op = $input->param('op'); -$searchfield=~ s/\,//g; +my $branchcodeid=$input->param('branchcode')|''; +my $pagesize = 10; +my $op = $input->param('op') || ''; my ($template, $borrowernumber, $cookie) - = get_template_and_user({template_name => "parameters/aqbookfund.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {parameters => 1}, - debug => 1, - }); + = get_template_and_user( + {template_name => "admin/aqbookfund.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + debug => 1, + } + ); if ($op) { -$template->param(script_name => $script_name, - $op => 1); # we show only the TMPL_VAR names $op -} else { -$template->param(script_name => $script_name, - else => 1); # we show only the TMPL_VAR names $op + $template->param( + script_name => $script_name, + $op => 1, + ); # we show only the TMPL_VAR names $op +} +else { + $template->param(script_name => $script_name, + else => 1); # we show only the TMPL_VAR names $op } $template->param(action => $script_name); +my $branches = GetBranches; -################## ADD_FORM ################################## +#-----############# ADD_FORM ################################## # called by default. Used to create form to add or modify a record if ($op eq 'add_form') { #---- if primkey exists, it's a modify action, so read values to modify... - my $data; + my $dataaqbookfund; my $header; if ($bookfundid) { - my $dbh = C4::Context->dbh; - my $sth=$dbh->prepare("select bookfundid,bookfundname,bookfundgroup from aqbookfund where bookfundid='$bookfundid'"); - $sth->execute; - $data=$sth->fetchrow_hashref; - $sth->finish; - } + $dataaqbookfund = GetBookFund($bookfundid,$branchcodeid); + } if ($bookfundid) { $header = "Modify book fund"; + $template->param('header-is-modify-p' => 1); + $template->param('current_branch' => $branchcodeid); } else { $header = "Add book fund"; + $template->param('header-is-add-p' => 1); } - $template->param(header => $header); + $template->param('use-header-flags-p' => 1); + $template->param(header => $header); # NOTE deprecated my $add_or_modify=0; if ($bookfundid) { $add_or_modify=1; } $template->param(add_or_modify => $add_or_modify); $template->param(bookfundid =>$bookfundid); - $template->param(bookfundname =>$data->{'bookfundname'}); - $template->param(bookfundgroup =>$data->{'bookfundgroup'}); + $template->param(bookfundname =>$dataaqbookfund->{'bookfundname'}); + + my @branchloop; + foreach my $branchcode (sort keys %{$branches}) { + my $row = { + branchcode => $branchcode, + branchname => $branches->{$branchcode}->{branchname}, + }; + + if (defined $bookfundid + and defined $dataaqbookfund->{branchcode} + and $dataaqbookfund->{branchcode} eq $branchcode) { + $row->{selected} = 1; + } + + push @branchloop, $row; + } + + $template->param(branches => \@branchloop); + +} # END $OP eq ADD_FORM + +#-----############# ADD_VALIDATE ################################## +# called by add_form, used to insert/modify data in DB +elsif ($op eq 'add_validate') { +### add + my $bookfundid = uc $input->param('bookfundid'); + my $bookfundname = $input->param('bookfundname'); + my $branchcode = $input->param('branchcode') || undef; + + my $number = Countbookfund($bookfundid,$branchcodeid); + if ($number == 0 ) { - # END $OP eq ADD_FORM -################## ADD_VALIDATE ################################## + NewBookFund( + $bookfundid, + $input->param('bookfundname'), + $input->param('branchcode')||'' + ); + } + $input->redirect('aqbookfund.pl'); +# END $OP eq ADD_VALIDATE +} + +#-----############# MOD_VALIDATE ################################## # called by add_form, used to insert/modify data in DB -} elsif ($op eq 'add_validate') { - my $dbh = C4::Context->dbh; - my $bookfundid=uc($input->param('bookfundid')); - my $query = "delete from aqbookfund where bookfundid ='$bookfundid'"; - my $sth=$dbh->prepare($query); - $sth->execute; - $sth->finish; - $query = "replace aqbookfund (bookfundid,bookfundname,bookfundgroup) values ("; - $query.= $dbh->quote($input->param('bookfundid')).","; - $query.= $dbh->quote($input->param('bookfundname')).","; - $query.= $dbh->quote($input->param('bookfundgroup')).")"; - my $sth=$dbh->prepare($query); - $sth->execute; - $sth->finish; - # END $OP eq ADD_VALIDATE -################## DELETE_CONFIRM ################################## +elsif ($op eq 'mod_validate') { + my $bookfundid = uc $input->param('bookfundid'); + my $bookfundname = $input->param('bookfundname'); + my $branchcode = $input->param('branchcode' ) || undef; + my $current_branch = $input->param('current_branch') || undef; + $debug and warn "$bookfundid, $bookfundname, $branchcode"; + + my $number = Countbookfund($bookfundid,$branchcodeid); + if ($number < 2) { + $debug and warn "name :$bookfundname branch:$branchcode"; + ModBookFund($bookfundname,$bookfundid,$current_branch, $branchcode); + } + $input->redirect('aqbookfund.pl'); +} + +#-----############# DELETE_CONFIRM ################################## # called by default form, used to confirm deletion of data in DB -} elsif ($op eq 'delete_confirm') { - my $dbh = C4::Context->dbh; -# my $sth=$dbh->prepare("select count(*) as total from categoryitem where itemtype='$itemtype'"); -# $sth->execute; -# my $total = $sth->fetchrow_hashref; -# $sth->finish; - my $sth=$dbh->prepare("select bookfundid,bookfundname,bookfundgroup from aqbookfund where bookfundid='$bookfundid'"); - $sth->execute; - my $data=$sth->fetchrow_hashref; - $sth->finish; +elsif ($op eq 'delete_confirm') { + my $data = GetBookFund($bookfundid,$branchcodeid); $template->param(bookfundid => $bookfundid); $template->param(bookfundname => $data->{'bookfundname'}); - $template->param(bookfundgroup => $data->{'bookfundgroup'}); - # END $OP eq DELETE_CONFIRM -################## DELETE_CONFIRMED ################################## + $template->param(branchcode => $data->{'branchcode'}); +} # END $OP eq DELETE_CONFIRM + +#-----############# DELETE_CONFIRMED ################################## # called by delete_confirm, used to effectively confirm deletion of data in DB -} elsif ($op eq 'delete_confirmed') { - my $dbh = C4::Context->dbh; - my $bookfundid=uc($input->param('bookfundid')); - my $query = "delete from aqbookfund where bookfundid='$bookfundid'"; - my $sth=$dbh->prepare($query); - $sth->execute; - $sth->finish; - # END $OP eq DELETE_CONFIRMED -################## DEFAULT ################################## -} else { # DEFAULT - $template->param(scriptname => $script_name); - if ($searchfield ne '') { - $template->param(search => 1); - $template->param(searchfield => $searchfield); - } - my $env; - my ($count,$results)=StringSearch($env,$searchfield,'web'); - my $toggle="white"; - my @loop_data =(); - for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){ - #find out stats - # my ($od,$issue,$fines)=categdata2($env,$results->[$i]{'borrowernumber'}); - # $fines=$fines+0; - my @toggle = (); - my @bookfundid = (); - my @bookfundname = (); - my @bookfundgroup = (); - push(@toggle,$toggle); - push(@bookfundid,$results->[$i]{'bookfundid'}); - push(@bookfundname,$results->[$i]{'bookfundname'}); - push(@bookfundgroup,$results->[$i]{'bookfundgroup'}); - if ($toggle eq 'white'){ - $toggle="#ffffcc"; - } else { - $toggle="white"; - } - while (@toggle and @bookfundid and @bookfundname and @bookfundgroup) { - my %row_data; - $row_data{toggle} = shift @toggle; - $row_data{bookfundid} = shift @bookfundid; - $row_data{bookfundname} = shift @bookfundname; - $row_data{bookfundgroup} = shift @bookfundgroup; - push(@loop_data, \%row_data); - } - } - $template->param(bookfund => \@loop_data); -} #---- END $OP eq DEFAULT +elsif ($op eq 'delete_confirmed') { + DelBookFund(uc($input->param('bookfundid')),$branchcodeid); + +}# END $OP eq DELETE_CONFIRMED + +#-----############# DEFAULT ################################## +else { # DEFAULT + my ($query, $sth); + + $template->param(scriptname => $script_name); + + # filters + my @branchloop; + foreach my $branchcode (sort keys %{$branches}) { + my $row = { + code => $branchcode, + name => $branches->{$branchcode}->{branchname}, + }; + if (defined $input->param('filter_branchcode') + and $input->param('filter_branchcode') eq $branchcode) { + $row->{selected} = 1; + } + push @branchloop, $row; + } + my @bookfundids_loop; + $sth = GetBookFundsId(); + + while (my $row = $sth->fetchrow_hashref) { + if (defined $input->param('filter_bookfundid') and $input->param('filter_bookfundid') eq $row->{bookfundid}){ + $row->{selected} = 1; + } + push @bookfundids_loop, $row; + } + + $template->param( + filter_bookfundids => \@bookfundids_loop, + filter_branches => \@branchloop, + filter_bookfundname => $input->param('filter_bookfundname') || undef, + ); + + # searching the bookfunds corresponding to our filtering rules + my @results = SearchBookFund( + $input->param('filter'), + $input->param('filter_bookfundid'), + $input->param('filter_bookfundname'), + $input->param('filter_branchcode'), + ); + + # does the book funds have budgets? + my @loop_id; + $sth = GetBookFundsId(); + while (my $row = $sth->fetchrow){ + push @loop_id, $row; + } + + my ($id,%nb_budgets_of); + foreach $id (@loop_id){ + my $number = Countbookfund($id); + $nb_budgets_of{$id} = $number; + } + + # pagination informations + my $page = $input->param('page') || 1; + my @loop; + + my $first = ($page - 1) * $pagesize; + + # if we are on the last page, the number of the last word to display + # must not exceed the length of the results array + my $last = min( + $first + $pagesize - 1, + scalar(@results) - 1, + ); + + my $toggle = 0; + foreach my $result (@results[$first .. $last]) { + push( + @loop, + { + %{$result}, + toggle => $toggle++%2, + branchname => + $branches->{ $result->{branchcode} }->{branchname}, + has_budgets => defined $nb_budgets_of{ $result->{bookfundid} }, + } + ); + } + + $template->param( + bookfund => \@loop, + pagination_bar => pagination_bar( + $script_name, + getnbpages(scalar @results, $pagesize), + $page, + 'page' + ) + ); +} #---- END $OP eq DEFAULT output_html_with_http_headers $input, $cookie, $template->output;