[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" )
        {