X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=admin%2Faqbookfund.pl;h=604ae08c1b8eb79e51ad671adafcb9508a17ce38;hb=12d57ea22af134ff31eb9b632ed680c48670f360;hp=098f9f4960ab8cf0427bbeaadbbf5db4e5a0ad44;hpb=dbca39823f826d5e8d1cd7c0fc8d768be1f57b64;p=koha.git diff --git a/admin/aqbookfund.pl b/admin/aqbookfund.pl index 098f9f4960..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,237 +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::Search; - -sub StringSearch { - my ($env,$searchstring,$type)=@_; - my $dbh = C4::Context->dbh; - $searchstring=~ s/\'/\\\'/g; - my @data=split(' ',$searchstring); - my $count=@data; - my $query="Select aqbudget.bookfundid,startdate,enddate,budgetamount,bookfundname from aqbudget,aqbookfund where aqbudget.bookfundid=aqbookfund.bookfundid and (aqbudget.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; + +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, + } +); -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; -print $input->header; - -#start the page and read in includes -print startpage(); -print startmenu('admin'); - -################## 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; - 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; - } - print < - ///////////////////////////////////////////////////////////////////////////////////////////////////////////////// - function isNotNull(f,noalert) { - if (f.value.length ==0) { - return false; - } - return true; - } - ///////////////////////////////////////////////////////////////////////////////////////////////////////////////// - function toUC(f) { - var x=f.value.toUpperCase(); - f.value=x; - return true; - } - ///////////////////////////////////////////////////////////////////////////////////////////////////////////////// - function isNum(v,maybenull) { - var n = new Number(v.value); - if (isNaN(n)) { - return false; - } - if (maybenull==0 && v.value=='') { - return false; - } - return true; - } - ///////////////////////////////////////////////////////////////////////////////////////////////////////////////// - function isDate(f) { - var t = Date.parse(f.value); - if (isNaN(t)) { - return false; - } - } - ///////////////////////////////////////////////////////////////////////////////////////////////////////////////// - function Check(f) { - var ok=1; - var _alertString=""; - var alertString2; - if (f.bookfundid.value.length==0) { - _alertString += "- bookfundid missing\\n"; - } - if (f.bookfundname.value.length==0) { - _alertString += "- bookfundname missing\\n"; - } - if (_alertString.length==0) { - document.Aform.submit(); - } else { - alertString2 = "Form not submitted because of the following problem(s)\\n"; - alertString2 += "------------------------------------------------------------------------------------\\n\\n"; - alertString2 += _alertString; - alert(alertString2); - } - } - -printend -;#/ + my $dataaqbookfund; if ($bookfundid) { - print "

Modify book fund

"; + $dataaqbookfund = GetBookFund($bookfundid, $branchcodeid); + $template->param('header-is-modify-p' => 1); + $template->param('current_branch' => $branchcodeid); } else { - print "

Add book fund

"; + $template->param('header-is-add-p' => 1); } - print "
"; - print ""; - print ""; - print ""; - if ($bookfundid) { - print ""; - } else { - print ""; - } - print ""; - print ""; - print ""; -print "
Book fund$bookfundid
Book fund
Name 
Group
 
"; - print "
"; -; - # END $OP eq ADD_FORM -################## ADD_VALIDATE ################################## + $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 + +#-----############# ADD_VALIDATE ################################## # called by add_form, used to insert/modify data in DB -} elsif ($op eq 'add_validate') { - my $dbh = C4::Context->dbh; - my $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; - print "data recorded"; - print "
"; - print ""; - print "
"; - # 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='$bookfundid'"); - $sth->execute; - my $data=$sth->fetchrow_hashref; - $sth->finish; - print mktablehdr; - print mktablerow(2,'#99cc33',bold('Book fund'),bold("$bookfundid"),'/images/background-mem.gif'); - print "
"; - print "Name$data->{'bookfundname'}"; - print "Group$data->{'bookfundgroup'}"; -# if ($total->{'total'} >0) { -# print "This record is used $total->{'total'} times. Deletion not possible"; -# print "
"; -# } else { - print "CONFIRM DELETION"; - print "
"; -# } - # END $OP eq DELETE_CONFIRM -################## DELETE_CONFIRMED ################################## +elsif ($op eq 'delete_confirm') { + my $data = GetBookFund($bookfundid,$branchcodeid); + $template->param(bookfundid => $bookfundid); + $template->param(bookfundname => $data->{'bookfundname'}); + $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 $query = "delete from aqbookfund where bookfundid='$bookfundid'"; - my $sth=$dbh->prepare($query); - $sth->execute; - $sth->finish; - print "data deleted"; - print "
"; - print ""; - print "
"; - # END $OP eq DELETE_CONFIRMED -################## DEFAULT ################################## -} else { # DEFAULT - my @inputs=(["text","searchfield",$searchfield], - ["reset","reset","clr"]); - print mkheadr(2,'bookfund admin'); - print mkformnotable("$script_name",@inputs); - print <$searchfield

"; - } - print mktablehdr; - print mktablerow(6,'#99cc33',bold('Book fund'),bold('Start date'),bold('End date'),bold('Budget amount'), - ' ',' ','/images/background-mem.gif'); - my $env; - my ($count,$results)=StringSearch($env,$searchfield,'web'); - my $toggle="white"; - 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; - if ($toggle eq 'white'){ - $toggle="#ffffcc"; - } else { - $toggle="white"; - } - print mktablerow(6,$toggle,$results->[$i]{'bookfundid'}, - $results->[$i]{'bookfundname'},$results->[$i]{'bookfundgroup'}, - mklink("$script_name?op=add_form&bookfundid=".$results->[$i]{'bookfundid'},'Edit'), - mklink("$script_name?op=delete_confirm&bookfundid=".$results->[$i]{'bookfundid'},'Delete')); - } - print mktableft; - print "

"; - print ""; - if ($offset>0) { - my $prevpage = $offset-$pagesize; - print mklink("$script_name?offset=".$prevpage,'<< Prev'); - } - print "      "; - if ($offset+$pagesize<$count) { - my $nextpage =$offset+$pagesize; - print mklink("$script_name?offset=".$nextpage,'Next >>'); - } - print "

"; - print "
"; -} #---- END $OP eq DEFAULT -print endmenu('admin'); -print endpage(); +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;