subroutine

weberw@adelphia.net · *nix forums beginner Joined: 09 Jul 2006 Posts: 22

I am trying to incorprate a subroutine to perform an extra calculation
on overtime hours and am not sure how to add this part to the code.
$OT = &calculateOT(emp_hours);

& search_page();

my $p_lname = param('lname');
my $p_fname = param('fname');

open (THIS, "< $ENV{'SCRIPT_FILENAME'}") || die "couldn't open script
file\n";
while (<THIS>) { $script .= "$.\t$_" }
close (THIS);
$script = escapeHTML($script);
my $dbh = DBI->connect("DBI:mysql:database=thename;host=whatever", "",
"", {'RaiseError' => 1}) or die "Failed to connect: $!";

my $sth = $dbh->prepare("SELECT * FROM employee WHERE emp_lname= ? or
emp_fname= ?") or die "Failed to prepare: $!";
my @rows = th("Employee ID").th("Last Name").th("First
Name").th("Wage").th("Hours");
$sth->execute ($p_lname,$p_fname) or die "Failed to execute: $!";

while ( my @elements = $sth->fetchrow() ) {

#call a subroutine that calculates the number of OT hours
$OT = &calculateOT(emp_hours);

my $output;
for (@elements) { $output .= td($_) }
push @rows, $output."\n";
}
$dbh->disconnect or die "Failed to disconnect: $!";

print header,
start_html("Employee List"),
a( {-href=>'emp1.cgi'}, h2("Employee List") ),
table ( {-border=>'1'}, Tr(\@rows) ),
hr, pre($script),
end_html;

sub search_page {
print header,
start_html("Employee Search Form"),
h2("Employee Search Form"),
start_form,
"First Name: ",
textfield(-name=>'fname'),
br,
"Last Name: ",
textfield(-name=>'lname'),
br,
submit(-label=>'Search'),
end_form,
hr,
end_html;
}

sub calculateOT{
if (emp_hours > 40){
$OT = emp_hours-40;
}
else{
$OT = 0;
}
end_html;

usenet@DavidFilmer.com · *nix forums Guru Joined: 25 Jul 2005 Posts: 545

weberw@adelphia.net wrote:
[ a multi-posted question ]

Please do not multi-post. That is considered very rude in Usenet.

--
David Filmer (http://DavidFilmer.com)

A. Sinan Unur · *nix forums Guru Joined: 03 Mar 2005 Posts: 1840

usenet@DavidFilmer.com wrote in news:1153432845.843776.303160@i3g2000cwc.googlegroups.com:

usenet@DavidFilmer.com · *nix forums Guru Joined: 25 Jul 2005 Posts: 545

A. Sinan Unur wrote:

Tad McClellan · *nix forums Guru Joined: 09 Mar 2005 Posts: 1647

weberw@adelphia.net <weberw@adelphia.net> wrote:

robic0@nirgendwo · *nix forums Guru Joined: 10 Nov 2005 Posts: 701

On Thu, 20 Jul 2006 18:17:15 -0500, Tad McClellan <tadmc@augustmail.com> wrote:

Brian Raven · *nix forums beginner Joined: 02 Jun 2006 Posts: 3

Tad McClellan <tadmc@augustmail.com> writes:

Google