[Koha-cvs] koha/C4/Circulation Circ2.pm [dev_week]

[Kyle Hall]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Kyle Hall <kylemhall>   08/04/03 14:38:19

Modified files:
        C4/Circulation : Circ2.pm 

Log message:
        Adding the hooks for the new internal "finesOnReturn" system.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Circulation/Circ2.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.87.2.14.2.36&r2=1.87.2.14.2.37

Patches:
Index: Circ2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Circulation/Attic/Circ2.pm,v
retrieving revision 1.87.2.14.2.36
retrieving revision 1.87.2.14.2.37
diff -u -b -r1.87.2.14.2.36 -r1.87.2.14.2.37
--- Circ2.pm    4 Feb 2008 01:06:29 -0000       1.87.2.14.2.36
+++ Circ2.pm    3 Apr 2008 14:38:19 -0000       1.87.2.14.2.37
@@ -3,7 +3,7 @@
 
 package C4::Circulation::Circ2;
 
-# $Id: Circ2.pm,v 1.87.2.14.2.36 2008/02/04 01:06:29 sushi Exp $
+# $Id: Circ2.pm,v 1.87.2.14.2.37 2008/04/03 14:38:19 kylemhall Exp $
 
 #package to deal with Returns
 #written 3/11/99 by address@hidden
@@ -1122,6 +1122,11 @@
 
 sub returnbook {
        my ($barcode, $branch) = @_;
+
+        if ( C4::Context->preference("calcFineOnReturn") eq "Yes" ) {
+          CreateFineOnReturn( $barcode );
+        }      
+
        my %env;
        my $messages;
        my $dbh = C4::Context->dbh;
@@ -1783,6 +1788,11 @@
 sub renewbook {
 # mark book as renewed
     my ($env,$bornum,$itemno,$datedue)address@hidden;
+    
+    if ( C4::Context->preference("calcFineOnReturn") eq "Yes" ) {
+      CreateFineOnReturn( my $barcode, $itemno );
+    }
+    
     my $dbh = C4::Context->dbh;
 
 # If the due date wasn't specified, calculate it by adding the