oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

several bug fixes

Browse source 
added asset type icons to toolbar
added isAdminOn, switchOnAdmin, and switchOffAdmin subs to WebGUI::Session
This commit is contained in:
JT Smith 2005-03-03 22:34:14 +00:00
parent e5f55921ab
commit e9d6c1b4e4
9 changed files with 80 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

38
lib/WebGUI/Session.pm
View file

@ -275,6 +275,18 @@ sub getScratch {
#-------------------------------------------------------------------
=head2 isAdminOn ( )
Returns a boolean indicating whether admin mode is on or not.
=cut
sub isAdminOn {
return $session{var}{adminOn};
}
#-------------------------------------------------------------------
=head2 open ( webguiRoot, configFile [ , fastcgi ] )
Opens a closed ( or new ) WebGUI session.
@ -490,4 +502,30 @@ sub start {
return $sessionId;
}
#-------------------------------------------------------------------
=head2 switchAdminOff ( )
Disables admin mode.
=cut
sub switchAdminOff {
WebGUI::SQL->write("update userSession set adminOn=0 where sessionId='$session{var}{sessionId}'");
refreshSessionVars($session{var}{sessionId});
}
#-------------------------------------------------------------------
=head2 switchAdminOn ( )
Enables admin mode.
=cut
sub switchAdminOn {
WebGUI::SQL->write("update userSession set adminOn=1 where sessionId='$session{var}{sessionId}'");
refreshSessionVars($session{var}{sessionId});
}
1;