|
Lines 747-790
sub set_userenv {
Link Here
|
| 747 |
return $cell; |
747 |
return $cell; |
| 748 |
} |
748 |
} |
| 749 |
|
749 |
|
| 750 |
=head2 _new_userenv |
750 |
=head2 new_userenv |
| 751 |
|
751 |
|
| 752 |
C4::Context->_new_userenv($session); # FIXME: This calling style is wrong for what looks like an _internal function |
752 |
C4::Context->new_userenv($session); |
| 753 |
|
753 |
|
| 754 |
Builds a hash for user environment variables. |
754 |
Builds a hash for user environment variables. |
| 755 |
|
755 |
|
| 756 |
This hash shall be cached for future use: if you call |
756 |
This hash shall be cached for future use: if you call |
| 757 |
C<C4::Context-E<gt>userenv> twice, you will get the same hash without real DB access |
757 |
C<C4::Context-E<gt>userenv> twice, you will get the same hash without real DB access |
| 758 |
|
758 |
|
| 759 |
_new_userenv is called in Auth.pm |
759 |
new_userenv is called in Auth.pm |
| 760 |
|
760 |
|
| 761 |
=cut |
761 |
=cut |
| 762 |
|
762 |
|
| 763 |
#' |
763 |
sub new_userenv { |
| 764 |
sub _new_userenv |
764 |
my ( $class, $sessionID ) = @_; |
| 765 |
{ |
765 |
$context->{activeuser} = $sessionID; |
| 766 |
shift; # Useless except it compensates for bad calling style |
|
|
| 767 |
my ($sessionID)= @_; |
| 768 |
$context->{"activeuser"}=$sessionID; |
| 769 |
} |
766 |
} |
| 770 |
|
767 |
|
| 771 |
=head2 _unset_userenv |
768 |
=head2 unset_userenv |
| 772 |
|
769 |
|
| 773 |
C4::Context->_unset_userenv; |
770 |
C4::Context->unset_userenv( $sessionID ); |
| 774 |
|
771 |
|
| 775 |
Destroys the hash for activeuser user environment variables. |
772 |
Destroys the hash for activeuser user environment variables if sessionID matches. |
| 776 |
|
773 |
|
| 777 |
=cut |
774 |
=cut |
| 778 |
|
775 |
|
| 779 |
#' |
776 |
sub unset_userenv { |
| 780 |
|
777 |
my ( $class, $sessionID )= @_; |
| 781 |
sub _unset_userenv |
778 |
if( defined($sessionID) && defined($context->{activeuser}) && |
| 782 |
{ |
779 |
$context->{activeuser} eq $sessionID ) |
| 783 |
my ($sessionID)= @_; |
780 |
{ |
| 784 |
undef $context->{"activeuser"} if ($context->{"activeuser"} eq $sessionID); |
781 |
undef $context->{activeuser}; |
|
|
782 |
} |
| 785 |
} |
783 |
} |
| 786 |
|
784 |
|
| 787 |
|
|
|
| 788 |
=head2 get_versions |
785 |
=head2 get_versions |
| 789 |
|
786 |
|
| 790 |
C4::Context->get_versions |
787 |
C4::Context->get_versions |
| 791 |
- |
|
|