home *** CD-ROM | disk | FTP | other *** search
/ Peanuts NeXT Software Archives / Peanuts-2.iso / Developer / webobjects / extensions / win-nt / WOPerl-lite-10e7.exe / Examples / WOPerl / EmployeeBook / EmployeesFrameSet.wo / EmployeesFrameSet.pl < prev    next >
Encoding:
Perl Script  |  1996-08-09  |  839 b   |  32 lines

  1. # $Id: EmployeesFrameSet.pl,v 1.1 1996/07/26 05:17:37 pedja Exp $
  2. #  EmployeesFrameSet.pl: converted from the original EmployeesFrameSet.wos
  3. #  The original file contains the following notice:
  4. #
  5. # You may freely copy, distribute and reuse the code in this example.
  6. # NeXT disclaims any warranty of any kind, expressed or implied, as to
  7. # its fitness for any particular use.
  8.  
  9. package WO::EB::EmployeesFrameSet;
  10. use WOPerl;
  11.  
  12. %FLAGS=(
  13.   'rawSet' => 1,
  14. #  'traceSet' => 1, 'traceGet' => 1, 'traceInvoke' => 1,
  15. );
  16.  
  17. @PERSISTENT=qw(employees);
  18.  
  19. sub employeesInDepartmentPage {
  20.   my($self)=@_;
  21.   my $employeesPage=$WOApp->pageWithName("Employees");
  22.   $employeesPage->setEmployees($self->{'employees'});
  23.   return $employeesPage;
  24. }
  25.  
  26. sub detailedEmployeePage {
  27.   return $WOApp->pageWithName("DetailedEmployee");
  28. }
  29.  
  30. 'WO::EB::EmployeesFrameSet';
  31. # EOF
  32.