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 . "

"; foreach ( $usr->columns ) { $output .= "$_; $usr->{$_}
"; } } } return $output;