[Rt-commit] r11852 - in rt/branches/3.8-TESTING: .

[jesse at bestpractical.com]

Author: jesse
Date: Wed Apr 23 17:30:09 2008
New Revision: 11852

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/lib/RT.pm.in

Log:
 r30020 at 31b:  jesse | 2008-04-23 16:12:49 -0400
  Added an accessor for "are we in InstallMode?" 


Modified: rt/branches/3.8-TESTING/lib/RT.pm.in
==============================================================================
--- rt/branches/3.8-TESTING/lib/RT.pm.in	(original)
+++ rt/branches/3.8-TESTING/lib/RT.pm.in	Wed Apr 23 17:30:09 2008
@@ -45,14 +45,16 @@
 # those contributions and any derivatives thereof.
 # 
 # END BPS TAGGED BLOCK }}}
-package RT;
 
 use strict;
 use warnings;
 
+package RT;
+
+
 use File::Spec ();
 
-use vars qw($Config $System $SystemUser $Nobody $Handle $Logger);
+use vars qw($Config $System $SystemUser $Nobody $Handle $Logger $_INSTALL_MODE);
 
 our $VERSION = '@RT_VERSION_MAJOR at .@RT_VERSION_MINOR at .@RT_VERSION_PATCH@';
 
@@ -557,6 +559,18 @@
 }
 
 
+sub InstallMode {
+    my $self = shift;
+    if (@_) {
+         $_INSTALL_MODE = shift;
+         if($_INSTALL_MODE) {
+             require RT::CurrentUser;
+            $SystemUser = RT::CurrentUser->new();
+         }
+    }
+    return $_INSTALL_MODE;
+}
+
 
 =head1 BUGS