diff options
Diffstat (limited to 'rt/lib/RT/Date.pm')
| -rw-r--r-- | rt/lib/RT/Date.pm | 45 |
1 files changed, 42 insertions, 3 deletions
diff --git a/rt/lib/RT/Date.pm b/rt/lib/RT/Date.pm index f951df3a2..7b441a6aa 100644 --- a/rt/lib/RT/Date.pm +++ b/rt/lib/RT/Date.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC # <jesse@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -22,7 +22,9 @@ # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +# 02110-1301 or visit their web page on the internet at +# http://www.gnu.org/copyleft/gpl.html. # # # CONTRIBUTION SUBMISSION POLICY: @@ -43,7 +45,6 @@ # those contributions and any derivatives thereof. # # END BPS TAGGED BLOCK }}} - =head1 NAME RT::Date - a simple Object Oriented date. @@ -560,6 +561,44 @@ sub ISO { # }}} +# {{{ sub Date + +=head2 Date + +Takes nothing + +Returns the object's date in yyyy-mm-dd format; this is the same as +the ISO format without the time + +=cut + +sub Date { + my $self = shift; + my ($date, $time) = split ' ', $self->ISO; + return $date; +} + +# }}}} + +# {{{ sub Time + +=head2 Time + +Takes nothing + +Returns the object's time in hh:mm:ss format; this is the same as +the ISO format without the date + +=cut + +sub Time { + my $self = shift; + my ($date, $time) = split ' ', $self->ISO; + return $time; +} + +# }}}} + # {{{ sub W3CDTF =head2 W3CDTF |