X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=admin%2Faqbookfund.pl;h=604ae08c1b8eb79e51ad671adafcb9508a17ce38;hb=4f9aff4deb01d7d7873bf45ba0dcc8eb93478207;hp=26d99d537a0e883004aaeaf033ca1d19c31c4d20;hpb=3779ef4e29bb20dca8c852b914710cd98b71e637;p=koha.git diff --git a/admin/aqbookfund.pl b/admin/aqbookfund.pl index 26d99d537a..604ae08c1b 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 - +# written 20/02/2002 by paul.poulain@free.fr # Copyright 2000-2002 Katipo Communications # @@ -37,164 +19,238 @@ # 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_confirm, then + - we delete the record having primkey=$primkey + +=cut + use strict; +# use warnings; FIXME 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 $sth=$dbh->prepare("select bookfundid,bookfundname,bookfundgroup from aqbookfund where (bookfundname like ?) order by bookfundid"); - $sth->execute("%$data[0]%"); - my @results; - while (my $data=$sth->fetchrow_hashref){ - push(@results,$data); - } - # $sth->execute; - $sth->finish; - return (scalar(@results),\@results); -} +use C4::Dates; +use C4::Debug; -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 ($template, $borrowernumber, $cookie) - = get_template_and_user({template_name => "parameters/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(action => $script_name); +my $input = new CGI; +my $script_name = "/cgi-bin/koha/admin/aqbookfund.pl"; +my $bookfundid = $input->param('bookfundid'); +my $branchcodeid = $input->param('branchcode') || ''; +my $op = $input->param('op') || ''; +my $pagesize = 10; + +$bookfundid = uc $bookfundid if $bookfundid; +my ($template, $borrowernumber, $cookie) = get_template_and_user( + { template_name => "admin/aqbookfund.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { parameters => 1 }, + debug => 1, + } +); -################## ADD_FORM ################################## +$template->param( + action => $script_name, + script_name => $script_name, + ($op||'else') => 1, +); + +my $branches = GetBranches; + +#-----############# 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 $header; - if ($bookfundid) { - my $dbh = C4::Context->dbh; - my $sth=$dbh->prepare("select bookfundid,bookfundname,bookfundgroup from aqbookfund where bookfundid=?"); - $sth->execute($bookfundid); - $data=$sth->fetchrow_hashref; - $sth->finish; - } + my $dataaqbookfund; if ($bookfundid) { - $header = "Modify book fund"; + $dataaqbookfund = GetBookFund($bookfundid, $branchcodeid); $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('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( + 'use-header-flags-p' => 1, + add_or_modify => $bookfundid ? 1 : 0, + bookfundid => $bookfundid, + bookfundname => $dataaqbookfund->{'bookfundname'} + ); + + my @branchloop; + foreach my $branchcode (sort keys %{$branches}) { + push @branchloop, { + branchcode => $branchcode, + branchname => $branches->{$branchcode}->{branchname}, + selected => (defined $bookfundid and defined $dataaqbookfund->{branchcode} + and $dataaqbookfund->{branchcode} eq $branchcode) ? 1 : 0, + }; + } + + $template->param(branches => \@branchloop); + +} # END $OP eq ADD_FORM - # END $OP eq ADD_FORM -################## ADD_VALIDATE ################################## +#-----############# ADD_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 $sth=$dbh->prepare("delete from aqbookfund where bookfundid =?"); - $sth->execute($bookfundid); - $sth->finish; - my $sth=$dbh->prepare("replace aqbookfund (bookfundid,bookfundname) values (?,?)"); - $sth->execute($input->param('bookfundid'),$input->param('bookfundname')); - $sth->finish; - print "Content-Type: text/html\n\n"; - exit; - - # END $OP eq ADD_VALIDATE -################## DELETE_CONFIRM ################################## +elsif ($op eq 'add_validate') { + my $bookfundname = $input->param('bookfundname'); + my $branchcode = $input->param('branchcode') || undef; + my $number = Countbookfund($bookfundid,$branchcodeid); + if ($number == 0 ) { + NewBookFund( + $bookfundid, + $input->param('bookfundname'), + $input->param('branchcode')||'' + ); + } + print $input->redirect('aqbookfund.pl'); # FIXME: unnecessary redirect + exit; +# END $OP eq ADD_VALIDATE +} + +#-----############# MOD_VALIDATE ################################## +# called by add_form, used to insert/modify data in DB +elsif ($op eq 'mod_validate') { + 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); + } + print $input->redirect('aqbookfund.pl'); # FIXME: unnecessary redirect + exit; +} + +#-----############# 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=?"); - $sth->execute($bookfundid); - my $data=$sth->fetchrow_hashref; - $sth->finish; - $template->param(bookfundid => $bookfundid); +elsif ($op eq 'delete_confirm') { + my $data = GetBookFund($bookfundid,$branchcodeid); + $template->param(bookfundid => $bookfundid); $template->param(bookfundname => $data->{'bookfundname'}); - # END $OP eq DELETE_CONFIRM -################## DELETE_CONFIRMED ################################## + $template->param(branchcode => $data->{'branchcode'}); +} # 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 $sth=$dbh->prepare("delete from aqbookfund where bookfundid=?"); - $sth->execute($bookfundid); - $sth->finish; - $sth=$dbh->prepare("delete from aqbudget where bookfundid=?"); - $sth->execute($bookfundid); - $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 =(); - my $dbh = C4::Context->dbh; - my $sth2 = $dbh->prepare("Select aqbudgetid,startdate,enddate,budgetamount from aqbudget where bookfundid = ? order by bookfundid"); - for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){ - my %row_data; - $row_data{bookfundid} =$results->[$i]{'bookfundid'}; - $row_data{bookfundname} = $results->[$i]{'bookfundname'}; - $sth2->execute($row_data{bookfundid}); - my @budget_loop; - while (my ($aqbudgetid,$startdate,$enddate,$budgetamount) = $sth2->fetchrow) { - my %budgetrow_data; - $budgetrow_data{aqbudgetid} = $aqbudgetid; - $budgetrow_data{startdate} = $startdate; - $budgetrow_data{enddate} = $enddate; - $budgetrow_data{budgetamount} = $budgetamount; - push @budget_loop,\%budgetrow_data; - } - $row_data{budget} = \@budget_loop; - push @loop_data,\%row_data; - } - $template->param(bookfund => \@loop_data); -} #---- END $OP eq DEFAULT +elsif ($op eq 'delete_confirmed') { + DelBookFund($bookfundid, $branchcodeid); +} +else { # DEFAULT + my ($sth); + # 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, + ); + + foreach my $result (@results[$first .. $last]) { + push @loop, { + %{$result}, + 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' + ) + ); +} output_html_with_http_headers $input, $cookie, $template->output;