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 / Main.wo / Main.pl < prev    next >
Encoding:
Perl Script  |  1996-08-09  |  663 b   |  29 lines
  1. # $Id: Main.pl,v 1.1 1996/07/26 05:17:42 pedja Exp $
  2. #   Main.pl: converted from the original Main.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. #  Written by Nico Popp
  10.  
  11. package WO::EB::Main;
  12. use WOPerl;
  13.  
  14. %FLAGS=(
  15.   'rawSet' => 1,
  16. #  'traceSet' => 1, 'traceGet' => 1, 'traceInvoke' => 1,
  17. );
  18.  
  19. sub departmentsPage {
  20.   return $WOApp->pageWithName("Departments");
  21. }
  22.  
  23. sub employeesFrameSet {
  24.   return $WOApp->pageWithName("EmployeesFrameSet");
  25. }
  26.  
  27. 'WO::EB::Main';
  28. # EOF
  29.