[Rt-commit] r17863 - in rt/3.999/branches/merge_to_3.8.2: lib/RT

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Jan 21 10:06:42 2009
New Revision: 17863

Modified:
   rt/3.999/branches/merge_to_3.8.2/etc/initialdata
   rt/3.999/branches/merge_to_3.8.2/lib/RT/Date.pm

Log:
case fixes, mostly

Modified: rt/3.999/branches/merge_to_3.8.2/etc/initialdata
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/etc/initialdata	(original)
+++ rt/3.999/branches/merge_to_3.8.2/etc/initialdata	Wed Jan 21 10:06:42 2009
@@ -208,11 +208,11 @@
 a summary of which appears below.
 
 There is no need to reply to this message right now.  Your ticket has been
-assigned an ID of [{$Ticket->queue_obj->SubjectTag || $rtname} #{$Ticket->id()}].
+assigned an ID of [{$ticket->queue->subject_tag || $rtname} #{$ticket->id()}].
 
 Please include the string:
 
-         [{$Ticket->queue_obj->SubjectTag || $rtname} #{$Ticket->id}]
+         [{$ticket->queue->subject_tag || $rtname} #{$ticket->id}]
 
 in the subject line of all future correspondence about this issue. To do so, 
 you may reply to this message.
@@ -369,9 +369,9 @@
     },
     {  queue       => '___Approvals',
        name        => "Approval Ready for Owner",    # loc
-       Description =>
+       description =>
          "Notify Owner of their ticket has been approved and is ready to be acted on", # loc
-       Content => 'Subject: Ticket Approved: {$Ticket->Subject}
+       content => 'Subject: Ticket Approved: {$ticket->Subject}
 
 Greetings,
 
@@ -527,15 +527,15 @@
        scrip_action    => 'Notify requestors',
        template       => 'resolved' },
     {  description    => "On transaction, add any tags in the transaction's subject to the ticket's subject",
-       ScripCondition => 'On Transaction',
-       ScripAction    => 'Extract Subject Tag',
-       Template       => 'Blank' },
+       scrip_condition => 'On Transaction',
+       scrip_action    => 'Extract Subject Tag',
+       template       => 'Blank' },
 {
     queue       => 0,
     name        => "Error: Missing dashboard",    # loc
-    Description =>
+    description =>
       "Inform user that a dashboard he subscribed to is missing", # loc
-    Content => q{Subject: [{RT->config->get('rtname')}] Missing dashboard!
+    content => q{Subject: [{RT->config->get('rtname')}] Missing dashboard!
 
 Greetings,
 

Modified: rt/3.999/branches/merge_to_3.8.2/lib/RT/Date.pm
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/lib/RT/Date.pm	(original)
+++ rt/3.999/branches/merge_to_3.8.2/lib/RT/Date.pm	Wed Jan 21 10:06:42 2009
@@ -188,7 +188,7 @@
         # so we parse date as GMT and later apply offset, this only
         # should be applied to absolute times, so compensate shift in NOW
         my $now = time;
-        $now += ( $self->Localtime( $args{timezone}, $now ) )[9];
+        $now += ( $self->localtime( $args{timezone}, $now ) )[9];
         my $date = Time::ParseDate::parsedate(
             $args{'value'},
             GMT           => 1,
@@ -736,6 +736,12 @@
 
 sub ical {
     my $self = shift;
+    my %args = ( 
+        date => 1, 
+        time => 1, 
+        @_, 
+    ); 
+    
     my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $ydaym, $isdst, $offset )
       = $self->localtime("UTC");