[Rt-commit] r10606 - rt/branches/3.999-DANGEROUS/lib/RT/Model

[ruz at bestpractical.com]

Author: ruz
Date: Wed Jan 30 19:00:21 2008
New Revision: 10606

Modified:
   rt/branches/3.999-DANGEROUS/lib/RT/Model/Scrip.pm

Log:
* fix principal

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 19:00:21 2008
@@ -587,7 +587,7 @@
     my $right = shift;
     return (
         $self->has_right(
-            Principal => $self->current_user->user_object,
+            principal => $self->current_user->user_object,
             right     => $right
         )
     );
@@ -610,17 +610,17 @@
     my $self = shift;
     my %args = (
         right     => undef,
-        Principal => undef,
+        principal => undef,
         @_
     );
 
     if ( $self->SUPER::_value('queue') ) {
-        return $args{'Principal'}->has_right(
+        return $args{'principal'}->has_right(
             right  => $args{'right'},
             object => $self->queue_obj
         );
     } else {
-        return $args{'Principal'}->has_right(
+        return $args{'principal'}->has_right(
             object => RT->system,
             right  => $args{'right'},
         );