diff options
Diffstat (limited to 'rt/lib/RT/System.pm')
| -rw-r--r-- | rt/lib/RT/System.pm | 37 |
1 files changed, 17 insertions, 20 deletions
diff --git a/rt/lib/RT/System.pm b/rt/lib/RT/System.pm index 515e3a4..ec0ae98 100644 --- a/rt/lib/RT/System.pm +++ b/rt/lib/RT/System.pm @@ -2,7 +2,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC # <jesse@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -22,7 +22,9 @@ # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +# 02110-1301 or visit their web page on the internet at +# http://www.gnu.org/copyleft/gpl.html. # # # CONTRIBUTION SUBMISSION POLICY: @@ -43,7 +45,6 @@ # those contributions and any derivatives thereof. # # END BPS TAGGED BLOCK }}} - =head1 NAME RT::System @@ -64,7 +65,7 @@ In the future, there will probably be other API goodness encapsulated here. package RT::System; -use base qw /RT::Base/; +use base qw /RT::Record/; use strict; use RT::ACL; @@ -133,22 +134,9 @@ sub AvailableRights { return(\%rights); } - -=head2 new - -Create a new RT::System object. Really, you should be using $RT::System - -=cut - - -sub new { - my $proto = shift; - my $class = ref($proto) || $proto; - my $self = {}; - bless( $self, $class ); - - - return ($self); +sub _Init { + my $self = shift; + $self->SUPER::_Init (@_) if @_ && $_[0]; } =head2 id @@ -185,6 +173,15 @@ sub Load { return (1); } +sub Name { + return 'RT System'; +} + +sub __Set { 0 } +sub __Value { 0 } +sub Create { 0 } +sub Delete { 0 } + eval "require RT::System_Vendor"; die $@ if ($@ && $@ !~ qr{^Can't locate RT/System_Vendor.pm}); eval "require RT::System_Local"; |