[Koha-cvs] CVS: koha/admin aqbudget.pl,1.12,1.13

[Mike Hansen]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv6938/koha/admin

Modified Files:
        aqbudget.pl 
Log Message:
Fixed the dates in aqbudget.pl


Index: aqbudget.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbudget.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** aqbudget.pl 5 Feb 2003 15:52:24 -0000       1.12
--- aqbudget.pl 5 Apr 2003 03:19:33 -0000       1.13
***************
*** 40,43 ****
--- 40,44 ----
  use strict;
  use CGI;
+ use C4::Date;
  use C4::Auth;
  use C4::Context;
***************
*** 47,52 ****
  use HTML::Template;
  
- 
- 
  sub StringSearch  {
        my ($env,$searchstring,$type)address@hidden;
--- 48,51 ----
***************
*** 131,136 ****
            $template->param(adding => 1);
        }
!       $template->param(startdate => $dataaqbudget->{'startdate'});
!       $template->param(enddate => $dataaqbudget->{'enddate'});
        $template->param(budgetamount => $dataaqbudget->{'budgetamount'});
                                                                                
                        # END $OP eq ADD_FORM
--- 130,136 ----
            $template->param(adding => 1);
        }
!       $template->param(dateformat => display_date_format() );
!       $template->param(startdate => 
format_date($dataaqbudget->{'startdate'}));
!       $template->param(enddate => format_date($dataaqbudget->{'enddate'}));
        $template->param(budgetamount => $dataaqbudget->{'budgetamount'});
                                                                                
                        # END $OP eq ADD_FORM
***************
*** 141,146 ****
        my $query = "replace aqbudget 
(bookfundid,startdate,enddate,budgetamount) values (";
        $query.= $dbh->quote($input->param('bookfundid')).",";
!       $query.= $dbh->quote($input->param('startdate')).",";
!       $query.= $dbh->quote($input->param('enddate')).",";
        $query.= $dbh->quote($input->param('budgetamount')).")";
        my $sth=$dbh->prepare($query);
--- 141,146 ----
        my $query = "replace aqbudget 
(bookfundid,startdate,enddate,budgetamount) values (";
        $query.= $dbh->quote($input->param('bookfundid')).",";
!       $query.= 
$dbh->quote(format_date_in_iso($input->param('startdate'))).",";
!       $query.= $dbh->quote(format_date_in_iso($input->param('enddate'))).",";
        $query.= $dbh->quote($input->param('budgetamount')).")";
        my $sth=$dbh->prepare($query);
***************
*** 161,166 ****
        $sth->finish;
        $template->param(bookfundid => $bookfundid);
!       $template->param(startdate => $data->{'startdate'});
!       $template->param(enddate => $data->{'enddate'});
        $template->param(budgetamount => $data->{'budgetamount'});
                                                                                
                        # END $OP eq DELETE_CONFIRM
--- 161,166 ----
        $sth->finish;
        $template->param(bookfundid => $bookfundid);
!       $template->param(startdate => format_date($data->{'startdate'}));
!       $template->param(enddate => format_date($data->{'enddate'}));
        $template->param(budgetamount => $data->{'budgetamount'});
                                                                                
                        # END $OP eq DELETE_CONFIRM
***************
*** 206,211 ****
                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'){
--- 206,211 ----
                push(@bookfundid,$results->[$i]{'bookfundid'});
                push(@bookfundname,$dataaqbookfund->{'bookfundname'});
!               push(@startdate,format_date($results->[$i]{'startdate'}));
!               push(@enddate,format_date($results->[$i]{'enddate'}));
                push(@budgetamount,$results->[$i]{'budgetamount'});
                if ($toggle eq 'white'){