." you may eventually want to start using approvals."
);
- my $approvals_q = RT::Queue->new( $RT::SystemUser );
+ my $approvals_q = RT::Queue->new( RT->SystemUser );
$approvals_q->Load('___Approvals');
unless ( $approvals_q->id ) {
$RT::Logger->error("You have no approvals queue.");
return 1;
}
- my $templates = RT::Templates->new( $RT::SystemUser );
+ my $templates = RT::Templates->new( RT->SystemUser );
$templates->LimitToQueue( $approvals_q->id );
while ( my $tmpl = $templates->Next ) {
my ($status, $msg) = $tmpl->SetName( "[OLD] ". $tmpl->Name );
@Final = (
sub {
$RT::Logger->debug("Going to adjust dashboards");
- my $sys = RT::System->new($RT::SystemUser);
+ my $sys = RT::System->new(RT->SystemUser);
- my $attrs = RT::Attributes->new( $RT::SystemUser );
+ my $attrs = RT::Attributes->new( RT->SystemUser );
$attrs->UnLimit;
my @dashboards = $attrs->Named('Dashboard');
return 1;
},
sub {
- my $approvals_q = RT::Queue->new( $RT::SystemUser );
+ my $approvals_q = RT::Queue->new( RT->SystemUser );
$approvals_q->Load('___Approvals');
unless ( $approvals_q->id ) {
$RT::Logger->error("You have no approvals queue.");
require Data::Dumper;
- my $scrips = RT::Scrips->new( $RT::SystemUser );
+ my $scrips = RT::Scrips->new( RT->SystemUser );
$scrips->LimitToQueue( $approvals_q->id );
while ( my $scrip = $scrips->Next ) {
my %tmp =