home *** CD-ROM | disk | FTP | other *** search
- # $Id: EmployeesFrameSet.pl,v 1.1 1996/07/26 05:17:37 pedja Exp $
- # EmployeesFrameSet.pl: converted from the original EmployeesFrameSet.wos
- # The original file contains the following notice:
- #
- # You may freely copy, distribute and reuse the code in this example.
- # NeXT disclaims any warranty of any kind, expressed or implied, as to
- # its fitness for any particular use.
-
- package WO::EB::EmployeesFrameSet;
- use WOPerl;
-
- %FLAGS=(
- 'rawSet' => 1,
- # 'traceSet' => 1, 'traceGet' => 1, 'traceInvoke' => 1,
- );
-
- @PERSISTENT=qw(employees);
-
- sub employeesInDepartmentPage {
- my($self)=@_;
- my $employeesPage=$WOApp->pageWithName("Employees");
- $employeesPage->setEmployees($self->{'employees'});
- return $employeesPage;
- }
-
- sub detailedEmployeePage {
- return $WOApp->pageWithName("DetailedEmployee");
- }
-
- 'WO::EB::EmployeesFrameSet';
- # EOF
-