[Rt-commit] r7771 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Fri May  4 22:22:03 2007
New Revision: 7771

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/CurrentUser.pm

Log:
 r5234 at cubic-pc:  cubic | 2007-05-05 06:02:20 +0400
 * minor


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/CurrentUser.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/CurrentUser.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/CurrentUser.pm	Fri May  4 22:22:03 2007
@@ -67,12 +67,11 @@
 package RT::CurrentUser;
 
 use RT::I18N;
-use RT::User;
 
 use strict;
-use base qw/RT::User/;
+use warnings;
 
-# {{{ sub _Init 
+use base qw/RT::User/;
 
 #The basic idea here is that $self->CurrentUser is always supposed
 # to be a CurrentUser object. but that's hard to do when we're trying to load
@@ -101,19 +100,12 @@
     $self->_BuildTableAttributes;
 
 }
-# }}}
-
-# {{{ sub Create
 
 sub Create {
     my $self = shift;
     return (0, $self->loc('Permission Denied'));
 }
 
-# }}}
-
-# {{{ sub Delete
-
 sub Delete {
     my $self = shift;
     return (0, $self->loc('Permission Denied'));
@@ -121,11 +113,9 @@
 
 # }}}
 
-# {{{ sub UserObj
-
 =head2 UserObj
 
-Returns the RT::User object associated with this CurrentUser object.
+Returns the L<RT::User> object associated with this CurrentUser object.
 
 =cut
 
@@ -140,9 +130,6 @@
     }
     return $user;
 }
-# }}}
-
-# {{{ sub _Accessible 
 
 sub _CoreAccessible  {
      {
@@ -155,9 +142,6 @@
      };
   
 }
-# }}}
-
-# {{{ sub LoadByGecos
 
 =head2 LoadByGecos
 
@@ -170,9 +154,6 @@
     my $self = shift;
     return $self->LoadByCol( "Gecos", shift );
 }
-# }}}
-
-# {{{ sub LoadByName
 
 =head2 LoadByName
 
@@ -185,16 +166,12 @@
     my $self = shift;
     return $self->LoadByCol( "Name", shift );
 }
-# }}}
-
-# {{{ Localization
 
 =head2 LanguageHandle
 
 Returns this current user's langauge handle. Should take a language
 specification. but currently doesn't
 
-
 =cut 
 
 sub LanguageHandle {
@@ -244,12 +221,10 @@
 
     return $self->LanguageHandle->maketext_fuzzy( @_ );
 }
-# }}}
-
 
 =head2 CurrentUser
 
-Return  the current currentuser object
+Return the current currentuser object
 
 =cut
 
@@ -299,9 +274,6 @@
     return ($password eq $auth_digest);
 }
 
-# }}}
-
-
 eval "require RT::CurrentUser_Vendor";
 die $@ if ($@ && $@ !~ qr{^Can't locate RT/CurrentUser_Vendor.pm});
 eval "require RT::CurrentUser_Local";