From a628f878e5876bddd6ad03f1d1878f030949a37c Mon Sep 17 00:00:00 2001 From: lavide Date: Sat, 16 Nov 2002 21:40:53 +0000 Subject: [PATCH] templating this file and modify it so that all the budgets are on the screen but for this moment only on budget by bookfund because there is primary key for bookfundid in aqbookfund and in aqbudget tables --- admin/aqbudget.pl | 210 +++++++++++++++++----------------------------- 1 file changed, 75 insertions(+), 135 deletions(-) diff --git a/admin/aqbudget.pl b/admin/aqbudget.pl index fedc740b90..0947a76149 100755 --- a/admin/aqbudget.pl +++ b/admin/aqbudget.pl @@ -42,6 +42,9 @@ use CGI; use C4::Context; use C4::Output; use C4::Search; +use HTML::Template; + + sub StringSearch { my ($env,$searchstring,$type)=@_; @@ -49,7 +52,7 @@ sub StringSearch { $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,startdate,enddate,budgetamount from aqbudget where bookfundid and (bookfundid like \"$data[0]%\") order by bookfundid"; my $sth=$dbh->prepare($query); $sth->execute; my @results; @@ -71,104 +74,55 @@ 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/aqbudget.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 $dataaqbudget; + my $dataaqbookfund; if ($bookfundid) { my $dbh = C4::Context->dbh; - my $query="select aqbookfund.bookfundid,startdate,enddate,budgetamount,bookfundname from aqbudget,aqbookfund where aqbudget.bookfundid=aqbookfund.bookfundid and aqbookfund.bookfundid='$bookfundid'"; + my $query="select bookfundid,startdate,enddate,budgetamount from aqbudget where bookfundid='$bookfundid'"; # print $query; my $sth=$dbh->prepare($query); $sth->execute; - $data=$sth->fetchrow_hashref; + $dataaqbudget=$sth->fetchrow_hashref; + $sth->finish; + my $query="select bookfundid,bookfundname from aqbookfund where bookfundid='$bookfundid'"; +# print $query; + my $sth=$dbh->prepare($query); + $sth->execute; + $dataaqbookfund=$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 (!(isNotNull(window.document.Aform.budgetamount,1))) { - _alertString += "- Budget 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 $header; if ($bookfundid) { - print "

Modify budget

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

Add budget

"; + $header = "Add budget"; } - print "
"; - print ""; - print ""; - print ""; + $template->param(header => $header); if ($bookfundid) { - print ""; - print ""; + $template->param(modify => 1); + $template->param(bookfundid => $bookfundid); + $template->param(bookfundname => $dataaqbookfund->{bookfundname}); } else { - print ""; + $template->param(adding => 1); } - print ""; - print ""; - print ""; - print ""; -print "
Book fund$bookfundid
Book fund$data->{'bookfundname'}
Book fund
Start date 
End date
Budget amount
 
"; - print "
"; -; + $template->param(startdate => $dataaqbudget->{'startdate'}); + $template->param(enddate => $dataaqbudget->{'enddate'}); + $template->param(budgetamount => $dataaqbudget->{'budgetamount'}); # END $OP eq ADD_FORM ################## ADD_VALIDATE ################################## # called by add_form, used to insert/modify data in DB @@ -182,10 +136,6 @@ print ""; 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 @@ -199,19 +149,10 @@ 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 "Start date$data->{'startdate'}"; - print "End date$data->{'enddate'}"; - print "budgetamount$data->{'budgetamount'}"; -# 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(startdate => $data->{'startdate'}); + $template->param(enddate => $data->{'enddate'}); + $template->param(budgetamount => $data->{'budgetamount'}); # END $OP eq DELETE_CONFIRM ################## DELETE_CONFIRMED ################################## # called by delete_confirm, used to effectively confirm deletion of data in DB @@ -222,59 +163,58 @@ print ""; 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,'Budget admin'); - print mkformnotable("$script_name",@inputs); - print <$searchfield

"; + $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"; + 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 $dataaqbookfund; + my $dbh = C4::Context->dbh; + my $query="select bookfundid,bookfundname from aqbookfund where bookfundid=$results->[$i]{'bookfundid'}"; +# print $query; + my $sth=$dbh->prepare($query); + $sth->execute; + $dataaqbookfund=$sth->fetchrow_hashref; + $sth->finish; + my @toggle = (); + my @bookfundid = (); + my @bookfundname = (); + my @startdate = (); + my @enddate = (); + my @budgetamount = (); + push(@toggle,$toggle); + push(@bookfundid,$results->[$i]{'bookfundid'}); + push(@bookfundname,$dataaqbookfund->{'bookfundname'}); + push(@startdate,$results->[$i]{'startdate'}); + push(@enddate,$results->[$i]{'enddate'}); + push(@budgetamount,$results->[$i]{'budgetamount'}); if ($toggle eq 'white'){ $toggle="#ffffcc"; } else { $toggle="white"; } - print mktablerow(6,$toggle,$results->[$i]{'bookfundid'}.' ('.$results->[$i]{'bookfundname'}.')', - $results->[$i]{'startdate'},$results->[$i]{'enddate'}, - $results->[$i]{'budgetamount'}, - mklink("$script_name?op=add_form&bookfundid=".$results->[$i]{'bookfundid'},'Edit'), - mklink("$script_name?op=delete_confirm&bookfundid=".$results->[$i]{'bookfundid'},'Delete','')); # FIXME - Too many arguments. Drop the 3d one? - } - 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 @startdate and @enddate and @budgetamount) { + my %row_data; + $row_data{toggle} = shift @toggle; + $row_data{bookfundid} = shift @bookfundid; + $row_data{bookfundname} = shift @bookfundname; + $row_data{startdate} = shift @startdate; + $row_data{enddate} = shift @enddate; + $row_data{budgetamount} = shift @budgetamount; + push(@loop_data, \%row_data); + } + } + $template->param(budget => \@loop_data); } #---- END $OP eq DEFAULT -print endmenu('admin'); -print endpage(); + +print "Content-Type: text/html\n\n", $template->output; -- 2.39.5