From afd18167e7736b86dd5ec64195bdf4e7b4c7fe73 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 7 Jan 2003 04:33:37 +0000
Subject: [PATCH] This file hasn't been used for quite some time. I just forgot
 to remove it.

---
 lib/WebGUI/Profile.pm | 113 ------------------------------------------
 1 file changed, 113 deletions(-)
 delete mode 100644 lib/WebGUI/Profile.pm

diff --git a/lib/WebGUI/Profile.pm b/lib/WebGUI/Profile.pm
deleted file mode 100644
index 66e2a3c13..000000000
--- a/lib/WebGUI/Profile.pm
+++ /dev/null
@@ -1,113 +0,0 @@
-package WebGUI::Profile;
-
-=head1 LEGAL
-
- -------------------------------------------------------------------
-  WebGUI is Copyright 2001-2003 Plain Black LLC.
- -------------------------------------------------------------------
-  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
- -------------------------------------------------------------------
-
-=cut
-
-use strict;
-use WebGUI::International;
-use WebGUI::SQL;
-use WebGUI::URL;
-
-=head1 NAME
-
-Package WebGUI::Profile
-
-=head1 DESCRIPTION
-
-Package that allows getting and setting of user profile information.
-
-=head1 SYNOPSIS
-
- use WebGUI::Profile;
- $p = WebGUI::Profile->new(39);
-
-=head1 METHODS
-
-These methods are available from this class:
-
-=cut
-
-
-#-------------------------------------------------------------------
-
-=head2 get ( )
-
-Returns a profile hash for this user.
-
-=cut
-
-sub get {
-        my (%profile);
-	%profile = WebGUI::SQL->buildHash("select fieldName, fieldData from profileData where userId=$_[0]->{_userId}");
-	return %profile;
-}
-
-
-#-------------------------------------------------------------------
-
-=head2 new ( userId )
-
-Constructor.
-
-=over
-
-=item userId 
-
- The userId for the profile you wish to manipulate.
-
-=back
-
-=cut
-
-sub new {
-        my ($class);
-	$class = shift;
-        bless {_userId => $_[1]}, $class;
-}
-
-
-#-------------------------------------------------------------------
-
-=head2 setAttribute ( attributeName, value ) 
-
-Sets the value of an attribute.
-
-=over
-
-=item attributeName
-
-An attribute of the user profile.
-
-=item value
-
-The value to set the above named attribute to.
-
-=back
-
-=cut
-
-sub setAttribute {
-	WebGUI::SQL::write("delete from profileData where userId=$_[0]->{_userId} and fieldName=".quote($_[1]));
-	WebGUI::SQL::write("insert into profileData values ($_[0]->{_userId}, ".quote($_[1]).", ".quote($_[2]).")");
-	if ($session{user}{userId} == $_[0]->{_userId}) {
-		$session{user}{$_[1]} = $_[2];
-	}
-}
-
-
-
-
-1;
-
-