- if ( $budget_period_id ne '' ) {
- my $query = '
- UPDATE aqbudgetperiods
- SET budget_period_startdate = ?
- , budget_period_enddate = ?
- , budget_period_description = ?
- , budget_period_total = ?
- , budget_period_locked = ?
- , budget_period_active = ?
- WHERE budget_period_id = ?
- ';
-
- my $sth = $dbh->prepare($query);
- $sth->execute(
- $input->param('budget_period_startdate') ? format_date_in_iso( $input->param('budget_period_startdate') ) : undef,
- $input->param('budget_period_enddate') ? format_date_in_iso( $input->param('budget_period_enddate') ) : undef,
- $input->param('budget_period_description') ? $input->param('budget_period_description') : undef,
- $input->param('budget_period_total') ? $input->param('budget_period_total') : undef,
- $input->param('budget_period_locked') ? $input->param('budget_period_locked') : undef,
- $input->param('budget_period_active') ? $input->param('budget_period_active') : undef,
- $input->param('budget_period_id'),
- );
-
- } else { # ELSE ITS AN ADD
- my $query = "
- INSERT INTO aqbudgetperiods (
- budget_period_id
- , budget_period_startdate
- , budget_period_enddate
- , budget_period_total
- , budget_period_description
- , budget_period_locked
- , budget_period_active)
- VALUES (?,?,?,?,?,?,? );
- ";
- my $sth = $dbh->prepare($query);
- $sth->execute(
- $budget_period_id,
- $input->param('budget_period_startdate') ? format_date_in_iso( $input->param('budget_period_startdate') ) : undef,
- $input->param('budget_period_enddate') ? format_date_in_iso( $input->param('budget_period_enddate') ) : undef,
- $input->param('budget_period_total') ? $input->param('budget_period_total') : undef,
- $input->param('budget_period_description') ? $input->param('budget_period_description') : undef,
- $input->param('budget_period_locked') ? $input->param('budget_period_locked') : undef,
- $input->param('budget_period_active') ? $input->param('budget_period_active') : undef,
- );
- $budget_period_id = $dbh->last_insert_id( undef, undef, 'aqbudgetperiods', undef );
- }
-
- print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=aqbudgetperiods.pl\"></html>"; #YUCK
- # output_html_with_http_headers $input, $cookie, $template->output; # FIXME: THIS WOULD BE NICER THAN THE PREVIOUS PRINT
- exit;