Help for this page

Select Code to Download

Select or download this

our $lname;
my $sth = $dbh->prepare(<<EOSQL);
...
   $worksheet0->write($R, $C++, $emp_title,      $format_NORMAL);
   $worksheet0->write($R, $C++, $emp_supervisor, $format_NORMAL);
}

Select or download this

sub process_employee {
    my ($worksheet0, $employee, $format, $col, $row) = @_;
...
if (defined $supervisor) {
    process_employee($worksheet0, $supervisor, $format_AMCtop, 23, 11)
+;
}