[Rt-commit] r10570 - in rt/branches/3.999-DANGEROUS/lib/RT/Interface: .

[ruz at bestpractical.com]

Author: ruz
Date: Tue Jan 29 19:05:49 2008
New Revision: 10570

Modified:
   rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm
   rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm
   rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Session.pm

Log:
* lower method calls

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	Tue Jan 29 19:05:49 2008
@@ -346,8 +346,8 @@
 
     if ( $ARGS{'AttachTickets'} ) {
         require RT::ScripAction::SendEmail;
-        RT::ScripAction::SendEmail->AttachTickets(
-            RT::ScripAction::SendEmail->AttachTickets,
+        RT::ScripAction::SendEmail->attach_tickets(
+            RT::ScripAction::SendEmail->attach_tickets,
             ref $ARGS{'AttachTickets'}
             ? @{ $ARGS{'AttachTickets'} }
             : ( $ARGS{'AttachTickets'} )
@@ -505,7 +505,7 @@
     # skip updates if the content contains only user's signature
     # and we don't update other fields
     if ( $args{'SkipSignatureOnly'} ) {
-        my $sig = $args{'ticket_obj'}->current_user->user_object->Signature
+        my $sig = $args{'ticket_obj'}->current_user->user_object->signature
             || '';
         $sig =~ s/^\s*|\s*$//g;
         if ( $args{ARGSRef}->{'UpdateContent'} =~ /^\s*(--)?\s*\Q$sig\E\s*$/ )
@@ -557,8 +557,8 @@
 
     if ( $args{ARGSRef}->{'AttachTickets'} ) {
         require RT::ScripAction::SendEmail;
-        RT::ScripAction::SendEmail->AttachTickets(
-            RT::ScripAction::SendEmail->AttachTickets,
+        RT::ScripAction::SendEmail->attach_tickets(
+            RT::ScripAction::SendEmail->attach_tickets,
             ref $args{ARGSRef}->{'AttachTickets'}
             ? @{ $args{ARGSRef}->{'AttachTickets'} }
             : ( $args{ARGSRef}->{'AttachTickets'} )
@@ -854,8 +854,8 @@
     my $vals = $Object->values();
     while ( my $cfv = $vals->next() ) {
         if ( my $so = $ARGSRef->{ "$prefix-SortOrder" . $cfv->id } ) {
-            if ( $cfv->SortOrder != $so ) {
-                my ( $err, $msg ) = $cfv->set_SortOrder($so);
+            if ( $cfv->sort_order != $so ) {
+                my ( $err, $msg ) = $cfv->set_sort_order($so);
                 push( @results, $msg );
             }
         }
@@ -919,7 +919,7 @@
 
     # We special case owner changing, so we can use ForceOwnerChange
     if ( $ARGSRef->{'Owner'}
-        && ( $ticket_obj->Owner != $ARGSRef->{'Owner'} ) )
+        && ( $ticket_obj->owner != $ARGSRef->{'Owner'} ) )
     {
         my ($ChownType);
         if ( $ARGSRef->{'ForceOwnerChange'} ) {
@@ -1086,7 +1086,7 @@
                     );
                 push( @results, $msg );
             }
-        } elsif ( $arg eq 'Values' && !$cf->Repeated ) {
+        } elsif ( $arg eq 'Values' && !$cf->repeated ) {
             my $cf_values = $args{'Object'}->custom_field_values( $cf->id );
 
             my %values_hash;

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Handler.pm	Tue Jan 29 19:05:49 2008
@@ -65,7 +65,7 @@
     (   comp_root => [
             [ local => $RT::MasonLocalComponentRoot ],
             (   map { [ "plugin-" . $_->name => $_->component_root ] }
-                    @{ RT->Plugins }
+                    @{ RT->plugins }
             ),
             [ standard => $RT::MasonComponentRoot ]
         ],

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Session.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Session.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web/Session.pm	Tue Jan 29 19:05:49 2008
@@ -171,7 +171,7 @@
     my $class = shift || __PACKAGE__;
     my $attributes = $class->attributes;
     if ( $attributes->{Directory} ) {
-        return $class->_CleariOldDir( $attributes->{Directory}, @_ );
+        return $class->_cleari_old_dir( $attributes->{Directory}, @_ );
     } else {
         return $class->clear_old_db( Jifty->handle->dbh, @_ );
     }