Subversion Repositories VORC

Rev

Rev 254 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 254 Rev 257
Line 93... Line 93...
93 
  my $time = shift // return;
 93 
  my $time = shift // return;
Line 94... Line 94...
94
94
95 
  return $time unless $time =~ /m$/;
 95 
  return $time unless $time =~ /m$/;
96 
  my ($time, $half) = split / /, $time;
 96 
  my ($time, $half) = split / /, $time;
97 
  my ($hour, $minute) = split /:/, $time;
 97 
  my ($hour, $minute) = split /:/, $time;
98 
  $hour += 12 unless $half eq "am";
 98 
  $hour += 12 unless $hour == 12 or $half eq "am";
99 
  return $hour.":".$minute.":00";
 99 
  return $hour.":".$minute.":00";
Line 100... Line 100...
100 
}
 100 
}
101 
 
 101