[Rt-commit] r11047 - rt/branches/3.8-TESTING/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Tue Mar 11 19:30:46 2008
New Revision: 11047

Modified:
   rt/branches/3.8-TESTING/lib/RT/User_Overlay.pm

Log:
* add missing pod

Modified: rt/branches/3.8-TESTING/lib/RT/User_Overlay.pm
==============================================================================
--- rt/branches/3.8-TESTING/lib/RT/User_Overlay.pm	(original)
+++ rt/branches/3.8-TESTING/lib/RT/User_Overlay.pm	Tue Mar 11 19:30:46 2008
@@ -979,7 +979,7 @@
     return (undef);
 }
 
-=head2 Sub SetDisabled
+=head2 SetDisabled
 
 Toggles the user's disabled flag.
 If this flag is
@@ -996,12 +996,17 @@
     return $self->PrincipalObj->SetDisabled(@_);
 }
 
+=head2 Disabled
+
+Returns true if user is disabled or false otherwise
+
+=cut
+
 sub Disabled {
     my $self = shift;
     return $self->PrincipalObj->Disabled(@_);
 }
 
-
 =head2 PrincipalObj 
 
 Returns the principal object for this user. returns an empty RT::Principal