[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)=@_;
--- 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'){