[Koha-cvs] CVS: koha moremember.pl,1.25,1.26 request.pl,1.21,1.22

[Mike Hansen]

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

Modified Files:
	moremember.pl request.pl 
Log Message:


Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/moremember.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -r1.25 -r1.26
*** moremember.pl	26 Mar 2003 04:22:19 -0000	1.25
--- moremember.pl	26 Mar 2003 04:42:56 -0000	1.26
***************
*** 129,133 ****
    if ($amount2 != 0){
      my $item="   ";
!     $row{'date'} = slashifyDate($accts->[$i]{'date'});
  
      if ($accts->[$i]{'accounttype'} ne 'Res'){
--- 129,133 ----
    if ($amount2 != 0){
      my $item="   ";
!     $row{'date'} = format_date($accts->[$i]{'date'});
  
      if ($accts->[$i]{'accounttype'} ne 'Res'){
***************
*** 154,158 ****
  for (my $i=0;$i<$count;$i++){
    my $datedue=ParseDate($issue->[$i]{'date_due'});
!   $issue->[$i]{'date_due'} = slashifyDate($issue->[$i]{'date_due'});
    my %row = %{$issue->[$i]};
    if ($datedue < $today){
--- 154,158 ----
  for (my $i=0;$i<$count;$i++){
    my $datedue=ParseDate($issue->[$i]{'date_due'});
!   $issue->[$i]{'date_due'} = format_date($issue->[$i]{'date_due'});
    my %row = %{$issue->[$i]};
    if ($datedue < $today){
***************
*** 191,195 ****
  my @reservedata;
  for (my $i=0;$i<$rescount;$i++){
!   $reserves->[$i]{'reservedate2'} = slashifyDate($reserves->[$i]{'reservedate'});
    my $restitle;
    my %row = %$reserves->[$i];
--- 191,195 ----
  my @reservedata;
  for (my $i=0;$i<$rescount;$i++){
!   $reserves->[$i]{'reservedate2'} = format_date($reserves->[$i]{'reservedate'});
    my $restitle;
    my %row = %$reserves->[$i];

Index: request.pl
===================================================================
RCS file: /cvsroot/koha/koha/request.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** request.pl	10 Mar 2003 15:16:55 -0000	1.21
--- request.pl	26 Mar 2003 04:42:56 -0000	1.22
***************
*** 35,38 ****
--- 35,40 ----
  use C4::Catalogue;
  use CGI;
+ use C4::Date;
+ 
  my $input = new CGI;
  
***************
*** 155,159 ****
  		$reserve{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'};
      }
!     $reserve{'date'} = slashifyDate($res->{'reservedate'});
  	$reserve{'borrowernumber'}=$res->{'borrowernumber'};
  	$reserve{'biblionumber'}=$res->{'biblionumber'};
--- 157,161 ----
  		$reserve{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'};
      }
!     $reserve{'date'} = format_date($res->{'reservedate'});
  	$reserve{'borrowernumber'}=$res->{'borrowernumber'};
  	$reserve{'biblionumber'}=$res->{'biblionumber'};