From d00a040248e3c952d5b8fb111be4d15fe2b9cca8 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Wed, 18 Jan 2006 21:02:59 +0000
Subject: [PATCH] fixes

---
 lib/WebGUI/HTMLForm.pm           | 2 +-
 lib/WebGUI/Operation/Settings.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/HTMLForm.pm b/lib/WebGUI/HTMLForm.pm
index fe71a68c0..e0c6204ed 100644
--- a/lib/WebGUI/HTMLForm.pm
+++ b/lib/WebGUI/HTMLForm.pm
@@ -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;
diff --git a/lib/WebGUI/Operation/Settings.pm b/lib/WebGUI/Operation/Settings.pm
index 79d0c7e94..7c68b5b47 100644
--- a/lib/WebGUI/Operation/Settings.pm
+++ b/lib/WebGUI/Operation/Settings.pm
@@ -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);