From c910e7e9c8e061417d8a617b849874e1f55b76e0 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 29 May 2002 20:47:50 +0000
Subject: [PATCH] Massive code cleanup.

---
 lib/WebGUI/Form.pm     | 195 -----------------------------------------
 lib/WebGUI/Shortcut.pm |  88 -------------------
 2 files changed, 283 deletions(-)
 delete mode 100644 lib/WebGUI/Form.pm
 delete mode 100644 lib/WebGUI/Shortcut.pm

diff --git a/lib/WebGUI/Form.pm b/lib/WebGUI/Form.pm
deleted file mode 100644
index c4e4fa64e..000000000
--- a/lib/WebGUI/Form.pm
+++ /dev/null
@@ -1,195 +0,0 @@
-package WebGUI::Form;
-
-
-
-#####################################################################
-#####################################################################
-# NOTICE: Use of this subsystem is depricated and is not recommended.
-#####################################################################
-#####################################################################
-
-
-
-#-------------------------------------------------------------------
-# WebGUI is Copyright 2001-2002 Plain Black Software.
-#-------------------------------------------------------------------
-# Please read the legal notices (docs/legal.txt) and the license
-# (docs/license.txt) that came with this distribution before using
-# this software.
-#-------------------------------------------------------------------
-# http://www.plainblack.com                     info@plainblack.com
-#-------------------------------------------------------------------
-
-use strict qw(vars subs);
-use WebGUI::International;
-use WebGUI::Session;
-use WebGUI::SQL;
-
-#-------------------------------------------------------------------
-sub _fixQuotes {
-        my $value = shift;
-	$value =~ s/\"/\&quot\;/g;
-        return $value;
-}
-
-#-------------------------------------------------------------------
-sub checkbox {
-        my ($output, $name, $value, $checked);
-        ($name, $value, $checked) = @_;
-        if ($checked) {
-                $checked = ' checked';
-        }
-        $output = '<input type="checkbox" name="'.$name.'" value="'.$value.'"'.$checked.'>';
-        return $output;
-}
-
-#-------------------------------------------------------------------
-sub file {
-        my ($output, $name);
-        ($name) = @_;
-        $output = '<input type="file" name="'.$name.'">';
-        return $output;
-}
-
-#-------------------------------------------------------------------
-sub groupList {
-	my ($output, %hash, @array);
-	tie %hash, 'Tie::IxHash';
- 	%hash = WebGUI::SQL->buildHash("select groupId,groupName from groups where groupName<>'Reserved' order by groupName");
-        $array[0] = $_[1];
-        $output = selectList($_[0],\%hash,\@array);
-	return $output;
-}
-
-#-------------------------------------------------------------------
-sub hidden {
-        my ($output, $name, $value);
-        ($name, $value) = @_;
-	$value = _fixQuotes($value);
-        $output = '<input type="hidden" name="'.$name.'" value="'.$value.'">';
-        return $output;
-}
-
-#-------------------------------------------------------------------
-sub password {
-        my ($output, $name, $size, $maxLength, $value);
-        $name = shift;
-        $size = shift;
-        if ($size eq "") {
-                $size = 15;
-        }
-        $maxLength = shift;
-        if ($maxLength ne "") {
-                $maxLength = ' maxlength="'.$maxLength.'"';
-        }
-        $value = shift;
-        $output = '<input type="password" name="'.$name.'" value="'.$value.'" size="'.$size.'" '.$maxLength.'>';
-        return $output;
-}
-
-#-------------------------------------------------------------------
-sub radio {
-        my ($output, $name, $value, $checked);
-        ($name, $value, $checked) = @_;
-        if ($checked) {
-                $checked = ' checked';
-        }
-        $output = '<input type="radio" name="'.$name.'" value="'.$value.'"'.$checked.'>';
-        return $output;
-}
-
-#-------------------------------------------------------------------
-# eg: selectList(name, valueListHashref, selectedArrayref, size, multipleSelection, onChange)
-sub selectList {
-	my ($output, $valueList, $key, $item, $name, $selected, $size, $multiple, $onChange);
-	($name, $valueList, $selected, $size, $multiple, $onChange) = @_;
-	if ($size > 1) {
-		$size = ' size="'.$size.'"';
-	}		
-	if ($multiple > 0) {
-		$multiple = ' multiple="1"';
-	}
-	if ($onChange ne "") {
-		$onChange = ' onChange="'.$onChange.'"';
-	}	
-	$output	= '<select name="'.$name.'"'.$size.$multiple.$onChange.'>'; 
-	foreach $key (keys %{$valueList}) {
-		$output .= '<option value="'.$key.'"';
-		foreach $item (@$selected) {
-			if ($item eq $key) {
-				$output .= " selected";
-			}
-		}
-		$output .= '>'.${$valueList}{$key};
-	}
-	$output	.= '</select>'; 
-        return $output;
-}
-
-#-------------------------------------------------------------------
-sub submit {
-        my ($output, $name, $value);
-        $value = shift;
-        $name = shift;
-        $value = _fixQuotes($value);
-        $output = '<input type="submit" name="'.$name.'" value="'.$value.'">';
-        return $output;
-}
-
-#-------------------------------------------------------------------
-sub text {
-        my ($output, $assistance, $name, $size, $maxLength, $value, $events);
-        ($name, $size, $maxLength, $value, $assistance, $events) = @_;
-        if ($size eq "") {
-                $size = 15;
-        }
-	if ($maxLength ne "") {
-		$maxLength = ' maxlength="'.$maxLength.'"';
-	}
-	if ($events ne "") {
-		$events = ' '.$events;
-	}
-	if ($assistance == 1) {
-		$assistance = '<input type="button" style="font-size: 8pt;" onClick="window.dateField = this.form.'.$name.';calendar = window.open(\''.$session{setting}{lib}.'/calendar.html\',\'cal\',\'WIDTH=200,HEIGHT=250\');return false" value="'.WebGUI::International::get(34).'">';
-	}
-	$value = _fixQuotes($value);
-        $output = '<input type="text" name="'.$name.'" value="'.$value.'" size="'.$size.'" '.$maxLength.$events.'>'.$assistance;
-        return $output;
-}
-
-#-------------------------------------------------------------------
-sub textArea {
-        my ($output, $name, $value, $cols, $rows, $htmlEdit, $wrap);
-	$output = '<script language="JavaScript">function fixChars(element) {element.value = element.value.replace(/~V/mg,"-");}</script>';
-	$name = $_[0];
-	$value = $_[1];
-	$value =~ s/\<\/textarea\>/\&lt\;\/textarea\&gt\;/ig;
-	$cols = $_[2] || 50;
-        $rows = $_[3] || 5;
-	$htmlEdit = $_[4];
-	$wrap = $_[5] || "virtual";
-	if ($htmlEdit > 0) {
-		$output .= '<script language="JavaScript"> 
-			var formObj; 
-			var extrasDir="'.$session{setting}{lib}.'"; 
-			function openEditWindow(obj) { 
-			formObj = obj;  
-			if (navigator.userAgent.substr(navigator.userAgent.indexOf("MSIE")+5,1)>=5)  
-			window.open("'.$session{setting}{lib}.'/ieEdit.html","editWindow","width=490,height=400");  
-			else  
-			window.open("'.$session{setting}{lib}.'/nonIeEdit.html","editWindow","width=490,height=400"); 
-			}
-			function setContent(content) { 
-				formObj.value = content; 
-			} </script>';
-		$output .= '<input type="button" onClick="openEditWindow(this.form.'.$name.')" value="'.
-			WebGUI::International::get(171).'" style="font-size: 8pt;"><br>';
-	}
-        $output .= '<textarea name="'.$name.'" cols="'.$cols.'" rows="'.$rows.'" wrap="'.$wrap.
-		'" onBlur="fixChars(this.form.'.$name.')">'.$value.'</textarea>';
-        return $output;
-}
-
-
-
-1;
diff --git a/lib/WebGUI/Shortcut.pm b/lib/WebGUI/Shortcut.pm
deleted file mode 100644
index bbf378329..000000000
--- a/lib/WebGUI/Shortcut.pm
+++ /dev/null
@@ -1,88 +0,0 @@
-package WebGUI::Shortcut;
-
-
-
-
-#####################################################################
-#####################################################################
-# NOTICE: Use of this subsystem is depricated and is not recommended.
-#####################################################################
-#####################################################################
-
-
-
-
-
-#-------------------------------------------------------------------
-# WebGUI is Copyright 2001-2002 Plain Black Software.
-#-------------------------------------------------------------------
-# Please read the legal notices (docs/legal.txt) and the license
-# (docs/license.txt) that came with this distribution before using
-# this software.
-#-------------------------------------------------------------------
-# http://www.plainblack.com                     info@plainblack.com
-#-------------------------------------------------------------------
-
-use Exporter;
-use strict;
-use WebGUI::Attachment;
-use WebGUI::International;
-use WebGUI::Session;
-use WebGUI::URL;
-
-our @ISA = qw(Exporter);
-our @EXPORT = qw(&attachmentBox &formHeader &formSave &tableFormRow &helpLink);
-
-# The subroutines found herein do nothing other than creating a
-# short way of doing much longer repetitive tasks. They simply
-# make the programmer's life easier through fewer keystrokes and
-# less cluttered code.
-
-
-#-------------------------------------------------------------------
-sub attachmentBox {
-	my ($output, $attachment);
-	$attachment = WebGUI::Attachment->new($_[0],$_[1],$_[2]);
-	$output = '<p><table cellpadding=3 cellspacing=0 border=1><tr><td class="tableHeader">'.
-		'<a href="'.$attachment->getURL.'"><img src="'.$session{setting}{lib}.
-		'/attachment.gif" border=0 alt="'.
-		$attachment->getFilename.'"></a></td><td><a href="'.$attachment->getURL.
-		'"><img src="'.$attachment->getIcon.
-		'" align="middle" width="16" height="16" border="0" alt="'.$attachment->getFilename
-		.'">'.$attachment->getFilename.'</a></td></tr></table>';
-	return $output;
-}
-
-#-------------------------------------------------------------------
-sub formHeader {
-        my ($output);
-	$output = '<form method="post" enctype="multipart/form-data" action="'.WebGUI::URL::page().'">';
-        return $output;
-}
-
-#-------------------------------------------------------------------
-sub formSave {
-        my ($output);
-	$output = '<tr><td></td><td>'.WebGUI::Form::submit(WebGUI::International::get(62)).'</td></tr>';
-        return $output;
-}
-
-#-------------------------------------------------------------------
-sub helpLink {
-	my ($output, $namespace);
-	$namespace = $_[1] || "WebGUI";
-	$output = '<a href="'.WebGUI::URL::page('op=viewHelp&hid='.$_[0].'&namespace='.$namespace).
-		'" target="_blank"><img src="'.$session{setting}{lib}.'/help.gif" border="0" align="right"></a>';
-	return $output;
-}
-
-#-------------------------------------------------------------------
-sub tableFormRow {
-        my ($output);
-	$output = '<tr><td class="formDescription" valign="top">'.$_[0].'</td><td>'.$_[1].'</td></tr>';
-        return $output;
-}
-
-
-1;
-