From 25fe55509b54568584b2d32c0e95f6416d0656a7 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Tue, 28 Apr 2009 21:38:05 +0200 Subject: [PATCH] removing aqbudget & aqbookfund * aqbookfund is now useless * aqbookbudget will be replaced by a aqbudgets, that is a new one. --- admin/aqbookfund.pl | 256 ----------- admin/aqbudget.pl | 411 ------------------ .../prog/en/modules/admin/aqbookfund.tmpl | 203 --------- .../prog/en/modules/admin/aqbudget.tmpl | 367 ---------------- 4 files changed, 1237 deletions(-) delete mode 100755 admin/aqbookfund.pl delete mode 100755 admin/aqbudget.pl delete mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbookfund.tmpl delete mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudget.tmpl diff --git a/admin/aqbookfund.pl b/admin/aqbookfund.pl deleted file mode 100755 index 604ae08c1b..0000000000 --- a/admin/aqbookfund.pl +++ /dev/null @@ -1,256 +0,0 @@ -#!/usr/bin/perl - -# written 20/02/2002 by paul.poulain@free.fr - -# 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 - - -=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::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, - } -); - -$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 $dataaqbookfund; - if ($bookfundid) { - $dataaqbookfund = GetBookFund($bookfundid, $branchcodeid); - $template->param('header-is-modify-p' => 1); - $template->param('current_branch' => $branchcodeid); - } else { - $template->param('header-is-add-p' => 1); - } - $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 $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 $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') { - 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; diff --git a/admin/aqbudget.pl b/admin/aqbudget.pl deleted file mode 100755 index 33edc1cd76..0000000000 --- a/admin/aqbudget.pl +++ /dev/null @@ -1,411 +0,0 @@ -#!/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 -# -# 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 warnings; FIXME -use CGI; -use C4::Branch; # GetBranches -use List::Util qw/min/; -use C4::Dates qw/format_date format_date_in_iso/; -use C4::Auth; -use C4::Acquisition; -use C4::Context; -use C4::Output; -use C4::Koha; - -my $input = new CGI; -my $script_name="/cgi-bin/koha/admin/aqbudget.pl"; -my $bookfundid = $input->param('bookfundid'); -my $aqbudgetid = $input->param('aqbudgetid'); -my $branchcodeid = $input->param('branchcode'); -my $op = $input->param('op') || ''; -my $pagesize = 20; - -my ($template, $borrowernumber, $cookie) - = get_template_and_user( - {template_name => "admin/aqbudget.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {parameters => 1}, - debug => 1, - } - ); - -$template->param( - action => $script_name, - DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(), - script_name => $script_name, - $op || 'else' => 1, -); - -my $dbh = C4::Context->dbh; -my $sthtemp = $dbh->prepare("Select flags, branchcode from borrowers where borrowernumber = ?"); -$sthtemp->execute($borrowernumber); -my ($flags, $homebranch)=$sthtemp->fetchrow; - -################## ADD_FORM ################################## -# called by default. Used to create form to add or modify a record -if ($op eq 'add_form') { - my ($query, $dataaqbudget, $dataaqbookfund, $sth); - #---- if primkey exists, it's a modify action, so read values to modify... - if ($aqbudgetid) { - $query = ' -SELECT aqbudgetid, - bookfundname, - aqbookfund.bookfundid, - startdate, - enddate, - budgetamount, - aqbudget.branchcode - FROM aqbudget - INNER JOIN aqbookfund ON (aqbudget.bookfundid = aqbookfund.bookfundid) - WHERE aqbudgetid = ? AND - (aqbookfund.branchcode = aqbudget.branchcode OR - (aqbudget.branchcode IS NULL and aqbookfund.branchcode="")) -'; - $sth=$dbh->prepare($query); - $sth->execute($aqbudgetid); - $dataaqbudget=$sth->fetchrow_hashref; - } - - $query = ' -SELECT aqbookfund.branchcode, - branches.branchname, - aqbookfund.bookfundname - FROM aqbookfund - LEFT JOIN branches ON aqbookfund.branchcode = branches.branchcode - WHERE bookfundid = ? AND aqbookfund.branchcode=? -'; - $sth=$dbh->prepare($query); - $sth->execute( - defined $aqbudgetid ? $dataaqbudget->{bookfundid} : $bookfundid, - $branchcodeid - ); - $dataaqbookfund=$sth->fetchrow_hashref; - - if (defined $aqbudgetid) { - $template->param( - bookfundid => $dataaqbudget->{'bookfundid'}, - branchcode => $dataaqbudget->{'branchcode'}, - bookfundname => $dataaqbudget->{'bookfundname'} - ); - } - else { - $template->param( - bookfundid => $bookfundid, - branchcode => $dataaqbookfund->{'branchcode'}, - bookfundname => $dataaqbookfund->{bookfundname}, - ); - } - - # Available branches - my @branches = (); - - $query = ' -SELECT branchcode, - branchname - FROM branches - ORDER BY branchname -'; - $sth=$dbh->prepare($query); - $sth->execute(); - while (my $row = $sth->fetchrow_hashref) { - my $branch = $row; - - if (defined $dataaqbookfund->{branchcode}) { - $branch->{selected} = - $dataaqbookfund->{branchcode} eq $row->{branchcode} ? 1 : 0; - } - elsif (defined $aqbudgetid) { - $branch->{selected} = - $dataaqbudget->{branchcode} eq $row->{branchcode} ? 1 : 0; - } - push @branches, $branch; - } - - $template->param( - dateformat => C4::Dates->new()->visual(), - aqbudgetid => $dataaqbudget->{'aqbudgetid'}, - startdate => format_date($dataaqbudget->{'startdate'}), - enddate => format_date($dataaqbudget->{'enddate'}), - budgetamount => $dataaqbudget->{'budgetamount'}, - branches => \@branches, - ); - - if ( $dataaqbookfund->{branchcode}) { - $template->param( - disable_branchselection => 1, - branch => $dataaqbookfund->{branchcode}, - ); - } - # END $OP eq ADD_FORM -################## ADD_VALIDATE ################################## -# called by add_form, used to insert/modify data in DB -} elsif ($op eq 'add_validate') { - my ($query, $sth); - - if (defined $aqbudgetid) { - $query = ' -UPDATE aqbudget - SET bookfundid = ?, - startdate = ?, - enddate = ?, - budgetamount = ?, - branchcode = ? - WHERE aqbudgetid = ? -'; - $sth=$dbh->prepare($query); - $sth->execute( - $input->param('bookfundid'), - format_date_in_iso($input->param('startdate')), - format_date_in_iso($input->param('enddate')), - $input->param('budgetamount'), - $input->param('branch') || '', - $aqbudgetid, - ); - } - else { - $query = ' -INSERT - INTO aqbudget - (bookfundid, startdate, enddate, budgetamount, branchcode) - VALUES - (?, ?, ?, ?, ?) -'; - $sth=$dbh->prepare($query); - $sth->execute( - $input->param('bookfundid'), - format_date_in_iso($input->param('startdate')), - format_date_in_iso($input->param('enddate')), - $input->param('budgetamount'), - $input->param('branch') || '', - ); - } - - print $input->redirect("aqbudget.pl"); # FIXME: unnecessary redirect - exit; -# 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 $sth=$dbh->prepare("select aqbudgetid,bookfundid,startdate,enddate,budgetamount,branchcode from aqbudget where aqbudgetid=?"); - $sth->execute($aqbudgetid); - my $data=$sth->fetchrow_hashref; - $template->param(bookfundid => $bookfundid); - $template->param(aqbudgetid => $data->{'aqbudgetid'}); - $template->param(startdate => format_date($data->{'startdate'})); - $template->param(enddate => format_date($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 -} elsif ($op eq 'delete_confirmed') { - my $aqbudgetid=uc($input->param('aqbudgetid')); - my $sth=$dbh->prepare("delete from aqbudget where aqbudgetid=?"); - $sth->execute($aqbudgetid); - print $input->redirect("aqbookfund.pl"); - exit; - # END $OP eq DELETE_CONFIRMED -################## DEFAULT ################################## -} else { # DEFAULT - my ($query, $sth); - - # create a look-up table for bookfund names from bookfund ids, - # instead of having on query per budget - my %bookfundname_of = (); - $query = ' -SELECT bookfundid, bookfundname - FROM aqbookfund -'; - $sth=$dbh->prepare($query); - $sth->execute; - while (my $row = $sth->fetchrow_hashref) { - $bookfundname_of{ $row->{bookfundid} } = $row->{bookfundname}; - } - - # filters - my $branches = GetBranches(); - 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; - $query = ' -SELECT bookfundid - FROM aqbookfund -'; - $sth = $dbh->prepare($query); - $sth->execute(); - 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_amount => $input->param('filter_amount') || undef, - filter_startdate => $input->param('filter_startdate') || undef, - filter_enddate => $input->param('filter_enddate') || undef, - ); - - my %sign_label_of = ( - '=' => 'equal', - '>=' => 'superior', - '<=' => 'inferior', - ); - - foreach my $field (qw/startdate enddate amount/) { - my $param = 'filter_'.$field.'_sign'; - - foreach my $sign (keys %sign_label_of) { - if ($input->param($param) eq $sign) { - $template->param( - $param.'_'.$sign_label_of{$sign}.'_selected' => 1, - ); - } - } - } - - # Search all available budgets - $query = ' -SELECT aqbudgetid, - bookfundid, - startdate, - enddate, - budgetamount, - branchcode - FROM aqbudget - WHERE 1 = 1'; - - my @bindings; - - if ($input->param('filter_bookfundid')) { - $query.= ' - AND bookfundid = ? -'; - push @bindings, $input->param('filter_bookfundid'); - } - if ($input->param('filter_branchcode')) { - $query.= ' - AND branchcode = ? -'; - push @bindings, $input->param('filter_branchcode'); - } - if ($input->param('filter_startdate')) { - $query.= ' - AND startdate '.$input->param('filter_startdate_sign').' ? -'; - push @bindings, format_date_in_iso($input->param('filter_startdate')); - } - if ($input->param('filter_enddate')) { - $query.= ' - AND enddate '.$input->param('filter_enddate_sign').' ? -'; - push @bindings, format_date_in_iso($input->param('filter_enddate')); - } - if ($input->param('filter_amount')) { - $query.= ' - AND budgetamount '.$input->param('filter_amount_sign').' ? -'; - # the amount must be a quantity, with 2 digits after the decimal - # separator - $input->param('filter_amount') =~ m{(\d* (?:\.\d{,2})? )}xms; - my ($amount) = $1; - push @bindings, $amount; - } - - $query.= ' - ORDER BY bookfundid, aqbudgetid -'; - $sth = $dbh->prepare($query); - $sth->execute(@bindings); - my @results; - while (my $row = $sth->fetchrow_hashref){ - push @results, $row; - } - - # filter budgets depending on the pagination - my $page = $input->param('page') || 1; - 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 @loop; - foreach my $result (@results[$first .. $last]) { - push @loop, { - %{$result}, - bookfundname => $bookfundname_of{ $result->{'bookfundid'} }, - branchname => $branches->{ $result->{branchcode} }->{branchname}, - startdate => format_date($result->{startdate}), - enddate => format_date($result->{enddate}), - }; - } - - $template->param( - budget => \@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; - diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbookfund.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbookfund.tmpl deleted file mode 100644 index eb464b9d46..0000000000 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbookfund.tmpl +++ /dev/null @@ -1,203 +0,0 @@ - -Koha › Administration › Funds and Budgets - - - - - - - - - -
-
-
-
- - -
-
-

Funds and budgets administration

- -
- - - - - - - - - - - - - - - - - - - - -
CodeNameLibraryActions
- ?op=add_form&bookfundid=&branchcode=">Edit - ?op=delete_confirm&bookfundid=&branchcode=">Delete - &branchcode=">Add budget - - ">Show budgets - -
-
- -
- - -

- Show all budgets -

- - - - -
" name="Aform" method="post"> - - - - - "/> - - - - -
- Modify book fundAdd book fund - - -
    - -
  1. Fund: - " /> - -
  2. - -
  3. - -
  4. - - -
  5. - " /> -
  6. - -
  7. - -
  8. -
- -
- -
- - Cancel -
-
- - - -

Fund added

-

- ">Return to fund list -

- -

Fund modified

-

- ">Return to fund list -

- -
-

Confirm Deletion of Fund

-
" method="post"> - - " /> - " /> - - - - - - - - - -
Fund: -
Library: -
Name: -
Group: -
- -
-
-
- - -

Data Deleted

-
" method="get"> - -
- - -
-
-
- -
-
- diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudget.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudget.tmpl deleted file mode 100644 index 3a19feeb5d..0000000000 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/aqbudget.tmpl +++ /dev/null @@ -1,367 +0,0 @@ - -Koha › Administration › <!-- TMPL_IF NAME="else" -->Budgets<!-- /TMPL_IF --><!-- TMPL_IF name="add_form" -->Budgets › <!-- TMPL_IF NAME="aqbudgetid" -->Modify<!-- TMPL_ELSE -->Add<!-- /TMPL_IF --> Budget<!-- /TMPL_IF --><!-- TMPL_IF NAME="add_validate" -->Budgets › Budget Data Recorded<!-- /TMPL_IF --><!-- TMPL_IF name="delete_confirmed" -->Budgets › Budget Deleted<!-- /TMPL_IF --><!-- TMPL_IF name="delete_confirm" -->Budgets › Delete Budget?<!-- /TMPL_IF --> - - - - - - - - - - - - -
- -
-
-
- - - -
-

Budget Data Recorded

-
" method="get">
- - - -

Budget deleted

-
" method="get">
- - - - -

Budgets

-
-
Search Budgets
    -
  1. - -
  2. -
  3. - -
  4. -
  5. - - " /> - /lib/calendar/cal.gif" id="filter_startdate_button" alt="Show Calendar" /> - -
  6. -
  7. - - " /> - /lib/calendar/cal.gif" id="filter_enddate_button" alt="Show Calendar" /> - -
  8. -
  9. - - " size="8" /> -
  10. -
-
-
- - - - - - - - - - - - - - - - - - - - - - - - - -
FundLibraryStart dateEnd dateBudget amountActions
- ">Edit - ">Delete -
- -
- - - - -
-
- ModifyAdd budget - - - - -
  1. - Fund: - " /> - -
  2. - -
  3. - - " /> - /lib/calendar/cal.gif" id="startdate_button" alt="Show Calendar" /> - - -
  4. -
  5. - - " /> - /lib/calendar/cal.gif" id="enddate_button" alt="Show Calendar" /> - - -
  6. -
  7. - - " size="8" /> - -
  8. -
  9. - - - - - - " /> - - - - - - - - - - - - - -
- - - - " /> - - -
-
- Cancel -
-
- - - -

Delete Budget?

- - - - - - - - - - - - - - - - -
Start date:
End date:
Budget Amount:
- -
" method="post"> - -" /> -
-
" method="get"> -
- - - -
-
-
- -
-
- -- 2.39.5