[Koha-cvs] CVS: koha/C4 Date.pm,1.9,1.10

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv11521/C4

Modified Files:
	Date.pm 
Log Message:
small improvment

Index: Date.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Date.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** Date.pm	29 Mar 2003 00:02:29 -0000	1.9
--- Date.pm	1 Apr 2003 12:26:02 -0000	1.10
***************
*** 26,38 ****
  	#Get the database handle
  	my $dbh = C4::Context->dbh;
! 
! 	#Query the database to get the dateformat
! 	my $sth = $dbh->prepare("SELECT value FROM systempreferences WHERE variable='dateformat'");
! 
! 	$sth->execute();
! 
! 	my ($dateformat) = $sth->fetchrow;
! 	
! 	return $dateformat
  }
  
--- 26,30 ----
  	#Get the database handle
  	my $dbh = C4::Context->dbh;
! 	return C4::Context->preference('dateformat');
  }
  
***************
*** 40,44 ****
  {
  	my $dateformat = get_date_format();
! 	
  	if ( $dateformat eq "us" )
  	{
--- 32,36 ----
  {
  	my $dateformat = get_date_format();
! 
  	if ( $dateformat eq "us" )
  	{