version 1.21, 2006/08/18 15:15:38
|
version 1.23, 2008/10/23 09:07:51
|
Line 248 sub bin_data {
|
Line 248 sub bin_data {
|
my @Bins; |
my @Bins; |
my $count=0; |
my $count=0; |
my $idx=0; |
my $idx=0; |
while ($idx < scalar(@$data) && ($endbin-$binend + $binsize)>0) { |
while ($idx < scalar(@$data) && ($endbin-$binend + $binsize)>=0) { |
my $dataset = $data->[$idx++]; |
my $dataset = $data->[$idx++]; |
my ($x,$y) = @{$dataset}; |
my ($x,$y) = @{$dataset}; |
while ($x > ($binend-.001)) { |
while ($x > ($binend-.001)) { |
Line 320 sub CreateInterface {
|
Line 320 sub CreateInterface {
|
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '</table>'."\n"; |
# |
# |
$Str .= '<nobr>'.&mt('Status: [_1]', |
$Str .= '<p><span class="LC_nobreak">' |
'<input type="text" '. |
.&mt('Status: [_1]', |
'name="stats_status" size="60" value="" />'). |
'<input type="text" name="stats_status"' |
'</nobr>'.'</p>'; |
.' size="60" value="" readonly="readonly" />') |
|
.'</span></p>'; |
|
$Str .= '</p>'; |
## |
## |
return $Str; |
return $Str; |
} |
} |