Bug 24786: Allow setting a register for the session

[koha-ffzg.git] / C4 / Context.pm

diff --git a/C4/Context.pm b/C4/Context.pm
index 2dab73e..7ce0516 100644 (file)
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -805,7 +805,8 @@ sub userenv {
                            $userfirstname, $usersurname,
                            $userbranch, $branchname, $userflags,
                            $emailaddress, $shibboleth
-                           $desk_id, $desk_name);
+                           $desk_id, $desk_name,
+                           $register_id);
 
 Establish a hash of user environment variables.
 
@@ -816,7 +817,7 @@ set_userenv is called in Auth.pm
 #'
 sub set_userenv {
     shift @_;
-    my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $shibboleth, $desk_id, $desk_name)=
+    my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $shibboleth, $desk_id, $desk_name, $register_id)=
     map { Encode::is_utf8( $_ ) ? $_ : Encode::decode('UTF-8', $_) } # CGI::Session doesn't handle utf-8, so we decode it here
     @_;
     my $var=$context->{"activeuser"} || '';
@@ -826,14 +827,16 @@ sub set_userenv {
         "cardnumber" => $usercnum,
         "firstname"  => $userfirstname,
         "surname"    => $usersurname,
+
         #possibly a law problem
-        "branch"     => $userbranch,
-        "branchname" => $branchname,
-        "desk_id"    => $desk_id,
-        "desk_name"  => $desk_name,
-        "flags"      => $userflags,
-        "emailaddress"     => $emailaddress,
-        "shibboleth" => $shibboleth,
+        "branch"       => $userbranch,
+        "branchname"   => $branchname,
+        "flags"        => $userflags,
+        "emailaddress" => $emailaddress,
+        "shibboleth"   => $shibboleth,
+        "desk_id"      => $desk_id,
+        "desk_name"    => $desk_name,
+        "register_id"  => $register_id,
     };
     $context->{userenv}->{$var} = $cell;
     return $cell;