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

fixes

Browse source
This commit is contained in:
Matthew Wilson 2006-01-18 21:02:59 +00:00
parent 00fb318ec5
commit d00a040248
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/HTMLForm.pm
View file

@ -198,7 +198,7 @@ sub raw {
my ($output); my ($output);
my ($self, @p) = @_; my ($self, @p) = @_;
my ($value, $uiLevel) = rearrange([qw(value uiLevel)], @p); my ($value, $uiLevel) = rearrange([qw(value uiLevel)], @p);
if (_uiLevelChecksOut($uiLevel)) { if ($self->_uiLevelChecksOut($uiLevel)) {
$self->{_data} .= $value; $self->{_data} .= $value;
} }
$self->{_data} .= $output; $self->{_data} .= $output;

2
lib/WebGUI/Operation/Settings.pm
View file

@ -291,7 +291,7 @@ sub www_saveSettings {
my $session = shift; use WebGUI; WebGUI::dumpSession($session); my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3)); return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($key, $value); my ($key, $value);
foreach $key ($session->request->params) { foreach $key (%{$session->form->paramsHashRef}) {
$value = $session->form->process("$key"); $value = $session->form->process("$key");
if ($key =~ m/(.*)_interval/) { if ($key =~ m/(.*)_interval/) {
$value = $session->form->interval($1); $value = $session->form->interval($1);