[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Search.pm,1.63,1.64
From: |
Mike Hansen |
Subject: |
[Koha-cvs] CVS: koha/C4 Search.pm,1.63,1.64 |
Date: |
Thu, 08 May 2003 06:19:42 -0700 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Search.pm,1.63,1.64,
Mike Hansen <=
- Prev by Date:
[Koha-cvs] CVS: koha bookcount.pl,1.6,1.7 detail.pl,1.21,1.22 request.pl,1.23,1.24
- Next by Date:
[Koha-cvs] CVS: koha/opac opac-account.pl,1.6,1.7
- Previous by thread:
[Koha-cvs] CVS: koha bookcount.pl,1.6,1.7 detail.pl,1.21,1.22 request.pl,1.23,1.24
- Next by thread:
[Koha-cvs] CVS: koha/opac opac-account.pl,1.6,1.7
- Index(es):