sub en_display {
	# Display 'full signup or enroll' form
	my $self = shift;
	my $errs = shift;
	my $output ='';
	my $sess = $self->param('up_session');
	if ( $sess->param('_IS_USER') && $sess->param('_IS_REGISTERED') ) {
		my $obj = AppSys::User->search( 'upusername' => $sess->param('_IS_USER'));
		while ( my $usr = $obj->next ) {
			#$output .= "Username: " . $usr->upusername . "<br><br>";
			foreach ( $usr->columns ) {
				$output .= "<b>$_</b>; $usr->{$_} <br>";
			}
			
		}
	}
	return $output;

##</code><code>##

# now we will make an object that relates to a single
# record.  We know that our entry is id 1 since it is
# the only record in the database so we do the following

our $user = Table::User->retrieve(1);

# $user contains our object, but since we haven't called
# any methods on the objects it has not made any calls to
# the database.

print ">> Class::DBI Results (single column)\n";
print "    Users First Name: " , $user->first_name , "\n\n";

# Now $user contains all the information related to
# the record in the database.  You can verify this with
# Data::Dumper if you want.