People
| Name |
Phone |
% $dggRegistrar->reset;
% while ( my $person = $dggRegistrar->getNextPerson ){
| <% $person->name %> |
<% $person->phone %> |
% }
Courses
| Title |
Time |
Term |
Place |
Credits |
% $dggRegistrar->reset;
% while ( my $course = $dggRegistrar->getNextCourse ){
| <% $course->title %> |
<% $course->time %> |
<% $course->term %> |
<% $course->place %> |
<% $course->credits %> |
% }
%#
%# ==============================================================
%#
<%init>
our $dggRegistrar;