koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha/circ returns.pl,1.37.2.1,1.37.2.2


From: Paul POULAIN
Subject: [Koha-cvs] CVS: koha/circ returns.pl,1.37.2.1,1.37.2.2
Date: Tue, 25 Oct 2005 05:39:54 -0700

Update of /cvsroot/koha/koha/circ
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6118/circ

Modified Files:
      Tag: rel_2_2
        returns.pl 
Log Message:
minor bugfix : showing date in format from systempreferences

Index: returns.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/returns.pl,v
retrieving revision 1.37.2.1
retrieving revision 1.37.2.2
diff -C2 -r1.37.2.1 -r1.37.2.2
*** returns.pl  10 Aug 2005 17:30:12 -0000      1.37.2.1
--- returns.pl  25 Oct 2005 12:39:52 -0000      1.37.2.2
***************
*** 27,30 ****
--- 27,31 ----
  use CGI;
  use C4::Circulation::Circ2;
+ use C4::Date;
  use C4::Search;
  use C4::Output;
***************
*** 374,378 ****
                    getiteminformation( \%env, $item->{'itemnumber'}, 0 );
                  my %overdueitem;
!                 $overdueitem{duedate}   = $item->{'date_due'};
                  $overdueitem{biblionum} = $iteminformation->{'biblionumber'};
                  $overdueitem{barcode}   = $iteminformation->{'barcode'};
--- 375,379 ----
                    getiteminformation( \%env, $item->{'itemnumber'}, 0 );
                  my %overdueitem;
!                 $overdueitem{duedate}   = format_date($item->{'date_due'});
                  $overdueitem{biblionum} = $iteminformation->{'biblionumber'};
                  $overdueitem{barcode}   = $iteminformation->{'barcode'};
***************
*** 430,434 ****
                . sprintf( "%0.2d", ( $datearr[4] + 1 ) ) . '-'
                . sprintf( "%0.2d", $datearr[3] );
!           $ri{duedate}=$duedate;
              my ($borrower) =
                getpatroninformation( \%env, $riborrowernumber{$_}, 0 );
--- 431,435 ----
                . sprintf( "%0.2d", ( $datearr[4] + 1 ) ) . '-'
                . sprintf( "%0.2d", $datearr[3] );
!           $ri{duedate}=format_date($duedate);
              my ($borrower) =
                getpatroninformation( \%env, $riborrowernumber{$_}, 0 );




reply via email to

[Prev in Thread] Current Thread [Next in Thread]