[Rt-commit] r9638 - in rt/branches/3.999-DANGEROUS: .
etc/upgrade/3.7.19 html/NoAuth/js/libs/scriptaculous
html/Prefs html/Ticket html/Ticket/Elements lib/RT
lib/RT/Crypt lib/RT/Model t/ticket t/web
jesse at bestpractical.com
jesse at bestpractical.com
Sun Nov 11 01:28:40 EST 2007
Author: jesse
Date: Sun Nov 11 01:28:37 2007
New Revision: 9638
Modified:
rt/branches/3.999-DANGEROUS/ (props changed)
rt/branches/3.999-DANGEROUS/etc/upgrade/3.7.19/content
rt/branches/3.999-DANGEROUS/html/NoAuth/js/libs/scriptaculous/controls.js
rt/branches/3.999-DANGEROUS/html/NoAuth/js/util.js
rt/branches/3.999-DANGEROUS/html/Prefs/Other.html
rt/branches/3.999-DANGEROUS/html/Ticket/Display.html
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/PreviewScrips
rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomField.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldValue.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Queue.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/User.pm
rt/branches/3.999-DANGEROUS/lib/RT/Record.pm
rt/branches/3.999-DANGEROUS/lib/RT/Test.pm
rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t
rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t
Log:
r71663 at pinglin: jesse | 2007-11-11 01:27:11 -0500
* cleanups from merge
Modified: rt/branches/3.999-DANGEROUS/etc/upgrade/3.7.19/content
==============================================================================
--- rt/branches/3.999-DANGEROUS/etc/upgrade/3.7.19/content (original)
+++ rt/branches/3.999-DANGEROUS/etc/upgrade/3.7.19/content Sun Nov 11 01:28:37 2007
@@ -13,7 +13,7 @@
$desc = gen_scrip_description( $scrip );
- my ($status, $msg) = $scrip->SetDescription( $desc );
+ my ($status, $msg) = $scrip->setDescription( $desc );
unless ( $status ) {
print STDERR "Couldn't set description of a scrip: $msg";
} else {
Modified: rt/branches/3.999-DANGEROUS/html/NoAuth/js/libs/scriptaculous/controls.js
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/NoAuth/js/libs/scriptaculous/controls.js (original)
+++ rt/branches/3.999-DANGEROUS/html/NoAuth/js/libs/scriptaculous/controls.js Sun Nov 11 01:28:37 2007
@@ -126,7 +126,7 @@
this.observer = null;
- this.element.setAttribute('autocomplete','off');
+ this.element.set_attribute('autocomplete','off');
Element.hide(this.update);
Modified: rt/branches/3.999-DANGEROUS/html/NoAuth/js/util.js
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/NoAuth/js/util.js (original)
+++ rt/branches/3.999-DANGEROUS/html/NoAuth/js/util.js Sun Nov 11 01:28:37 2007
@@ -193,7 +193,7 @@
var e = $(input);
if (e) {
var link = document.createElement('a');
- link.setAttribute('href', '#');
+ link.set_attribute('href', '#');
clickevent = function clickevent(e) { openCalWindow(input); return false; };
if (! addEvent(link, "click", clickevent)) {
Modified: rt/branches/3.999-DANGEROUS/html/Prefs/Other.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Prefs/Other.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Prefs/Other.html Sun Nov 11 01:28:37 2007
@@ -90,7 +90,7 @@
my $preferences = $UserObj->Preferences( RT->System );
if ((defined $PreferredKey) && $PreferredKey ne $UserObj->FirstAttribute('PreferredKey')) {
- my ($code, $msg) = $UserObj->SetAttribute(Name => 'PreferredKey', Content => $PreferredKey);
+ my ($code, $msg) = $UserObj->set_attribute(Name => 'PreferredKey', Content => $PreferredKey);
push @results, loc('Preferred Key: [_1]', loc_fuzzy($msg));
}
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Display.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Display.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Display.html Sun Nov 11 01:28:37 2007
@@ -161,7 +161,7 @@
Abort("No permission to view ticket");
}
if ( $ARGS{'MarkAsSeen'} ) {
- $TicketObj->set_Attribute(
+ $TicketObj->set_attribute(
Name => 'User-'. $TicketObj->current_user->id .'-SeenUpTo',
Content => $TicketObj->LastUpdated,
);
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/PreviewScrips
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/PreviewScrips (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/PreviewScrips Sun Nov 11 01:28:37 2007
@@ -60,7 +60,7 @@
% if ( $Object ) {
<i><&|/l&>(Check boxes to disable notifications to the listed recipients)</&></i><br />
-% foreach my $scrip (@{$Object->Scrips->Prepared}) {
+% foreach my $scrip (@{$Object->Scrips->prepared}) {
% next unless $scrip->ActionObj->Action->isa('RT::ScripAction::SendEmail');
<b><% $scrip->Description || loc('Scrip #[_1]',$scrip->id) %></b><br />
<&|/l, loc($scrip->ConditionObj->Name), loc($scrip->ActionObj->Name), loc($scrip->TemplateObj->Name)&>[_1] [_2] with template [_3]</&>
@@ -177,7 +177,7 @@
}
my @recipients;
-foreach my $scrip ( @{ $txn->Scrips->Prepared } ) {
+foreach my $scrip ( @{ $txn->Scrips->prepared } ) {
my $action = $scrip->ActionObj->Action;
next unless $action->isa('RT::ScripAction::SendEmail');
@@ -198,7 +198,7 @@
Body => $ARGS{'Content'},
);
-my $TicketObj = RT::Ticket->new( $session{'CurrentUser'} );
+my $TicketObj = RT::Model::Ticket->new( $session{'CurrentUser'} );
my ( $id, $txn, $msg ) = $TicketObj->create(
Type => $ARGS{'Type'} || 'ticket',
Queue => $ARGS{'Queue'},
@@ -222,7 +222,7 @@
}
my @recipients;
-foreach my $scrip ( @{ $txn->Scrips->Prepared } ) {
+foreach my $scrip ( @{ $txn->Scrips->prepared } ) {
my $action = $scrip->ActionObj->Action;
next unless $action->isa('RT::ScripAction::SendEmail');
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm Sun Nov 11 01:28:37 2007
@@ -1640,8 +1640,8 @@
# good, one suitable and trusted key
next;
}
- my $user = RT::User->new( $RT::SystemUser );
- $user->LoadByEmail( $address );
+ my $user = RT::Model::User->new( $RT::SystemUser );
+ $user->load_by_email( $address );
# it's possible that we have no User record with the email
$user = undef unless $user->id;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomField.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomField.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomField.pm Sun Nov 11 01:28:37 2007
@@ -508,7 +508,7 @@
if( $class eq 'RT::Model::CustomFieldValueCollection' ) {
return $self->delete_attribute( 'ValuesClass' );
}
- return $self->set_Attribute( Name => 'ValuesClass', Content => $class );
+ return $self->set_attribute( Name => 'ValuesClass', Content => $class );
}
@@ -1189,7 +1189,7 @@
unless ( $self->current_user_has_right('AdminCustomField') ) {
return ( 0, $self->loc('Permission Denied') );
}
- $self->set_Attribute( Name => $template_name, Content => $value );
+ $self->set_attribute( Name => $template_name, Content => $value );
return ( 1, $self->loc('Updated') );
} else {
unless ( $self->id && $self->current_user_has_right('SeeCustomField') ) {
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldValue.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldValue.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/CustomFieldValue.pm Sun Nov 11 01:28:37 2007
@@ -126,7 +126,7 @@
my $self = shift;
my $category = shift;
if ( defined $category && length $category ) {
- return $self->set_Attribute(
+ return $self->set_attribute(
Name => 'Category',
Content => $category,
);
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Queue.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Queue.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Queue.pm Sun Nov 11 01:28:37 2007
@@ -491,7 +491,7 @@
return ( 0, $self->loc('Permission Denied') )
unless $self->current_user_has_right('AdminQueue');
- my ($status, $msg) = $self->set_Attribute(
+ my ($status, $msg) = $self->set_attribute(
Name => 'Sign',
Description => 'Sign outgoing messages by default',
Content => $value,
@@ -517,7 +517,7 @@
return ( 0, $self->loc('Permission Denied') )
unless $self->current_user_has_right('AdminQueue');
- my ($status, $msg) = $self->set_Attribute(
+ my ($status, $msg) = $self->set_attribute(
Name => 'Encrypt',
Description => 'Encrypt outgoing messages by default',
Content => $value,
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/ScripCollection.pm Sun Nov 11 01:28:37 2007
@@ -363,7 +363,7 @@
# we call Count below, but later we always do search
# so just do search and get count from results
- $self->_DoSearch if $self->{'must_redo_search'};
+ $self->_do_search if $self->{'must_redo_search'};
$RT::Logger->debug(
"Found ". $self->count ." scrips for $args{'Stage'} stage"
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm Sun Nov 11 01:28:37 2007
@@ -716,7 +716,7 @@
return ( 0, 0, $self->loc( "Ticket could not be created due to an internal error"));
}
if ( $args{'DryRun'} ) {
- $RT::Handle->Rollback();
+ $RT::Handle->rollback();
return ($self->id, $TransObj, $ErrStr);
}
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm Sun Nov 11 01:28:37 2007
@@ -1386,7 +1386,7 @@
}
my ( $field, $subkey ) = split /\./, $row->{column}, 2;
my $meta = $self->columns->{$field};
- if ( defined $meta[0] && $meta->[0] eq 'WATCHERFIELD' ) {
+ if ( defined $meta->[0] && $meta->[0] eq 'WATCHERFIELD' ) {
# cache alias as we want to use one alias per watcher type for sorting
my $users = $self->{_sql_u_watchers_alias_for_sort}{ $meta->[1] };
unless ( $users ) {
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/User.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/User.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/User.pm Sun Nov 11 01:28:37 2007
@@ -1632,7 +1632,7 @@
$prefkey = $keys[0]->{'Fingerprint'};
}
- $self->SetAttribute(Name => 'PreferredKey', Content => $prefkey);
+ $self->set_attribute(Name => 'PreferredKey', Content => $prefkey);
return $prefkey;
}
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Record.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Record.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Record.pm Sun Nov 11 01:28:37 2007
@@ -207,13 +207,13 @@
}
-=head2 Set_Attribute { Name, Description, Content }
+=head2 set_attribute { Name, Description, Content }
Like add_attribute, but replaces all existing attributes with the same Name.
=cut
-sub set_Attribute {
+sub set_attribute {
my $self = shift;
my %args = ( Name => undef,
Description => undef,
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Test.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Test.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Test.pm Sun Nov 11 01:28:37 2007
@@ -497,13 +497,5 @@
return %res;
}
-END {
- if ( $ENV{RT_TEST_PARALLEL} && $created_new_db ) {
- my $dbh =
- _get_dbh( RT::Handle->DSN, $ENV{RT_DBA_USER}, $ENV{RT_DBA_PASSWORD} );
- RT::Handle->DropDatabase( $dbh, Force => 1 );
- $dbh->disconnect;
- }
-}
1;
Modified: rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t (original)
+++ rt/branches/3.999-DANGEROUS/t/ticket/scrips_batch.t Sun Nov 11 01:28:37 2007
@@ -1,16 +1,18 @@
+
+
+use RT::Test;
use Test::More tests => '19';
use strict;
use warnings;
use_ok('RT');
-use_ok('RT::Ticket');
-use RT::Test;
+use_ok('RT::Model::Ticket');
my $queue = RT::Test->load_or_create_queue( Name => 'Regression' );
ok $queue && $queue->id, 'loaded or created queue';
-RT->Config->Set( UseTransactionBatch => 1 );
+RT->Config->set( UseTransactionBatch => 1 );
my ($baseurl, $m) = RT::Test->started_ok;
ok $m->login, 'logged in as root';
Modified: rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t Sun Nov 11 01:28:37 2007
@@ -46,9 +46,6 @@
RT::Test->import_gnupg_key('general at example.com.2', 'public');
RT::Test->import_gnupg_key('general at example.com.2', 'secret');
- ok(my $user = RT::User->new($RT::SystemUser));
- ok($user->Load('root'), "Loaded user 'root'");
-
ok(my $user = RT::Model::User->new(RT->SystemUser));
ok($user->load('root'), "Loaded user 'root'");
$user->set_EmailAddress('recipient at example.com');
@@ -394,7 +391,7 @@
my $key1 = "EC1E81E7DC3DB42788FB0E4E9FA662C06DE22FC2";
my $key2 = "75E156271DCCF02DDD4A7A8CDF651FA0632C4F50";
-ok($user = RT::User->new($RT::SystemUser));
+ok($user = RT::Model::User->new($RT::SystemUser));
ok($user->Load('root'), "Loaded user 'root'");
is($user->PreferredKey, $key1, "preferred key is set correctly");
$m->get("$baseurl/Prefs/Other.html");
@@ -409,7 +406,7 @@
$m->select("PreferredKey" => $key2);
$m->submit;
-ok($user = RT::User->new($RT::SystemUser));
+ok($user = RT::Model::User->new($RT::SystemUser));
ok($user->Load('root'), "Loaded user 'root'");
is($user->PreferredKey, $key2, "preferred key is set correctly to the new value");
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t Sun Nov 11 01:28:37 2007
@@ -4,28 +4,28 @@
use Test::More tests => 492;
use RT::Test;
-use RT::Action::SendEmail;
+use RT::ScripAction::SendEmail;
use File::Temp qw(tempdir);
RT::Test->set_mail_catcher;
-RT->Config->Set( LogToScreen => 'debug' );
-RT->Config->Set( LogStackTraces => 'error' );
+RT->Config->set( LogToScreen => 'debug' );
+RT->Config->set( LogStackTraces => 'error' );
use_ok('RT::Crypt::GnuPG');
-RT->Config->Set( GnuPG =>
+RT->Config->set( GnuPG =>
Enable => 1,
OutgoingMessagesFormat => 'RFC',
);
-RT->Config->Set( GnuPGOptions =>
+RT->Config->set( GnuPGOptions =>
homedir => scalar tempdir( CLEANUP => 1 ),
passphrase => 'rt-test',
'no-permission-warning' => undef,
'trust-model' => 'always',
);
-RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' );
+RT->Config->set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' );
RT::Test->import_gnupg_key('rt-recipient at example.com');
RT::Test->import_gnupg_key('rt-test at example.com', 'public');
@@ -81,8 +81,8 @@
# to avoid encryption/signing during create
set_queue_crypt_options();
- my $ticket = RT::Ticket->new( $RT::SystemUser );
- my ($id) = $ticket->Create(
+ my $ticket = RT::Model::Ticket->new( $RT::SystemUser );
+ my ($id) = $ticket->create(
Subject => 'test',
Queue => $queue->id,
Requestor => 'rt-test at example.com',
@@ -117,8 +117,8 @@
my $tid;
{
- my $ticket = RT::Ticket->new( $RT::SystemUser );
- ($tid) = $ticket->Create(
+ my $ticket = RT::Model::Ticket->new( $RT::SystemUser );
+ ($tid) = $ticket->create(
Subject => 'test',
Queue => $queue->id,
Requestor => 'rt-test at example.com',
@@ -157,7 +157,7 @@
is ($status >> 8, 0, "The mail gateway exited normally");
ok ($id, "got id of a newly created ticket - $id");
- my $tick = RT::Ticket->new( $RT::SystemUser );
+ my $tick = RT::Model::Ticket->new( $RT::SystemUser );
$tick->Load( $id );
ok ($tick->id, "loaded ticket #$id");
@@ -178,7 +178,7 @@
is ($status >> 8, 0, "The mail gateway exited normally");
ok ($id, "got id of a newly created ticket - $id");
- my $tick = RT::Ticket->new( $RT::SystemUser );
+ my $tick = RT::Model::Ticket->new( $RT::SystemUser );
$tick->Load( $id );
ok ($tick->id, "loaded ticket #$id");
@@ -202,7 +202,7 @@
is ($status >> 8, 0, "The mail gateway exited normally");
ok ($id, "got id of a newly created ticket - $id");
- my $tick = RT::Ticket->new( $RT::SystemUser );
+ my $tick = RT::Model::Ticket->new( $RT::SystemUser );
$tick->Load( $id );
ok ($tick->id, "loaded ticket #$id");
@@ -225,7 +225,7 @@
is ($status >> 8, 0, "The mail gateway exited normally");
ok ($id, "got id of a newly created ticket - $id");
- my $tick = RT::Ticket->new( $RT::SystemUser );
+ my $tick = RT::Model::Ticket->new( $RT::SystemUser );
$tick->Load( $id );
ok ($tick->id, "loaded ticket #$id");
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t Sun Nov 11 01:28:37 2007
@@ -4,29 +4,29 @@
use Test::More tests => 60;
use RT::Test;
-use RT::Action::SendEmail;
+use RT::ScripAction::SendEmail;
use File::Temp qw(tempdir);
RT::Test->set_mail_catcher;
-RT->Config->Set( LogToScreen => 'debug' );
-RT->Config->Set( LogStackTraces => 'error' );
+RT->Config->set( LogToScreen => 'debug' );
+RT->Config->set( LogStackTraces => 'error' );
use_ok('RT::Crypt::GnuPG');
-RT->Config->Set( GnuPG =>
+RT->Config->set( GnuPG =>
Enable => 1,
OutgoingMessagesFormat => 'RFC',
);
-RT->Config->Set( GnuPGOptions =>
+RT->Config->set( GnuPGOptions =>
homedir => scalar tempdir( CLEANUP => 0 ),
passphrase => 'rt-test',
'no-permission-warning' => undef,
);
diag "GnuPG --homedir ". RT->Config->Get('GnuPGOptions')->{'homedir'};
-RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' );
+RT->Config->set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' );
my $queue = RT::Test->load_or_create_queue(
Name => 'Regression',
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t Sun Nov 11 01:28:37 2007
@@ -4,29 +4,29 @@
use Test::More tests => 68;
use RT::Test;
-use RT::Action::SendEmail;
+use RT::ScripAction::SendEmail;
use File::Temp qw(tempdir);
RT::Test->set_mail_catcher;
-RT->Config->Set( LogToScreen => 'debug' );
-RT->Config->Set( LogStackTraces => 'error' );
+RT->Config->set( LogToScreen => 'debug' );
+RT->Config->set( LogStackTraces => 'error' );
use_ok('RT::Crypt::GnuPG');
-RT->Config->Set( GnuPG =>
+RT->Config->set( GnuPG =>
Enable => 1,
OutgoingMessagesFormat => 'RFC',
);
-RT->Config->Set( GnuPGOptions =>
+RT->Config->set( GnuPGOptions =>
homedir => scalar tempdir( CLEANUP => 0 ),
passphrase => 'rt-test',
'no-permission-warning' => undef,
);
diag "GnuPG --homedir ". RT->Config->Get('GnuPGOptions')->{'homedir'};
-RT->Config->Set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' );
+RT->Config->set( 'MailPlugins' => 'Auth::MailFrom', 'Auth::GnuPG' );
my $queue = RT::Test->load_or_create_queue(
Name => 'Regression',
@@ -46,8 +46,8 @@
my $tid;
{
- my $ticket = RT::Ticket->new( $RT::SystemUser );
- ($tid) = $ticket->Create(
+ my $ticket = RT::Model::Ticket->new( $RT::SystemUser );
+ ($tid) = $ticket->create(
Subject => 'test',
Queue => $queue->id,
);
More information about the Rt-commit
mailing list