[Koha-patches] [PATCH] fix references to $session in circ/circulation.pl

Galen Charlton galen.charlton at liblime.com
Mon May 11 23:20:24 CEST 2009


Now that sticky due date processing uses the session,
script will always need it.
---
 circ/circulation.pl |    9 +++------
 1 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/circ/circulation.pl b/circ/circulation.pl
index 41ad694..49dc338 100755
--- a/circ/circulation.pl
+++ b/circ/circulation.pl
@@ -49,14 +49,15 @@ use Date::Calc qw(
 #
 my $query = new CGI;
 
+my $sessionID = $query->cookie("CGISESSID") ;
+my $session = get_session($sessionID);
+
 # new op dev the branch and the printer are now defined by the userenv
 # but first we have to check if someone has tried to change them
 
 my $branch = $query->param('branch');
 if ($branch){
     # update our session so the userenv is updated
-    my $sessionID = $query->cookie("CGISESSID") ;
-    my $session = get_session($sessionID);
     $session->param('branch',$branch);
     my $branchname = GetBranchName($branch);
     $session->param('branchname',$branchname);
@@ -65,14 +66,10 @@ if ($branch){
 my $printer = $query->param('printer');
 if ($printer){
     # update our session so the userenv is updated
-  my $sessionID = $query->cookie("CGISESSID") ;
-  my $session = get_session($sessionID);
   $session->param('branchprinter',$printer);
 
 }
 if (!C4::Context->userenv && !$branch){
-  my $sessionID = $query->cookie("CGISESSID") ;
-  my $session = get_session($sessionID);
   if ($session->param('branch') eq 'NO_LIBRARY_SET'){
     # no branch set we can't issue
     print $query->redirect("/cgi-bin/koha/circ/selectbranchprinter.pl");
-- 
1.5.6.5




More information about the Koha-patches mailing list