X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fsched_avail.pm;h=c13b134f6584cd7551bf100d8bb3a71b034f0c3c;hb=f786ebaff8b6704e4e180428aaaa9afeaea7ecb9;hp=5d9f8dfba2855a64642fbc6525108b2f7774dc80;hpb=26010ef38cea8b15bc01ede43817ec7e22efbf47;p=freeside.git

diff --git a/FS/FS/sched_avail.pm b/FS/FS/sched_avail.pm
index 5d9f8dfba..c13b134f6 100644
--- a/FS/FS/sched_avail.pm
+++ b/FS/FS/sched_avail.pm
@@ -3,7 +3,7 @@ use base qw( FS::Record );
 
 use strict;
 #use FS::Record qw( qsearch qsearchs );
-use FS::sched_avail;
+use FS::sched_item;
 
 =head1 NAME
 
@@ -101,7 +101,7 @@ sub check {
 
   my $error = 
     $self->ut_numbern('availnum')
-    || $self->ut_foreign_key('itemnum', 'sched_avail', 'itemnum')
+    || $self->ut_foreign_key('itemnum', 'sched_item', 'itemnum')
     || $self->ut_number('wday')
     || $self->ut_number('stime')
     || $self->ut_number('etime')
@@ -112,6 +112,40 @@ sub check {
   $self->SUPER::check;
 }
 
+=item stime_pretty
+
+=item etime_pretty
+
+=cut
+
+sub stime_pretty { shift->_time_pretty('stime', @_); }
+sub etime_pretty { shift->_time_pretty('etime', @_); }
+
+sub _time_pretty {
+  my( $self, $field ) = @_;
+
+  pretty_time( $self->$field() );
+}
+
+#helper sub
+sub pretty_time {
+  my $t = shift;
+
+  return 'Midnight' if $t == 0 || $t == 1440;
+  return 'Noon'     if $t == 720;
+
+  my $h = int( $t / 60 );
+  my $m = $t % 60;
+
+  my $ap = 'AM';
+  if    ( $h == 0 || $h == 24 ) { $h = 12; }
+  elsif ( $h == 12 )           { $ap = 'PM'; }
+  elsif ( $h > 12 )            { $ap = 'PM'; $h -= 12; }
+
+  sprintf('%02d:%02d'." $ap", $h, $m);
+
+}
+
 =back
 
 =head1 BUGS