return map {
sprintf('%s %02d:%02d %s',
$days[int($_/86400) % 7],
- int($_/3600) % 12,
+ (int($_/3600) % 12 || 12),
int($_/60) % 60,
(($_/3600) % 24 < 12) ? 'AM' : 'PM' )
} ( $self->stime, $self->etime );
% } else {
<% $cgi->redirect(popurl(3). "browse/rate_time.html" ) %>
% }
-%# dumper_html(\%vars, \%old_ints, {$rate_time->intervals}) %>
<%init>
my $error = '';
die "access denied"
sub l2wtime {
my ($d, $h, $m, $a) = @_;
- $h += 24*$d + 12*$a;
+ $h = ($h % 12) + 24*$d + 12*$a;
$m += 60*$h;
return 60*$m
}
4 => 'Thu',
5 => 'Fri',
6 => 'Sat', ];
-my $hour = [ map( {$_, sprintf('%02d',$_) } 0..11 )];
+my $hour = [ map( {$_, sprintf('%02d',$_) } 12, 1..11 )];
my $min = [ map( {$_, sprintf('%02d',$_) } 0,30 )];
my $ampm = [ 0 => 'AM', 1 => 'PM' ];
else {
foreach my $interval ($rate_time->intervals) {
push @data, [ map { int($_/86400) % 7,
- int($_/3600) % 12,
+ (int($_/3600) % 12 || 12),
int($_/60) % 60,
int($_/43200) % 2, }
( $interval->stime, $interval->etime )