[Rt-commit] r18673 - in rt/3.999/trunk: . lib/RT/Action

[sartak at bestpractical.com]

Author: sartak
Date: Wed Mar  4 20:17:45 2009
New Revision: 18673

Modified:
   rt/3.999/trunk/   (props changed)
   rt/3.999/trunk/lib/RT/Action/UpdateTicket.pm
   rt/3.999/trunk/lib/RT/Date.pm

Log:
 r80925 at onn:  sartak | 2009-03-04 20:17:34 -0500
 UTC not utc


Modified: rt/3.999/trunk/lib/RT/Action/UpdateTicket.pm
==============================================================================
--- rt/3.999/trunk/lib/RT/Action/UpdateTicket.pm	(original)
+++ rt/3.999/trunk/lib/RT/Action/UpdateTicket.pm	Wed Mar  4 20:17:45 2009
@@ -30,7 +30,7 @@
         my $value = $self->argument_value($field);
         if ( defined $value ) {
 
-            # convert date to be as utc
+            # convert date to be as UTC
             my $date = RT::Date->new_from_string($value);
             $self->argument_value( $field, $date->iso );
         }

Modified: rt/3.999/trunk/lib/RT/Date.pm
==============================================================================
--- rt/3.999/trunk/lib/RT/Date.pm	(original)
+++ rt/3.999/trunk/lib/RT/Date.pm	Wed Mar  4 20:17:45 2009
@@ -173,7 +173,7 @@
             #now that we've parsed it, deal with the case where everything was 0
             return $self->unix(0) if $mon < 0 || $mon > 11;
 
-            my $tz = lc $args{'format'} eq 'datemanip' ? 'user' : 'utc';
+            my $tz = lc $args{'format'} eq 'datemanip' ? 'user' : 'UTC';
             $self->unix( $self->time_local( $tz, $sec, $min, $hours, $mday, $mon, $year ) );
 
             $self->unix(0) unless $self->unix > 0;
@@ -223,7 +223,7 @@
     return $_[0]->unix(time);
 }
 
-=head2 set_to_midnight [timezone => 'utc']
+=head2 set_to_midnight [timezone => 'UTC']
 
 Sets the date to midnight (at the beginning of the day).
 Returns the unixtime at midnight.
@@ -715,7 +715,7 @@
         date => 1,
         time => 1,
         @_,
-        timezone    => 'utc',
+        timezone    => 'UTC',
         seconds     => 1,
         day_of_week => 1,
     );
@@ -834,9 +834,9 @@
 
 If you pass C<$offset> as ninth argument, it's used instead of
 C<$context>. It's done such way as code 
-C<$self->time_local('utc', $self->localtime('server'))> doesn't
+C<$self->time_local('UTC', $self->localtime('server'))> doesn't
 makes much sense and most probably would produce unexpected
-result, so the method ignore 'utc' context and uses offset
+result, so the method ignore 'UTC' context and uses offset
 returned by L<Localtime> method.
 
 =cut
@@ -869,7 +869,7 @@
 
 Returns the timezone name.
 
-Takes one argument, C<$context> argument which could be C<user>, C<server> or C<utc>.
+Takes one argument, C<$context> argument which could be C<user>, C<server> or C<UTC>.
 
 =over
 
@@ -881,7 +881,7 @@
 
 If context is C<server> it returns value of the C<timezone> RT config option.
 
-=item  utc
+=item UTC
 
 If both server's and user's timezone names are undefined returns 'UTC'.
 
@@ -893,7 +893,7 @@
     my $self    = shift;
     my $context = lc(shift);
 
-    $context = 'utc' unless $context =~ /^(?:utc|server|user)$/i;
+    $context = 'UTC' unless $context =~ /^(?:UTC|server|user)$/i;
 
     my $tz;
     if ( $context eq 'user' ) {