[Koha-cvs] koha/C4/Circulation Fines.pm [rel_3_0]

[Bruno Toumi]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Bruno Toumi <btoumi>    06/12/13 08:22:09

Modified files:
        C4/Circulation : Fines.pm 

Log message:
        add call to unixdate from date::manip before to find euivalent function 
to remove this call

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Fines.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.14.2.7&r2=1.14.2.8

Patches:
Index: Fines.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Fines.pm,v
retrieving revision 1.14.2.7
retrieving revision 1.14.2.8
diff -u -b -r1.14.2.7 -r1.14.2.8
--- Fines.pm    28 Nov 2006 14:07:38 -0000      1.14.2.7
+++ Fines.pm    13 Dec 2006 08:22:09 -0000      1.14.2.8
@@ -1,6 +1,6 @@
 package C4::Circulation::Fines;
 
-# $Id: Fines.pm,v 1.14.2.7 2006/11/28 14:07:38 toins Exp $
+# $Id: Fines.pm,v 1.14.2.8 2006/12/13 08:22:09 btoumi Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -26,10 +26,10 @@
 use Date::Calc qw/Today/;
 use vars qw($VERSION @ISA @EXPORT);
 use C4::Accounts2;
-
+use Date::Manip qw/UnixDate/;
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.14.2.7 $' =~ /\d+/g; 
+$VERSION = do { my @v = '$Revision: 1.14.2.8 $' =~ /\d+/g; 
 shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -365,7 +365,6 @@
 sub UpdateFine {
     my ( $itemnum, $borrowernumber, $amount, $type, $due ) = @_;
     my $dbh = C4::Context->dbh;
-
     # FIXME - What exactly is this query supposed to do? It looks up an
     # entry in accountlines that matches the given item and borrower
     # numbers, where the description contains $due, and where the