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

a ton of $session fixes (thanks to Colin), and a new $session checker, that supposedly, shouldn't be needed now. It can be backed out, however, easily.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-16 22:45:21 +00:00
parent 5fadc70eac
commit 09483e18c5
208 changed files with 505 additions and 533 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Operation/LDAPLink.pm
View file

@ -20,7 +20,7 @@ use WebGUI::SQL;
#-------------------------------------------------------------------
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $workarea = shift;
my $title = shift;
my $i18n = WebGUI::International->new($session,"AuthLDAP");
@ -46,7 +46,7 @@ sub _submenu {
#-------------------------------------------------------------------
sub www_copyLDAPLink {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
my (%db);
tie %db, 'Tie::CPHash';
@ -60,7 +60,7 @@ sub www_copyLDAPLink {
#-------------------------------------------------------------------
sub www_deleteLDAPLink {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
$session->db->write("delete from ldapLink where ldapLinkId=".$session->db->quote($session->form->process("llid")));
$session->form->process("op") = "listLDAPLinks";
@ -69,7 +69,7 @@ sub www_deleteLDAPLink {
#-------------------------------------------------------------------
sub www_editLDAPLink {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
my ($output, %db, $f);
tie %db, 'Tie::CPHash';
@ -182,7 +182,7 @@ sub www_editLDAPLink {
#-------------------------------------------------------------------
sub www_editLDAPLinkSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
my $properties = {};
$properties->{ldapLinkId} = $session->form->process("llid");
@ -208,7 +208,7 @@ sub www_editLDAPLinkSave {
#-------------------------------------------------------------------
sub www_listLDAPLinks {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless($session->user->isInGroup(3));
my ($output, $p, $sth, $data, @row, $i);
my $i18n = WebGUI::International->new($session,"AuthLDAP");