[Koha-cvs] koha/circ circulation.pl [dev_week]

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     07/05/15 20:26:05

Modified files:
        circ           : circulation.pl 

Log message:
        adding issuingrule syspref debug

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.81.2.14.2.19&r2=1.81.2.14.2.20

Patches:
Index: circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.81.2.14.2.19
retrieving revision 1.81.2.14.2.20
diff -u -b -r1.81.2.14.2.19 -r1.81.2.14.2.20
--- circulation.pl      14 May 2007 16:27:54 -0000      1.81.2.14.2.19
+++ circulation.pl      15 May 2007 20:26:04 -0000      1.81.2.14.2.20
@@ -44,6 +44,8 @@
 Date_to_Days
 );
 #use Date::Manip;
+use Smart::Comments;
+use Data::Dumper;
 
 #
 # PARAMETERS READING
@@ -110,6 +112,8 @@
 # STEP 2 : FIND BORROWER
 # if there is a list of find borrowers....
 #
+
+warn "bbb";
 my $borrowerslist;
 my $message;
 if ($findborrower) {
@@ -166,7 +170,6 @@
 #
 
 
-
 if ($barcode) {
        $barcode = cuecatbarcodedecode($barcode);
        my ($datedue, $invalidduedate) = fixdate($year, $month, $day);
@@ -208,6 +211,8 @@
 }
 
 
+
+
 
##################################################################################
 # BUILD HTML
 
@@ -361,6 +366,15 @@
 }
 #title
 
+my   $issuingrulebranch;
+if  (C4::Context->preference("useIssuingRules") eq 'CircBranch') {
+    $issuingrulebranch = $branches->{$branch}->{'branchcode'};
+}    
+else {
+    warn    $borrower->{'branchcode'}
+
+}
+
 my ($patrontable, $flaginfotable) = patrontable($borrower);
 my $amountold=$borrower->{flags}->{'CHARGES'}->{'message'};
 my @temp=split(/\$/,$amountold);
@@ -391,6 +405,8 @@
                CGIselectborrower => $CGIselectborrower,
                todayissues => address@hidden,
                previssues => address@hidden,
+        issuingrulebranch => $issuingrulebranch,
+        useIssuingRules   => C4::Context->preference("useIssuingRules")
        );
 # set return date if stickyduedate
 if ($stickyduedate) {
@@ -414,6 +430,7 @@
                patronimages => C4::Context->preference("patronimages"),
                SpecifyDueDate => C4::Context->preference("SpecifyDueDate")
                );
+warn "ll";
 output_html_with_http_headers $query, $cookie, $template->output;
 
 ####################################################################