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

View file

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

View file

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