[Koha-cvs] CVS: koha/C4 Search.pm,1.63,1.64

[Mike Hansen]

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

Modified Files:
	Search.pm 
Log Message:
Changed the scripts to use format_date


Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.63
retrieving revision 1.64
diff -C2 -r1.63 -r1.64
*** Search.pm	29 Apr 2003 16:50:51 -0000	1.63
--- Search.pm	8 May 2003 13:19:40 -0000	1.64
***************
*** 25,28 ****
--- 25,29 ----
  	# FIXME - C4::Search uses C4::Reserves2, which uses C4::Search.
  	# So Perl complains that all of the functions here get redefined.
+ use C4::Date;
  
  use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
***************
*** 1256,1263 ****
      $isth->execute;
      if (my $idata=$isth->fetchrow_hashref){
!       # FIXME - The date ought to be properly parsed, and printed
!       # according to local convention.
!       my @temp=split('-',$idata->{'date_due'});
!       $datedue = "$temp[2]/$temp[1]/$temp[0]";
      }
      if ($data->{'itemlost'} eq '2'){
--- 1257,1261 ----
      $isth->execute;
      if (my $idata=$isth->fetchrow_hashref){
!       $datedue = format_date($idata->{'date_due'});
      }
      if ($data->{'itemlost'} eq '2'){
***************
*** 1306,1311 ****
      # to leave it empty, rather than convert it to "//".
      # Also ideally this should use the local format for displaying dates.
!     my @temp=split('-',$data->{'datelastseen'});
!     my $date="$temp[2]/$temp[1]/$temp[0]";
      $data->{'datelastseen'}=$date;
      $data->{'datedue'}=$datedue;
--- 1304,1308 ----
      # to leave it empty, rather than convert it to "//".
      # Also ideally this should use the local format for displaying dates.
!     my $date=format_date($data->{'datelastseen'});
      $data->{'datelastseen'}=$date;
      $data->{'datedue'}=$datedue;