[Rt-commit] r4234 - in rtir/branches/1.9-EXPERIMENTAL: . lib/RT/Action

[ruz at bestpractical.com]

Author: ruz
Date: Sun Dec  4 19:06:43 2005
New Revision: 4234

Modified:
   rtir/branches/1.9-EXPERIMENTAL/   (props changed)
   rtir/branches/1.9-EXPERIMENTAL/lib/RT/Action/RTIR.pm
Log:
 r413 at cubic-pc:  cubic | 2005-12-05 03:09:07 +0300
  r392 at cubic-pc:  cubic | 2005-12-04 11:59:39 +0300
  * new method CreatorCurrentUser
 


Modified: rtir/branches/1.9-EXPERIMENTAL/lib/RT/Action/RTIR.pm
==============================================================================
--- rtir/branches/1.9-EXPERIMENTAL/lib/RT/Action/RTIR.pm	(original)
+++ rtir/branches/1.9-EXPERIMENTAL/lib/RT/Action/RTIR.pm	Sun Dec  4 19:06:43 2005
@@ -6,5 +6,12 @@
 
 use base 'RT::Action::Generic';
 
+sub CreatorCurentUser {
+    my $self = shift;
+    my $user = new RT::CurrentUser($self->TransactionObj->CurrentUser);
+    $user->Load($self->TransactionObj->Creator);
+    return $user;
+}
+
 
 1;