[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 => \@branchloop);
--- 94,98 ----
  								homebranch =>$homebranch,
  								holdingbranch => $holdingbranch,
! 								lastdate =>  format_date($lastdate),
  								count =>  $count,
  								branchloop => \@branchloop);
***************
*** 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");