From f1508cfd936a6b18982295197c424f6ec061708c Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 8 Mar 2004 01:05:12 +0000
Subject: [PATCH] bug fixes

---
 lib/WebGUI/Operation/Settings.pm | 2 +-
 lib/WebGUI/Operation/Theme.pm    | 4 ++--
 lib/WebGUI/Paginator.pm          | 1 -
 lib/WebGUI/User.pm               | 3 +--
 4 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/lib/WebGUI/Operation/Settings.pm b/lib/WebGUI/Operation/Settings.pm
index 63aa85585..e0095bab6 100644
--- a/lib/WebGUI/Operation/Settings.pm
+++ b/lib/WebGUI/Operation/Settings.pm
@@ -146,7 +146,7 @@ sub www_editMiscSettings {
 #-------------------------------------------------------------------
 sub www_editUserSettings {
    return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
-   my ($output, $f, $cmd, $html, $options);
+   my ($output, $f, $cmd, $html);
    $output .= helpIcon(2);
    $output .= '<h1>'.WebGUI::International::get(117).'</h1>';
    $output .= WebGUI::Form::_javascriptFile("swapLayers.js");
diff --git a/lib/WebGUI/Operation/Theme.pm b/lib/WebGUI/Operation/Theme.pm
index 18ac8c988..f883104db 100644
--- a/lib/WebGUI/Operation/Theme.pm
+++ b/lib/WebGUI/Operation/Theme.pm
@@ -225,7 +225,7 @@ sub www_editTheme {
 				.' '.$component->{name}.' ('.$componentTypes->{$component->{componentType}}.')<br>';
 		}
 		$sth->finish;
-		my $sth = WebGUI::SQL->read("select themeComponentId,id from themeComponent 
+		$sth = WebGUI::SQL->read("select themeComponentId,id from themeComponent 
 			where type='template' and themeId=".$session{form}{themeId});
 		while (my $data = $sth->hashRef) {
 			my ($templateId,$namespace) = split("_",$data->{id});
@@ -489,7 +489,7 @@ sub www_viewTheme {
                       $output .= $component->{name}.' ('.$componentTypes->{$component->{componentType}}.')<br>';
                }
              $sth->finish;
-            my $sth = WebGUI::SQL->read("select themeComponentId,id from themeComponent
+            $sth = WebGUI::SQL->read("select themeComponentId,id from themeComponent
                         where type='template' and themeId=".$session{form}{themeId});
                 while (my $data = $sth->hashRef) {
                         my ($templateId,$namespace) = split("_",$data->{id});
diff --git a/lib/WebGUI/Paginator.pm b/lib/WebGUI/Paginator.pm
index 1efb93ff8..7de491cca 100644
--- a/lib/WebGUI/Paginator.pm
+++ b/lib/WebGUI/Paginator.pm
@@ -449,7 +449,6 @@ Specify the form variable the paginator should use in it's links.  Defaults to "
 =cut
 
 sub new {
-        my ($class, $currentURL, $rowsPerPage, $rowRef, $formVar, $pageRef, $pn);
 	my $class = shift;
 	my $currentURL = shift;
 	my $rowsPerPage = shift || 25;
diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index f210a50b1..516ce487e 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -138,8 +138,7 @@ Deletes this user.
 =cut
 
 sub delete {
-        my ($class,$authMethod);
-        $class = shift;
+        my $class = shift;
         WebGUI::SQL->write("delete from users where userId=".$class->{_userId});
         WebGUI::SQL->write("delete from userProfileData where userId=".$class->{_userId});
 	WebGUI::Grouping::deleteUsersFromGroups([$class->{_userId}],WebGUI::Grouping::getGroupsForUser($class->{_userId}));