[Koha-cvs] CVS: koha bookcount.pl,1.6,1.7 detail.pl,1.21,1.22 request.pl,1.23,1.24

[Mike Hansen]

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

Modified Files:
        bookcount.pl detail.pl request.pl 
Log Message:
Changed the scripts to use format_date


Index: bookcount.pl
===================================================================
RCS file: /cvsroot/koha/koha/bookcount.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** bookcount.pl        3 May 2003 00:28:13 -0000       1.6
--- bookcount.pl        8 May 2003 13:19:39 -0000       1.7
***************
*** 33,36 ****
--- 33,37 ----
  use C4::Auth;
  use HTML::Template;
+ use C4::Date;
  
  # get all the data ....
***************
*** 93,97 ****
                                                                homebranch 
=>$homebranch,
                                                                holdingbranch 
=> $holdingbranch,
!                                                               lastdate =>  
$lastdate,
                                                                count =>  
$count,
                                                                branchloop => 
address@hidden);
--- 94,98 ----
                                                                homebranch 
=>$homebranch,
                                                                holdingbranch 
=> $holdingbranch,
!                                                               lastdate =>  
format_date($lastdate),
                                                                count =>  
$count,
                                                                branchloop => 
address@hidden);
***************
*** 195,198 ****
      }
      my ($yr, $mo, $da, $hr, $mi) = (substr($date, 0, 4), substr($date, 4, 2), 
substr($date, 6, 2), substr($date, 8, 2), substr($date, 10, 2));
!     return "$hr:$mi  $da/$mo/$yr";
  }
--- 196,199 ----
      }
      my ($yr, $mo, $da, $hr, $mi) = (substr($date, 0, 4), substr($date, 4, 2), 
substr($date, 6, 2), substr($date, 8, 2), substr($date, 10, 2));
!     return "$hr:$mi  " . format_date("$yr-$mo-$da");
  }

Index: detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/detail.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** detail.pl   4 Apr 2003 08:46:37 -0000       1.21
--- detail.pl   8 May 2003 13:19:40 -0000       1.22
***************
*** 28,31 ****
--- 28,32 ----
  use C4::Auth;
  use C4::Interface::CGI::Output;
+ use C4::Date;
  
  my $query=new CGI;

Index: request.pl
===================================================================
RCS file: /cvsroot/koha/koha/request.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -r1.23 -r1.24
*** request.pl  22 Apr 2003 08:20:42 -0000      1.23
--- request.pl  8 May 2003 13:19:40 -0000       1.24
***************
*** 87,91 ****
  $year=$year+1900;
  $mon++;
! my $date="$mday/$mon/$year";
  
  
--- 87,91 ----
  $year=$year+1900;
  $mon++;
! my $date=format_date("$year-$mon-$mday");