X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=admin%2Faqbookfund.pl;h=217c2f819749280b76365dc5e3d86852c1f49664;hb=6d929790ff56962d620e61bde8dcc8ec54642177;hp=081bf18ecc5e6b9718eb7a620c70884c375ce69b;hpb=d5fbd761f5e9e55a7ab0bccfd14af29e9af4cdcb;p=koha.git diff --git a/admin/aqbookfund.pl b/admin/aqbookfund.pl index 081bf18ecc..217c2f8197 100755 --- a/admin/aqbookfund.pl +++ b/admin/aqbookfund.pl @@ -19,19 +19,38 @@ # if $op=delete_confirm # - we delete the record having primkey=$primkey + +# Copyright 2000-2002 Katipo Communications +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + use strict; -use C4::Output; use CGI; +use C4::Context; +use C4::Output; use C4::Search; -use C4::Database; +use HTML::Template; sub StringSearch { my ($env,$searchstring,$type)=@_; - my $dbh = &C4Connect; + 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 $query="select bookfundid,bookfundname,bookfundgroup from aqbookfund where bookfundid and (bookfundid like \"$data[0]%\") order by bookfundid"; my $sth=$dbh->prepare($query); $sth->execute; my @results; @@ -42,7 +61,6 @@ sub StringSearch { } # $sth->execute; $sth->finish; - $dbh->disconnect; return ($cnt,\@results); } @@ -54,121 +72,68 @@ 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'); +my $template = gettemplate("parameters/aqbookfund.tmpl",0); +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); + ################## 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 = &C4Connect; + 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 -;#/ + } if ($bookfundid) { - print "

Modify book fund

"; + $header = "Modify book fund"; } else { - print "

Add book fund

"; + $header = "Add book fund"; } - print "
"; - print ""; - print ""; - print ""; + $template->param(header => $header); + my $add_or_modify=0; if ($bookfundid) { - print ""; - } else { - print ""; + $add_or_modify=1; } - print ""; - print ""; - print ""; -print "
Book fund$bookfundid
Book fund
Name 
Group
 
"; - print "
"; -; + $template->param(add_or_modify => $add_or_modify); + $template->param(bookfundid =>$bookfundid); + $template->param(bookfundname =>$data->{'bookfundname'}); + $template->param(bookfundgroup =>$data->{'bookfundgroup'}); + # 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=C4Connect; - my $query = "replace aqbookfund (bookfundid,bookfundname,bookfundgroup) values ("; + 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; - print "data recorded"; - print "
"; - print ""; - print "
"; # END $OP eq ADD_VALIDATE ################## DELETE_CONFIRM ################################## # called by default form, used to confirm deletion of data in DB } elsif ($op eq 'delete_confirm') { - my $dbh = &C4Connect; + 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; @@ -177,80 +142,60 @@ print ""; $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 "
"; -# } + $template->param(bookfundid => $bookfundid); + $template->param(bookfundname => $data->{'bookfundname'}); + $template->param(bookfundgroup => $data->{'bookfundgroup'}); # 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=C4Connect; + 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

"; + $template->param(scriptname => $script_name); + if ($searchfield ne '') { + $template->param(search => 1); + $template->param(searchfield => $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++){ + 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; - if ($toggle eq 'white'){ + 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"; } - 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 "
"; + 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 -print endmenu('admin'); -print endpage(); + + + +print "Content-Type: text/html\n\n", $template->output;