From 1c1c585073c0fc2bcbe3957f1b57e7ef4c4410fa Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Wed, 3 Jun 2009 11:26:26 -0500 Subject: [PATCH] Minor POD update - copied section doesn't apply to other function Signed-off-by: Galen Charlton --- C4/Context.pm | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/C4/Context.pm b/C4/Context.pm index 2f2bc96c17..0d07ebfd8f 100644 --- a/C4/Context.pm +++ b/C4/Context.pm @@ -877,18 +877,15 @@ sub _new_stopwords C4::Context->userenv; -Builds a hash for user environment variables. +Retrieves a hash for user environment variables. This hash shall be cached for future use: if you call Cuserenv> twice, you will get the same hash without real DB access -set_userenv is called in Auth.pm - =cut #' -sub userenv -{ +sub userenv { my $var = $context->{"activeuser"}; return $context->{"userenv"}->{$var} if (defined $var and defined $context->{"userenv"}->{$var}); # insecure=1 management @@ -911,17 +908,14 @@ sub userenv C4::Context->set_userenv($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $userflags, $emailaddress); -Informs a hash for user environment variables. - -This hash shall be cached for future use: if you call -Cuserenv> twice, you will get the same hash without real DB access +Establish a hash of user environment variables. set_userenv is called in Auth.pm =cut #' -sub set_userenv{ +sub set_userenv { my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $branchprinter)= @_; my $var=$context->{"activeuser"}; my $cell = { -- 2.39.5