[Rt-commit] r10601 - in rt/branches/3.999-DANGEROUS: . bin html/Admin/Groups html/Admin/Users html/SelfService html/Ticket html/Widgets/Form lib/RT lib/RT/Interface lib/RT/Interface/Email/Auth lib/RT/Interface/Email/Filter lib/RT/Model t t/api

jesse at bestpractical.com jesse at bestpractical.com
Wed Jan 30 18:33:55 EST 2008


Author: jesse
Date: Wed Jan 30 18:33:55 2008
New Revision: 10601

Modified:
   rt/branches/3.999-DANGEROUS/   (props changed)
   rt/branches/3.999-DANGEROUS/bin/rt-crontool
   rt/branches/3.999-DANGEROUS/html/Admin/Groups/Modify.html
   rt/branches/3.999-DANGEROUS/html/Admin/Users/Modify.html
   rt/branches/3.999-DANGEROUS/html/Search/Bulk.html
   rt/branches/3.999-DANGEROUS/html/SelfService/Display.html
   rt/branches/3.999-DANGEROUS/html/Ticket/Display.html
   rt/branches/3.999-DANGEROUS/html/Ticket/Modify.html
   rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html
   rt/branches/3.999-DANGEROUS/html/Ticket/ModifyDates.html
   rt/branches/3.999-DANGEROUS/html/Ticket/ModifyLinks.html
   rt/branches/3.999-DANGEROUS/html/Widgets/Form/Select
   rt/branches/3.999-DANGEROUS/lib/RT/CurrentUser.pm
   rt/branches/3.999-DANGEROUS/lib/RT/EmailParser.pm
   rt/branches/3.999-DANGEROUS/lib/RT/Interface/CLI.pm
   rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm
   rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email/Auth/MailFrom.pm
   rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email/Filter/SpamAssassin.pm
   rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm
   rt/branches/3.999-DANGEROUS/lib/RT/Model/Scrip.pm
   rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripAction.pm
   rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripCondition.pm
   rt/branches/3.999-DANGEROUS/t/api/action-createtickets.t
   rt/branches/3.999-DANGEROUS/t/cron.t

Log:
 r75972 at pinglin:  jesse | 2008-01-30 18:24:19 -0500
 CurrentUser -> current_user
 ProcessObjectCustomFieldUpdates -> process_object_custom_field_updates
 ProcessTicket* -> process_ticket_*


Modified: rt/branches/3.999-DANGEROUS/bin/rt-crontool
==============================================================================
--- rt/branches/3.999-DANGEROUS/bin/rt-crontool	(original)
+++ rt/branches/3.999-DANGEROUS/bin/rt-crontool	Wed Jan 30 18:33:55 2008
@@ -120,7 +120,7 @@
 my $search  = $search->new(
     TicketsObj  => $tickets,
     Argument    => $search_arg,
-    CurrentUser => $CurrentUser
+    current_user => $CurrentUser
 );
 
 $search->prepare();
@@ -144,7 +144,7 @@
             scrip_obj       => $void_scrip,
             template_obj    => $template_obj,
             Argument       => $condition_arg,
-            CurrentUser    => $CurrentUser,
+            current_user    => $CurrentUser,
         );
 
         # if the condition doesn't apply, get out of here
@@ -161,7 +161,7 @@
         Argument       => $action_arg,
         scrip_obj       => $void_scrip,
         scrip_action_obj => $void_scrip_action,
-        CurrentUser    => $CurrentUser,
+        current_user    => $CurrentUser,
     );
 
     #if our preparation, move onto the next ticket

Modified: rt/branches/3.999-DANGEROUS/html/Admin/Groups/Modify.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Groups/Modify.html	(original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Groups/Modify.html	Wed Jan 30 18:33:55 2008
@@ -141,7 +141,7 @@
 					    object => $Group,
 					    ARGSRef => \%ARGS );
     push (@results, at fieldresults);
-    push @results, ProcessObjectCustomFieldUpdates( ARGSRef => \%ARGS, object => $Group );
+    push @results, process_object_custom_field_updates( ARGSRef => \%ARGS, object => $Group );
 }
 
 #we're asking about enabled on the web page but really care about disabled.

Modified: rt/branches/3.999-DANGEROUS/html/Admin/Users/Modify.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Users/Modify.html	(original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Users/Modify.html	Wed Jan 30 18:33:55 2008
@@ -301,7 +301,7 @@
             $ARGS{'object-RT::Model::User-'.$val.'-CustomField-'.$1} = delete $ARGS{$key};
             }
         }
-        push @results, ProcessObjectCustomFieldUpdates( ARGSRef => \%ARGS, object => $user_object );
+        push @results, process_object_custom_field_updates( ARGSRef => \%ARGS, object => $user_object );
 	} else {
 		push @results, _('User could not be Created: %1', $msg);
 	}
@@ -338,7 +338,7 @@
 					    object => $user_object,
 					    ARGSRef => \%ARGS );
     push (@results, at fieldresults);
-    push @results, ProcessObjectCustomFieldUpdates( ARGSRef => \%ARGS, object => $user_object );
+    push @results, process_object_custom_field_updates( ARGSRef => \%ARGS, object => $user_object );
 
 
     # {{{ Deal with special fields: privileged, Enabled

Modified: rt/branches/3.999-DANGEROUS/html/Search/Bulk.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Bulk.html	(original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Bulk.html	Wed Jan 30 18:33:55 2008
@@ -277,7 +277,7 @@
     my @basicresults =
       process_ticket_basics( ticket_obj => $Ticket, ARGSRef => \%ARGS );
     my @dateresults =
-      ProcessTicketDates( ticket_obj => $Ticket, ARGSRef => \%ARGS );
+      process_ticket_dates( ticket_obj => $Ticket, ARGSRef => \%ARGS );
 
     #Update the watchers
     my @watchresults =
@@ -288,7 +288,7 @@
         $ARGS{ $type . "-" . $Ticket->id } = $ARGS{"$type-Ticket"};
     }
     @linkresults =
-      ProcessTicketLinks( ticket_obj => $Ticket, ARGSRef => \%ARGS );
+      process_ticket_links( ticket_obj => $Ticket, ARGSRef => \%ARGS );
     foreach my $type qw(MergeInto DependsOn MemberOf RefersTo) {
         delete $ARGS{ $type . "-" . $Ticket->id };
         delete $ARGS{ $Ticket->id . "-" . $type };

Modified: rt/branches/3.999-DANGEROUS/html/SelfService/Display.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/SelfService/Display.html	(original)
+++ rt/branches/3.999-DANGEROUS/html/SelfService/Display.html	Wed Jan 30 18:33:55 2008
@@ -196,7 +196,7 @@
         delete $session{'Attachments'};
     }
 
-    my @cfupdates = ProcessObjectCustomFieldUpdates(object => $Ticket, ARGSRef => \%ARGS);
+    my @cfupdates = process_object_custom_field_updates(object => $Ticket, ARGSRef => \%ARGS);
     push (@results, @cfupdates);
 
     # }}}

Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Display.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Display.html	(original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Display.html	Wed Jan 30 18:33:55 2008
@@ -157,7 +157,7 @@
     }
     push @Actions, process_ticket_watchers(ARGSRef => \%ARGS, ticket_obj => $ticket_obj );
     push @Actions, process_ticket_basics(   ARGSRef => \%ARGS, ticket_obj => $ticket_obj );
-    push @Actions, ProcessTicketLinks(    ARGSRef => \%ARGS, ticket_obj => $ticket_obj );
+    push @Actions, process_ticket_links(    ARGSRef => \%ARGS, ticket_obj => $ticket_obj );
 
     # XXX: we shouldn't block actions here if user has no right to see the ticket,
     # but we should allow him to see actions he has done

Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Modify.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Modify.html	(original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Modify.html	Wed Jan 30 18:33:55 2008
@@ -73,7 +73,7 @@
 $m->callback( ticket_obj => $ticket_obj, CustomFields => $CustomFields, ARGSRef => \%ARGS );
 
 my @results = process_ticket_basics(ticket_obj => $ticket_obj, ARGSRef => \%ARGS);
-my @cf_results = ProcessObjectCustomFieldUpdates(object => $ticket_obj, ARGSRef => \%ARGS);
+my @cf_results = process_object_custom_field_updates(object => $ticket_obj, ARGSRef => \%ARGS);
 push (@results, @cf_results);
 
 # undef so that transaction_batch scrips run and update the ticket

Modified: rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html	(original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html	Wed Jan 30 18:33:55 2008
@@ -163,9 +163,9 @@
     }
 
     @wresults   = process_ticket_watchers( ticket_obj => $Ticket, ARGSRef => \%ARGS);
-    @cf_results = ProcessObjectCustomFieldUpdates( object => $Ticket, ARGSRef => \%ARGS);
-    @dresults   = ProcessTicketDates( ticket_obj => $Ticket, ARGSRef => \%ARGS);
-    @lresults   = ProcessTicketLinks( ticket_obj => $Ticket, ARGSRef => \%ARGS);
+    @cf_results = process_object_custom_field_updates( object => $Ticket, ARGSRef => \%ARGS);
+    @dresults   = process_ticket_dates( ticket_obj => $Ticket, ARGSRef => \%ARGS);
+    @lresults   = process_ticket_links( ticket_obj => $Ticket, ARGSRef => \%ARGS);
 
     if ($ARGS{'UpdateAttachment'}) {
         my $subject = "$ARGS{'UpdateAttachment'}";

Modified: rt/branches/3.999-DANGEROUS/html/Ticket/ModifyDates.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/ModifyDates.html	(original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/ModifyDates.html	Wed Jan 30 18:33:55 2008
@@ -68,7 +68,7 @@
 
 my $ticket_obj = load_ticket($id);
 $m->callback( ticket_obj => $ticket_obj, ARGSRef => \%ARGS );
-my @results = ProcessTicketDates( ticket_obj => $ticket_obj, ARGSRef => \%ARGS);
+my @results = process_ticket_dates( ticket_obj => $ticket_obj, ARGSRef => \%ARGS);
 
 </%INIT>
 

Modified: rt/branches/3.999-DANGEROUS/html/Ticket/ModifyLinks.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/ModifyLinks.html	(original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/ModifyLinks.html	Wed Jan 30 18:33:55 2008
@@ -72,7 +72,7 @@
 
 my @results;  
 $m->callback( ticket_obj => $Ticket, ARGSRef => \%ARGS, Results => \@results );
-push @results, ProcessTicketLinks( ticket_obj => $Ticket, ARGSRef => \%ARGS );
+push @results, process_ticket_links( ticket_obj => $Ticket, ARGSRef => \%ARGS );
     
 </%INIT>
       

Modified: rt/branches/3.999-DANGEROUS/html/Widgets/Form/Select
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Widgets/Form/Select	(original)
+++ rt/branches/3.999-DANGEROUS/html/Widgets/Form/Select	Wed Jan 30 18:33:55 2008
@@ -106,7 +106,7 @@
 my %current_value = map {$_ => 1} grep defined, @current_value;
 if ( $valuesCallback ) {
     my $values = $valuesCallback->(
-        CurrentUser => Jifty->web->current_user,
+        current_user => Jifty->web->current_user,
         name        => $name,
     );
     if ( ref $values eq 'ARRAY' ) {

Modified: rt/branches/3.999-DANGEROUS/lib/RT/CurrentUser.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/CurrentUser.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/CurrentUser.pm	Wed Jan 30 18:33:55 2008
@@ -79,7 +79,7 @@
 
 =head2 new
 
-Returns new CurrentUser object. Unlike all other classes of RT it takes
+Returns new current_user object. Unlike all other classes of RT it takes
 either subclass of C<RT::Model::User> class object or scalar value that is
 passed to Load method.
 
@@ -125,7 +125,7 @@
 
 =head2 LoadBygecos
 
-Loads a User into this CurrentUser object.
+Loads a User into this current_user object.
 Takes a unix username as its only argument.
 
 =cut
@@ -137,7 +137,7 @@
 
 =head2 load_by_name
 
-Loads a User into this CurrentUser object.
+Loads a User into this current_user object.
 Takes a name.
 
 =cut

Modified: rt/branches/3.999-DANGEROUS/lib/RT/EmailParser.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/EmailParser.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/EmailParser.pm	Wed Jan 30 18:33:55 2008
@@ -283,7 +283,7 @@
 
 =head2 ParseCcAddressesFromHead HASHREF
 
-Takes a hashref object containing queue_obj, Head and CurrentUser objects.
+Takes a hashref object containing queue_obj, Head and current_user objects.
 Returns a list of all email addresses in the To and Cc 
 headers b<except> the current Queue\'s email addresses, the CurrentUser\'s 
 email address and anything that the RT->config->get('RTAddressRegexp') matches.
@@ -296,7 +296,7 @@
 
     my %args = (
         queue_obj   => undef,
-        CurrentUser => undef,
+        current_user => undef,
         @_
     );
 

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/CLI.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/CLI.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/CLI.pm	Wed Jan 30 18:33:55 2008
@@ -187,7 +187,7 @@
         Source      => undef,
         Content     => undef,
         Edit        => undef,
-        CurrentUser => undef,
+        current_user => undef,
         @_
     );
     my $source = $args{'Source'};

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm	Wed Jan 30 18:33:55 2008
@@ -868,7 +868,7 @@
 
 =head2 ParseCcAddressesFromHead HASH
 
-Takes a hash containing queue_obj, Head and CurrentUser objects.
+Takes a hash containing queue_obj, Head and current_user objects.
 Returns a list of all email addresses in the To and Cc
 headers b<except> the current Queue\'s email addresses, the CurrentUser\'s
 email address  and anything that the configuration sub RT::is_rt_address matches.
@@ -879,7 +879,7 @@
     my %args = (
         Head        => undef,
         queue_obj   => undef,
-        CurrentUser => undef,
+        current_user => undef,
         @_
     );
 
@@ -1329,7 +1329,7 @@
             ( $CurrentUser, $NewAuthStat ) = $Code->(
                 Message       => $Message,
                 RawMessageRef => \$args{'message'},
-                CurrentUser   => $CurrentUser,
+                current_user   => $CurrentUser,
                 AuthLevel     => $AuthStat,
                 Action        => $action,
                 Ticket        => $SystemTicket,
@@ -1405,7 +1405,7 @@
         if ( RT->config->get('ParseNewMessageForTicketCcs') ) {
             @Cc = ParseCcAddressesFromHead(
                 Head        => $head,
-                CurrentUser => $CurrentUser,
+                current_user => $CurrentUser,
                 queue_obj   => $Systemqueue_obj
             );
         }
@@ -1477,7 +1477,7 @@
                 ErrorsTo    => $ErrorsTo,
                 Message     => $Message,
                 Ticket      => $Ticket,
-                CurrentUser => $CurrentUser,
+                current_user => $CurrentUser,
             );
             return ( $status, $msg, $Ticket ) unless $status == 1;
         }
@@ -1491,7 +1491,7 @@
         ErrorsTo    => undef,
         Message     => undef,
         Ticket      => undef,
-        CurrentUser => undef,
+        current_user => undef,
         @_
     );
 

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email/Auth/MailFrom.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email/Auth/MailFrom.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email/Auth/MailFrom.pm	Wed Jan 30 18:33:55 2008
@@ -53,7 +53,7 @@
 sub get_current_user {
     my %args = (
         Message     => undef,
-        CurrentUser => undef,
+        current_user => undef,
         AuthLevel   => undef,
         Ticket      => undef,
         queue       => undef,

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email/Filter/SpamAssassin.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email/Filter/SpamAssassin.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email/Filter/SpamAssassin.pm	Wed Jan 30 18:33:55 2008
@@ -53,7 +53,7 @@
 sub get_current_user {
     my %args = (
         Message     => undef,
-        CurrentUser => undef,
+        current_user => undef,
         AuthLevel   => undef,
         @_
     );

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm	Wed Jan 30 18:33:55 2008
@@ -957,7 +957,7 @@
         }
     }
 
-    return ProcessObjectCustomFieldUpdates( %args, ARGSRef => $ARGSRef );
+    return process_object_custom_field_updates( %args, ARGSRef => $ARGSRef );
 }
 
 sub process_object_custom_field_updates {
@@ -997,7 +997,7 @@
                     next;
                 }
                 push @results,
-                    _ProcessObjectCustomFieldUpdates(
+                    _process_object_custom_field_updates(
                     Prefix      => "object-$class-$id-CustomField-$cf-",
                     object      => $object,
                     CustomField => $CustomFieldObj,
@@ -1238,9 +1238,9 @@
 
 # }}}
 
-# {{{ sub ProcessTicketDates
+# {{{ sub process_ticket_dates
 
-=head2 ProcessTicketDates ( ticket_obj => $Ticket, ARGSRef => \%ARGS );
+=head2 process_ticket_dates ( ticket_obj => $Ticket, ARGSRef => \%ARGS );
 
 Returns an array of results messages.
 
@@ -1296,9 +1296,9 @@
 
 # }}}
 
-# {{{ sub ProcessTicketLinks
+# {{{ sub process_ticket_links
 
-=head2 ProcessTicketLinks ( ticket_obj => $Ticket, ARGSRef => \%ARGS );
+=head2 process_ticket_links ( ticket_obj => $Ticket, ARGSRef => \%ARGS );
 
 Returns an array of results messages.
 

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Scrip.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Scrip.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Scrip.pm	Wed Jan 30 18:33:55 2008
@@ -577,7 +577,7 @@
 
 =head2 current_user_has_right
 
-Helper menthod for has_right. Presets Principal to CurrentUser then 
+Helper menthod for has_right. Presets Principal to current_user then 
 calls has_right.
 
 =cut

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripAction.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripAction.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripAction.pm	Wed Jan 30 18:33:55 2008
@@ -175,7 +175,7 @@
 
     $self->{'Action'} = $type->new(
         argument        => $self->argument,
-        CurrentUser     => $self->current_user,
+        current_user     => $self->current_user,
         scrip_action_obj  => $self,
         scrip_obj       => $args{'scrip_obj'},
         template_obj    => $self->template_obj,

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripCondition.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripCondition.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripCondition.pm	Wed Jan 30 18:33:55 2008
@@ -181,7 +181,7 @@
         'transaction_obj'      => $args{'transaction_obj'},
         'argument'             => $self->argument,
         'applicable_trans_types' => $self->applicable_trans_types,
-        CurrentUser            => $self->current_user
+        current_user            => $self->current_user
     );
 }
 

Modified: rt/branches/3.999-DANGEROUS/t/api/action-createtickets.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/action-createtickets.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/api/action-createtickets.t	Wed Jan 30 18:33:55 2008
@@ -82,7 +82,7 @@
 is ($t->referred_to_by->count,1, "It's only referred to by one other ticket");
 is ($t->referred_to_by->first->base_obj->id,$t->depends_on->first->target_obj->id, "The same ticket that depends on it refers to it.");
 use RT::ScripAction::CreateTickets;
-my $action =  RT::ScripAction::CreateTickets->new( CurrentUser => RT->system_user);;
+my $action =  RT::ScripAction::CreateTickets->new( current_user => RT->system_user);;
 
 # comma-delimited templates
 my $commas = <<"EOF";

Modified: rt/branches/3.999-DANGEROUS/t/cron.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/cron.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/cron.t	Wed Jan 30 18:33:55 2008
@@ -45,7 +45,7 @@
 my ($id, $tobj, $msg2) = $ticket1->create(queue    => $queue_obj,
 					 Requestor => ['tara at example.com'],
 					 subject   => 'bork bork bork',
-					 Priority  => 22,
+					 priority  => 22,
 					);
 ok($id, 'record test ticket creation 1');
 my $ticket2 = RT::Model::Ticket->new(current_user => RT->system_user);
@@ -82,8 +82,8 @@
 ok(require RT::ScripAction::RecordCorrespondence);
 
 my ($comment_act, $correspond_act);
-ok($comment_act = RT::ScripAction::RecordComment->new(ticket_obj => $ticket1, template_obj => $template_obj, CurrentUser => $CurrentUser), "RecordComment Created");
-ok($correspond_act = RT::ScripAction::RecordCorrespondence->new(ticket_obj => $ticket2, template_obj => $template_obj, CurrentUser => $CurrentUser), "RecordCorrespondence Created");
+ok($comment_act = RT::ScripAction::RecordComment->new(ticket_obj => $ticket1, template_obj => $template_obj, current_user => $CurrentUser), "RecordComment Created");
+ok($correspond_act = RT::ScripAction::RecordCorrespondence->new(ticket_obj => $ticket2, template_obj => $template_obj, current_user => $CurrentUser), "RecordCorrespondence Created");
 ok($comment_act->prepare(), "comment prepared");
 ok($correspond_act->prepare(), "Correspond prepared");
 ok($comment_act->commit(), "comment committed");
@@ -91,7 +91,7 @@
 
 # Now test for loop suppression.
 my ($trans, $desc, $transaction) = $ticket2->comment(mime_obj => $template_obj->mime_obj);
-my $bogus_action = RT::ScripAction::RecordComment->new(ticket_obj => $ticket1, template_obj => $template_obj, transaction_obj => $transaction, CurrentUser => $CurrentUser);
+my $bogus_action = RT::ScripAction::RecordComment->new(ticket_obj => $ticket1, template_obj => $template_obj, transaction_obj => $transaction, current_user => $CurrentUser);
 ok(!$bogus_action->prepare(), "comment aborted to prevent loop");
 
 1;


More information about the Rt-commit mailing list