sub day_of_week {
            my $self = shift;
            my @days = _('Mon'),_('Tues'),_('Wed'),_('Thurs'),_('Fri'),_('Sat'),_('Sun');
            return $days[ $self->{day_num} ];
       }