#!/opt/local/bin/perl use strict; use CGI; use lib '/Library/WebServer/perl/lib'; use EduFileTwo; my $form = new CGI; my $user_id_unescaped = $form->param('user_id'); my $user_id = $form->escapeHTML($user_id_unescaped); my $student = new EduFileTwo::Person($user_id); my $name = $student->getName(); my $student_id = $student->getLoginID(); my $address = $student->getAddress(); my $city = $student->getCity(); my $state = $student->getState(); my $zip = $student->getZip(); my $phone = $student->getPhoneNumber(); my $email = $student->getEmailAddress(); print $form->header; EduFileTwo::Util::printHead(""); print <

Make corrections or updates to this form and click save. The password fields below are only required if you want to change your password.

Name:
Studen ID:	$student_id
Old Password:
New Password:
Confirm Password:
Address:
City:
State:
Zip:
Phone:
E-mail Address:

END_HTML EduFileTwo::Util::printFoot();