nlafferty has asked for the wisdom of the Perl Monks concerning the following question:
This one is a bit more tricky. This part of my program basically prints out a nice little html table with the coresponding DB values. And it totals the hours and minutes for use in the bottom table. The code seems to work fine, other than the pesky little error.
the error:
the error:
And the code:Use of uninitialized value in addition (+) at /home/httpd/cgi-bin/nick/timeclock-1.0.1/search.cgi line 260 ( +#1)
while (my @row = $common::sql::sth->fetchrow()){ my $daily_time = sprintf("%d:%02d",$row[4],$row[5]); my ($total_minutes, $total_hours, $all_minutes, $total_time_hours, $to +tal_time_minutes); $total_minutes = $row[5]; $total_hours = $row[4] * 60; $all_minutes = $total_hours + $total_minutes; $total_time = $total_time + $all_minutes; $total_time_hours = int($total_time / 60); $total_time_minutes = $total_time % 60; $all_time = sprintf("%d:%02d",$total_time_hours,$total_time_minute +s); ## Make our HTML look better if no data. $row[0] = " " if($row[0] eq ""); $row[1] = " " if($row[1] eq ""); $row[2] = " " if($row[2] eq ""); $row[3] = " " if($row[3] eq ""); $row[4] = " " if($row[4] eq ""); $row[5] = " " if($row[5] eq ""); $row[6] = " " if($row[6] eq ""); my (@date_array01, $print_date, $in_time_sec, @in_time_array, $in_ +time); @date_array01 = split(/ /,$row[2]); $print_date = $date_array01[0]; $in_time_sec = $date_array01[1]; @in_time_array = split(/:/,$in_time_sec); $in_time = join(":",$in_time_array[0],$in_time_array[1]); my (@date_array02, $out_time_sec, @out_time_array, $out_time); @date_array02 = split(/ /,$row[3]); $out_time_sec = $date_array02[1]; @out_time_array = split(/:/,$out_time_sec); $out_time = join(":",$out_time_array[0],$out_time_array[1]); print <<HTML; <TR BGCOLOR="#FFFFFF"> <TD><FONT SIZE=2 FACE=ARIAL>$print_date</FONT></TD> <TD><FONT SIZE=2 FACE=ARIAL>$in_time</FONT></TD> <TD><FONT SIZE=2 FACE=ARIAL>$out_time</FONT></TD> <TD BGCOLOR="#FFFFCC"><FONT SIZE=2 FACE=ARIAL>$daily_time</FONT></ +TD> <TD><FONT SIZE=2 FACE=ARIAL>$row[6]</FONT></TD> HTML } # End of while.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Yet another Uninitialized value
by clintp (Curate) on May 04, 2002 at 21:41 UTC | |
by nlafferty (Scribe) on May 04, 2002 at 22:40 UTC | |
Re: Yet another Uninitialized value
by Maclir (Curate) on May 04, 2002 at 17:01 UTC | |
by nlafferty (Scribe) on May 04, 2002 at 17:11 UTC | |
by IlyaM (Parson) on May 04, 2002 at 17:48 UTC | |
by nlafferty (Scribe) on May 04, 2002 at 18:17 UTC | |
by IlyaM (Parson) on May 04, 2002 at 20:04 UTC |
Back to
Seekers of Perl Wisdom