[Koha-cvs] koha/circ circulation.pl currenttransfers.pl [rel_3_0]

[LAURIN arnaud]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	LAURIN arnaud <alaurin>	06/12/18 17:50:14

Modified files:
	circ           : circulation.pl currenttransfers.pl 

Log message:
	minor bugfixing :
	
	for circulation.pl : now the display of issuecount is ok
	
	for currenttransfers.pl : Getbranches is now linked to branch.pm

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.97.2.17&r2=1.97.2.18
http://cvs.savannah.gnu.org/viewcvs/koha/circ/currenttransfers.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.3.2.9&r2=1.3.2.10

Patches:
Index: circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.97.2.17
retrieving revision 1.97.2.18
diff -u -b -r1.97.2.17 -r1.97.2.18
--- circulation.pl	18 Dec 2006 10:59:54 -0000	1.97.2.17
+++ circulation.pl	18 Dec 2006 17:50:14 -0000	1.97.2.18
@@ -212,12 +212,6 @@
     if ($issueconfirmed) {
         issuebook( \%env, $borrower, $barcode, $datedue, $cancelreserve );
         $inprocess = 1;
-        
-# FIXME If the issue is confirmed, we launch another time borrdata2, now display the issue count after issue 
-        my ( $od, $issue, $fines ) = borrdata2( \%env, $borrowernumber );
-        $template->param(
-        issuecount   => $issue,
-        );
     }
     else {
         my ( $error, $question ) =
@@ -253,6 +247,12 @@
             $inprocess = 1;
         }
     }
+    
+# FIXME If the issue is confirmed, we launch another time borrdata2, now display the issue count after issue 
+        my ( $od, $issue, $fines ) = borrdata2( \%env, $borrowernumber );
+        $template->param(
+        issuecount   => $issue,
+        );
 }
 
 # reload the borrower info for the sake of reseting the flags.....

Index: currenttransfers.pl
===================================================================
RCS file: /sources/koha/koha/circ/currenttransfers.pl,v
retrieving revision 1.3.2.9
retrieving revision 1.3.2.10
diff -u -b -r1.3.2.9 -r1.3.2.10
--- currenttransfers.pl	18 Dec 2006 16:35:18 -0000	1.3.2.9
+++ currenttransfers.pl	18 Dec 2006 17:50:14 -0000	1.3.2.10
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: currenttransfers.pl,v 1.3.2.9 2006/12/18 16:35:18 toins Exp $
+# $Id: currenttransfers.pl,v 1.3.2.10 2006/12/18 17:50:14 alaurin Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -20,10 +20,10 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use CGI;
 use C4::Context;
 use C4::Output;
-use CGI;
-
+use C4::Branch;
 use C4::Auth;
 use C4::Date;
 use C4::Circulation::Circ2;