Help for this page

Select Code to Download


  1. or download this
    $staffdept{$staff}
$appstaffwk{$app}{$staff}
  2. or download this
    use MLDBM qw(DB_File Storable);
tie %staffdept, 'MLDBM', $staffdeptfile, O_CREAT|O_RDWR, 0640 or die $
+!;
tie %appstaffwk, 'MLDBM', $appstaffwkdb, O_CREAT|O_RDWR, 0640 or die $
+!;