[Rt-commit] r10541 - in rt/branches/3.999-DANGEROUS: etc html/Admin/Elements html/Admin/Queues html/Approvals html/Approvals/Elements html/Elements html/Elements/RT__Model__Ticket html/REST/1.0/NoAuth html/Search/Elements html/Ticket html/Ticket/Elements html/Tools lib/RT lib/RT/Interface lib/RT/Model lib/RT/ScripAction lib/RT/Shredder lib/RT/Shredder/Plugin t/api
ruz at bestpractical.com
ruz at bestpractical.com
Mon Jan 28 20:28:34 EST 2008
Author: ruz
Date: Mon Jan 28 20:28:32 2008
New Revision: 10541
Modified:
rt/branches/3.999-DANGEROUS/etc/RT_Config.pm
rt/branches/3.999-DANGEROUS/etc/initialdata
rt/branches/3.999-DANGEROUS/etc/schema.Informix
rt/branches/3.999-DANGEROUS/etc/schema.Oracle
rt/branches/3.999-DANGEROUS/etc/schema.Pg
rt/branches/3.999-DANGEROUS/etc/schema.SQLite
rt/branches/3.999-DANGEROUS/etc/schema.Sybase
rt/branches/3.999-DANGEROUS/etc/schema.mysql
rt/branches/3.999-DANGEROUS/html/Admin/Elements/SelectGroups
rt/branches/3.999-DANGEROUS/html/Admin/Elements/SelectNewGroupMembers
rt/branches/3.999-DANGEROUS/html/Admin/Queues/People.html
rt/branches/3.999-DANGEROUS/html/Approvals/Display.html
rt/branches/3.999-DANGEROUS/html/Approvals/Elements/Approve
rt/branches/3.999-DANGEROUS/html/Approvals/Elements/ShowDependency
rt/branches/3.999-DANGEROUS/html/Elements/MyReminders
rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Ticket/ColumnMap
rt/branches/3.999-DANGEROUS/html/Elements/ShowLink
rt/branches/3.999-DANGEROUS/html/Elements/ShowMemberships
rt/branches/3.999-DANGEROUS/html/REST/1.0/NoAuth/mail-gateway
rt/branches/3.999-DANGEROUS/html/Search/Elements/SelectGroup
rt/branches/3.999-DANGEROUS/html/SelfService/Display.html
rt/branches/3.999-DANGEROUS/html/Ticket/Display.html
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/AddWatchers
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/EditBasics
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Reminders
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowBasics
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowDependencies
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowRequestor
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Tabs
rt/branches/3.999-DANGEROUS/html/Ticket/History.html
rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html
rt/branches/3.999-DANGEROUS/html/Ticket/Update.html
rt/branches/3.999-DANGEROUS/html/Tools/MyDay.html
rt/branches/3.999-DANGEROUS/lib/RT/EmailParser.pm
rt/branches/3.999-DANGEROUS/lib/RT/I18N.pm
rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm
rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Principal.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Queue.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/Transaction.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/User.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/UserCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm
rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Group.pm
rt/branches/3.999-DANGEROUS/lib/RT/Shredder/GroupMember.pm
rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin.pm
rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Summary.pm
rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Queue.pm
rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Ticket.pm
rt/branches/3.999-DANGEROUS/lib/RT/Shredder/User.pm
rt/branches/3.999-DANGEROUS/t/api/cf.t
rt/branches/3.999-DANGEROUS/t/api/cf_single_values.t
rt/branches/3.999-DANGEROUS/t/api/cf_transaction.t
rt/branches/3.999-DANGEROUS/t/api/condition-ownerchange.t
rt/branches/3.999-DANGEROUS/t/api/customfield.t
rt/branches/3.999-DANGEROUS/t/api/date.t
rt/branches/3.999-DANGEROUS/t/api/emailparser.t
rt/branches/3.999-DANGEROUS/t/api/groups.t
Log:
* more fixes and breakages
Modified: rt/branches/3.999-DANGEROUS/etc/RT_Config.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/etc/RT_Config.pm (original)
+++ rt/branches/3.999-DANGEROUS/etc/RT_Config.pm Mon Jan 28 20:28:32 2008
@@ -326,7 +326,7 @@
# NOTE that options with '-' character MUST be quoted.
set(%GnuPGOptions,
- homedir => '/home/jesse/svk/3.999-DANGEROUS/var/data/gpg',
+ homedir => '/home/cubic/projs/RT/3.999-DANGEROUS/var/data/gpg',
# URL of a keyserver
# keyserver => 'hkp://subkeys.pgp.net',
Modified: rt/branches/3.999-DANGEROUS/etc/initialdata
==============================================================================
--- rt/branches/3.999-DANGEROUS/etc/initialdata (original)
+++ rt/branches/3.999-DANGEROUS/etc/initialdata Mon Jan 28 20:28:32 2008
@@ -18,46 +18,46 @@
@Groups = (
{ name => '',
- Type => 'Everyone', # loc
- Domain => 'SystemInternal',
- Instance => '',
- Description => 'Pseudogroup for internal use', # loc
- },
- { Type => 'privileged', # loc
- Domain => 'SystemInternal',
- Instance => '',
+ type => 'Everyone', # loc
+ domain => 'SystemInternal',
+ instance => '',
+ description => 'Pseudogroup for internal use', # loc
+ },
+ { type => 'privileged', # loc
+ domain => 'SystemInternal',
+ instance => '',
name => '',
- Description => 'Pseudogroup for internal use', # loc
+ description => 'Pseudogroup for internal use', # loc
},
{ name => '',
- Type => 'Unprivileged', # loc
- Domain => 'SystemInternal',
- Instance => '',
- Description => 'Pseudogroup for internal use', # loc
+ type => 'Unprivileged', # loc
+ domain => 'SystemInternal',
+ instance => '',
+ description => 'Pseudogroup for internal use', # loc
},
{ name => '',
- Type => 'Owner', # loc
- Domain => 'RT::System-Role',
- Instance => '',
- Description => 'SystemRolegroup for internal use', # loc
+ type => 'Owner', # loc
+ domain => 'RT::System-Role',
+ instance => '',
+ description => 'SystemRolegroup for internal use', # loc
},
{ name => '',
- Type => 'Requestor', # loc
- Domain => 'RT::System-Role',
- Instance => '',
- Description => 'SystemRolegroup for internal use', # loc
+ type => 'Requestor', # loc
+ domain => 'RT::System-Role',
+ instance => '',
+ description => 'SystemRolegroup for internal use', # loc
},
{ name => '',
- Type => 'Cc', # loc
- Domain => 'RT::System-Role',
- Instance => '',
- Description => 'SystemRolegroup for internal use', # loc
+ type => 'Cc', # loc
+ domain => 'RT::System-Role',
+ instance => '',
+ description => 'SystemRolegroup for internal use', # loc
},
{ name => '',
- Type => 'AdminCc', # loc
- Domain => 'RT::System-Role',
- Instance => '',
- Description => 'Pseudogroup for internal use', # loc
+ type => 'AdminCc', # loc
+ domain => 'RT::System-Role',
+ instance => '',
+ description => 'Pseudogroup for internal use', # loc
}, );
@Queues = ({ name => 'General',
@@ -232,7 +232,7 @@
{ Queue => '0',
name => 'Autoreply', # loc
Description => 'Default Autoresponse template', # loc
- content => 'Subject: AutoReply: {$Ticket->Subject}
+ content => 'Subject: AutoReply: {$Ticket->subject}
Greetings,
@@ -267,12 +267,12 @@
{$Transaction->created_as_string}: Request {$Ticket->id} was acted upon.
-Transaction: {$Transaction->Description}
+Transaction: {$Transaction->description}
Queue: {$Ticket->queue_obj->name}
Subject: {$Transaction->subject || $Ticket->subject || "(No subject given)"}
Owner: {$Ticket->owner_obj->name}
- Requestors: {$Ticket->RequestorAddresses}
- Status: {$Ticket->Status}
+ Requestors: {$Ticket->requestor_addresses}
+ Status: {$Ticket->status}
Ticket <URL: {RT->config->get(\'WebURL\')}/Ticket/Display.html?id={$Ticket->id} >
@@ -307,7 +307,7 @@
name => 'Admin comment', # loc
Description => 'Default admin comment template', # loc
content =>
-'Subject: [comment] {my $s=($Transaction->Subject||$Ticket->Subject); $s =~ s/\\[comment\\]//g; $s =~ s/^Re//i; $s;}
+'Subject: [comment] {my $s=($Transaction->subject||$Ticket->subject); $s =~ s/\\[comment\\]//g; $s =~ s/^Re//i; $s;}
{RT->config->get(\'WebURL\')}Ticket/Display.html?id={$Ticket->id}
@@ -334,7 +334,7 @@
Queue => '0',
name => 'Resolved', # loc
Description => 'Ticket Resolved', # loc
- content => 'Subject: Resolved: {$Ticket->Subject}
+ content => 'Subject: Resolved: {$Ticket->subject}
According to our records, your request has been resolved. If you have any
further questions or concerns, please respond to this message.
@@ -344,7 +344,7 @@
name => "New Pending Approval", # loc
Description =>
"Notify Owners and AdminCcs of new items pending their approval", # loc
- content => 'Subject: New Pending Approval: {$Ticket->Subject}
+ content => 'Subject: New Pending Approval: {$Ticket->subject}
Greetings,
@@ -363,7 +363,7 @@
name => "Approval Passed", # loc
Description =>
"Notify Owner of their ticket has been approved by some approver", # loc
- content => 'Subject: Ticket Approved: {$Ticket->Subject}
+ content => 'Subject: Ticket Approved: {$Ticket->subject}
Greetings,
@@ -375,7 +375,7 @@
name => "All Approvals Passed", # loc
Description =>
"Notify Owner of their ticket has been approved by all approvers", # loc
- content => 'Subject: Ticket Approved: {$Ticket->Subject}
+ content => 'Subject: Ticket Approved: {$Ticket->subject}
Greetings,
@@ -386,7 +386,7 @@
name => "Approval Rejected", # loc
Description =>
"Notify Owner of their rejected ticket", # loc
- content => 'Subject: Ticket Rejected: {$Ticket->Subject}
+ content => 'Subject: Ticket Rejected: {$Ticket->subject}
Greetings,
@@ -510,7 +510,7 @@
ScripCondition => 'User Defined',
CustomIsApplicableCode => q[
$self->ticket_obj->type eq 'approval' and
- $self->transaction_obj->Field eq 'Status' and
+ $self->transaction_obj->field eq 'Status' and
$self->transaction_obj->new_value eq 'open' and
eval { $T::Approving = ($self->ticket_obj->all_depended_on_by( Type => 'ticket' ))[0] }
],
@@ -529,7 +529,7 @@
my $links = $self->ticket_obj->depended_on_by;
foreach my $link (@{ $links->items_array_ref }) {
my $obj = $link->base_obj;
- if ($obj->queue_obj->is_active_status($obj->Status)) {
+ if ($obj->queue_obj->is_active_status($obj->status)) {
if ($obj->type eq 'ticket') {
$obj->comment(
Content => _("Your request was rejected."),
@@ -555,7 +555,7 @@
$links = $self->ticket_obj->depends_on;
foreach my $link (@{ $links->items_array_ref }) {
my $obj = $link->target_obj;
- if ($obj->queue_obj->is_active_status($obj->Status)) {
+ if ($obj->queue_obj->is_active_status($obj->status)) {
$obj->set_status(
Status => 'deleted',
Force => 1,
Modified: rt/branches/3.999-DANGEROUS/etc/schema.Informix
==============================================================================
--- rt/branches/3.999-DANGEROUS/etc/schema.Informix (original)
+++ rt/branches/3.999-DANGEROUS/etc/schema.Informix Mon Jan 28 20:28:32 2008
@@ -76,14 +76,14 @@
id SERIAL,
name VARCHAR(200) DEFAULT NULL,
Description VARCHAR(255) DEFAULT NULL,
- Domain VARCHAR(64) DEFAULT '',
+ domain VARCHAR(64) DEFAULT '',
Type VARCHAR(64) DEFAULT '',
- Instance INTEGER DEFAULT 0 NOT NULL,
--- Instance VARCHAR(64) DEFAULT '' NOT NULL,
+ instance INTEGER DEFAULT 0 NOT NULL,
+-- instance VARCHAR(64) DEFAULT '' NOT NULL,
PRIMARY KEY (id)
);
-CREATE INDEX Groups1 ON Groups (Domain, Instance, Type, id);
-CREATE INDEX Groups2 ON Groups (Type, Instance, Domain);
+CREATE INDEX Groups1 ON Groups (domain, instance, Type, id);
+CREATE INDEX Groups2 ON Groups (Type, instance, domain);
CREATE TABLE ScripConditions (
Modified: rt/branches/3.999-DANGEROUS/etc/schema.Oracle
==============================================================================
--- rt/branches/3.999-DANGEROUS/etc/schema.Oracle (original)
+++ rt/branches/3.999-DANGEROUS/etc/schema.Oracle Mon Jan 28 20:28:32 2008
@@ -77,13 +77,13 @@
CONSTRAINT Groups_Key PRIMARY KEY,
name VARCHAR2(200),
Description VARCHAR2(255),
- Domain VARCHAR2(64),
+ domain VARCHAR2(64),
Type VARCHAR2(64),
- Instance NUMBER(11,0) DEFAULT 0 -- NOT NULL
--- Instance VARCHAR2(64)
+ instance NUMBER(11,0) DEFAULT 0 -- NOT NULL
+-- instance VARCHAR2(64)
);
-CREATE INDEX Groups1 ON Groups (LOWER('Domain'), Instance, LOWER('Type'), id);
-CREATE INDEX Groups2 ON Groups (LOWER('Type'), Instance, LOWER('Domain'));
+CREATE INDEX Groups1 ON Groups (LOWER('domain'), instance, LOWER('Type'), id);
+CREATE INDEX Groups2 ON Groups (LOWER('Type'), instance, LOWER('domain'));
CREATE SEQUENCE SCRIPCONDITIONS_seq;
Modified: rt/branches/3.999-DANGEROUS/etc/schema.Pg
==============================================================================
--- rt/branches/3.999-DANGEROUS/etc/schema.Pg (original)
+++ rt/branches/3.999-DANGEROUS/etc/schema.Pg Mon Jan 28 20:28:32 2008
@@ -132,14 +132,14 @@
id INTEGER DEFAULT nextval('groups_id_seq'),
name varchar(200) NULL ,
Description varchar(255) NULL ,
- Domain varchar(64),
+ domain varchar(64),
Type varchar(64),
- Instance integer,
+ instance integer,
PRIMARY KEY (id)
);
-CREATE UNIQUE INDEX Groups1 ON Groups (Domain,Instance,Type,id, name);
-CREATE INDEX Groups2 On Groups (Type, Instance, Domain);
+CREATE UNIQUE INDEX Groups1 ON Groups (domain,instance,Type,id, name);
+CREATE INDEX Groups2 On Groups (Type, instance, domain);
-- }}}
Modified: rt/branches/3.999-DANGEROUS/etc/schema.SQLite
==============================================================================
--- rt/branches/3.999-DANGEROUS/etc/schema.SQLite (original)
+++ rt/branches/3.999-DANGEROUS/etc/schema.SQLite Mon Jan 28 20:28:32 2008
@@ -80,13 +80,13 @@
id INTEGER ,
name varchar(200) NULL ,
Description varchar(255) NULL ,
- Domain varchar(64),
+ domain varchar(64),
Type varchar(64),
- Instance integer
+ instance integer
) ;
-CREATE UNIQUE INDEX Groups1 ON Groups (name,Domain,Type,Instance) ;
+CREATE UNIQUE INDEX Groups1 ON Groups (name,domain,Type,instance) ;
--- }}}
Modified: rt/branches/3.999-DANGEROUS/etc/schema.Sybase
==============================================================================
--- rt/branches/3.999-DANGEROUS/etc/schema.Sybase (original)
+++ rt/branches/3.999-DANGEROUS/etc/schema.Sybase Mon Jan 28 20:28:32 2008
@@ -85,14 +85,14 @@
id numeric(38,0) identity,
name varchar(200) NULL ,
Description varchar(255) NULL ,
- Domain varchar(64),
+ domain varchar(64),
Type varchar(64),
- Instance integer,
+ instance integer,
PRIMARY KEY (id)
) ;
-CREATE INDEX Groups1 ON Groups (Domain,Instance,Type,id);
-CREATE INDEX Groups2 On Groups (Type, Instance, Domain);
+CREATE INDEX Groups1 ON Groups (domain,instance,Type,id);
+CREATE INDEX Groups2 On Groups (Type, instance, domain);
# }}}
Modified: rt/branches/3.999-DANGEROUS/etc/schema.mysql
==============================================================================
--- rt/branches/3.999-DANGEROUS/etc/schema.mysql (original)
+++ rt/branches/3.999-DANGEROUS/etc/schema.mysql Mon Jan 28 20:28:32 2008
@@ -84,14 +84,14 @@
id INTEGER NOT NULL AUTO_INCREMENT,
name varchar(200) NULL ,
Description varchar(255) NULL ,
- Domain varchar(64),
+ domain varchar(64),
Type varchar(64),
- Instance integer,
+ instance integer,
PRIMARY KEY (id)
) TYPE=InnoDB;
-CREATE INDEX Groups1 ON Groups (Domain,Instance,Type,id);
-CREATE INDEX Groups2 On Groups (Type, Instance);
+CREATE INDEX Groups1 ON Groups (domain,instance,Type,id);
+CREATE INDEX Groups2 On Groups (Type, instance);
# }}}
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Elements/SelectGroups
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Elements/SelectGroups (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Elements/SelectGroups Mon Jan 28 20:28:32 2008
@@ -53,10 +53,10 @@
<%INIT>
my $groups = RT::Model::GroupCollection->new();
-$groups->limit(column => 'Domain', operator => '=', value => $Domain);
+$groups->limit(column => 'domain', operator => '=', value => $domain);
</%INIT>
<%ARGS>
$name => 'groups'
-$Domain => 'UserDefined';
+$domain => 'UserDefined';
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Elements/SelectNewGroupMembers
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Elements/SelectNewGroupMembers (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Elements/SelectNewGroupMembers Mon Jan 28 20:28:32 2008
@@ -87,7 +87,7 @@
# self-recursive group membership considered harmful!
$groups->limit(column => 'id', value => $Group->id, operator => '!=' );
-$groups->limit(column => 'Domain', operator => '=', value => 'UserDefined');
+$groups->limit(column => 'domain', operator => '=', value => 'UserDefined');
</%INIT>
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Queues/People.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Queues/People.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Queues/People.html Mon Jan 28 20:28:32 2008
@@ -190,7 +190,7 @@
}
else {
$Groups = RT::Model::GroupCollection->new();
-$Groups->limit(column => 'Domain', operator => '=', value => 'UserDefined');
+$Groups->limit(column => 'domain', operator => '=', value => 'UserDefined');
$Groups->limit(column => $ARGS{'GroupField'},
value => $ARGS{'GroupString'},
operator => $ARGS{'GroupOp'});
Modified: rt/branches/3.999-DANGEROUS/html/Approvals/Display.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Approvals/Display.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Approvals/Display.html Mon Jan 28 20:28:32 2008
@@ -64,7 +64,7 @@
<%init>
my $Ticket = load_ticket($id);
-my $title = _("Approval #%1: %2", $Ticket->id, $Ticket->Subject);
+my $title = _("Approval #%1: %2", $Ticket->id, $Ticket->subject);
</%init>
<%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Approvals/Elements/Approve
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Approvals/Elements/Approve (original)
+++ rt/branches/3.999-DANGEROUS/html/Approvals/Elements/Approve Mon Jan 28 20:28:32 2008
@@ -47,7 +47,7 @@
%# END BPS TAGGED BLOCK }}}
<div class="approval">
<div class="name">
- <a href="<%RT->config->get('WebPath')%>/Approvals/Display.html?id=<%$ticket->id%>"><% _("#%1: %2", $ticket->id, $ticket->Subject) %></a> (<%loc($ticket->Status)%>)
+ <a href="<%RT->config->get('WebPath')%>/Approvals/Display.html?id=<%$ticket->id%>"><% _("#%1: %2", $ticket->id, $ticket->subject) %></a> (<%loc($ticket->status)%>)
</div>
% if ($ShowApproving) {
% foreach my $approving ( $ticket->all_depended_on_by( Type => 'ticket' ) ) {
Modified: rt/branches/3.999-DANGEROUS/html/Approvals/Elements/ShowDependency
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Approvals/Elements/ShowDependency (original)
+++ rt/branches/3.999-DANGEROUS/html/Approvals/Elements/ShowDependency Mon Jan 28 20:28:32 2008
@@ -62,15 +62,15 @@
my $dep = $m->scomp('ShowDependency', Ticket => $link->base_obj, _seen => $_seen);
if ($type eq 'approval') {
- $head .= $m->scomp('/Widgets/TitleBoxStart', title => _("Approval #%1: %2", $link->base_obj->id, $link->base_obj->Subject));
+ $head .= $m->scomp('/Widgets/TitleBoxStart', title => _("Approval #%1: %2", $link->base_obj->id, $link->base_obj->subject));
$text .= $head;
$text .= $m->scomp('/Ticket/Elements/ShowCustomFields', Ticket => $link->base_obj);
} elsif ($type eq 'ticket') {
- $head .= $m->scomp('/Widgets/TitleBoxStart', title => _("Ticket #%1: %2", $link->base_obj->id, $link->base_obj->Subject));
+ $head .= $m->scomp('/Widgets/TitleBoxStart', title => _("Ticket #%1: %2", $link->base_obj->id, $link->base_obj->subject));
$text .= $head;
$text .= $m->scomp('/Ticket/Elements/ShowSummary', Ticket => $link->base_obj);
} else {
- $head .= $m->scomp('/Widgets/TitleBoxStart', title => _("#%1: %2", $link->base_obj->id, $link->base_obj->Subject));
+ $head .= $m->scomp('/Widgets/TitleBoxStart', title => _("#%1: %2", $link->base_obj->id, $link->base_obj->subject));
$text .= $head;
}
Modified: rt/branches/3.999-DANGEROUS/html/Elements/MyReminders
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/MyReminders (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/MyReminders Mon Jan 28 20:28:32 2008
@@ -54,9 +54,9 @@
% $i++;
% if ($reminder->refers_to->first) {
% my $ticket= $reminder->refers_to->first->target_obj;
-<tr class="<%$i%2 ? 'evenline' : 'oddline'%>"><td><a href="<%RT->config->get('WebPath')%>/Ticket/Display.html?id=<%$ticket->id%>"><%$reminder->Subject%></a><br />
+<tr class="<%$i%2 ? 'evenline' : 'oddline'%>"><td><a href="<%RT->config->get('WebPath')%>/Ticket/Display.html?id=<%$ticket->id%>"><%$reminder->subject%></a><br />
<blockquote>
-#<%$ticket->id%>: <%$ticket->Subject%><br />
+#<%$ticket->id%>: <%$ticket->subject%><br />
<%$reminder->owner_obj->name %> <%$reminder->due_obj->unix >0 ? '• '.$reminder->due_obj->age_as_string : '' |n %>
</blockquote>
</td>
Modified: rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Ticket/ColumnMap
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Ticket/ColumnMap (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/RT__Model__Ticket/ColumnMap Mon Jan 28 20:28:32 2008
@@ -85,9 +85,9 @@
attribute => 'Owner',
value => sub { return $_[0]->owner_obj->name }
},
- Status => {
- attribute => 'Status',
- value => sub { return _($_[0]->Status) }
+ status => {
+ attribute => 'status',
+ value => sub { return _($_[0]->status) }
},
Subject => {
attribute => 'Subject',
@@ -110,7 +110,7 @@
}
}
else {
- return _( $Ticket->Status );
+ return _( $Ticket->status );
}
}
Modified: rt/branches/3.999-DANGEROUS/html/Elements/ShowLink
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/ShowLink (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/ShowLink Mon Jan 28 20:28:32 2008
@@ -49,7 +49,7 @@
% if ($URI->IsLocal) {
% my $member = $URI->object;
% if (UNIVERSAL::isa($member, "RT::Model::Ticket")) {
-<%$member->id%>: (<%$member->owner_obj->name%>) <%$member->Subject%> [<% _($member->Status) %>]
+<%$member->id%>: (<%$member->owner_obj->name%>) <%$member->subject%> [<% _($member->Status) %>]
% } elsif ( UNIVERSAL::can($member, 'name')) {
<%$URI->resolver->AsString%>: <%$member->name%>
% } else {
Modified: rt/branches/3.999-DANGEROUS/html/Elements/ShowMemberships
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/ShowMemberships (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/ShowMemberships Mon Jan 28 20:28:32 2008
@@ -49,9 +49,9 @@
% while ( my $GroupMember = $GroupMembers->next ) {
% my $Group = RT::Model::Group->new();
% $Group->load($GroupMember->GroupId) or next;
-% if ($Group->Domain eq 'UserDefined') {
+% if ($Group->domain eq 'UserDefined') {
<li><a href="<%RT->config->get('WebPath')%>/Admin/Groups/Modify.html?id=<% $Group->id %>"><% $Group->name %></a></li>
-% } elsif ($Group->Domain eq 'SystemInternal') {
+% } elsif ($Group->domain eq 'SystemInternal') {
<li><em><% _($Group->Type) %></em></li>
% }
% }
@@ -68,18 +68,18 @@
);
$GroupMembers->limit(
alias => $alias,
- column => 'Domain',
+ column => 'domain',
operator => '=',
value => 'SystemInternal',
);
$GroupMembers->limit(
alias => $alias,
- column => 'Domain',
+ column => 'domain',
operator => '=',
value => 'UserDefined',
);
$GroupMembers->order_by(
- { alias => $alias, column => 'Domain' },
+ { alias => $alias, column => 'domain' },
{ alias => $alias, column => 'name' },
);
</%INIT>
Modified: rt/branches/3.999-DANGEROUS/html/REST/1.0/NoAuth/mail-gateway
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/REST/1.0/NoAuth/mail-gateway (original)
+++ rt/branches/3.999-DANGEROUS/html/REST/1.0/NoAuth/mail-gateway Mon Jan 28 20:28:32 2008
@@ -67,7 +67,7 @@
$m->out( 'Ticket: ' . ($Ticket->id || '') );
$m->out( 'Queue: ' . ($Ticket->queue_obj->name || '') );
$m->out( 'Owner: ' . ($Ticket->owner_obj->name || '') );
- $m->out( 'Status: ' . ($Ticket->Status || '') );
+ $m->out( 'Status: ' . ($Ticket->status || '') );
$m->out( 'Subject: ' . ($Ticket->subject || '') );
$m->out(
'Requestor: ' . ($Ticket->requestors->member_emails_as_string || '') );
Modified: rt/branches/3.999-DANGEROUS/html/Search/Elements/SelectGroup
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Elements/SelectGroup (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Elements/SelectGroup Mon Jan 28 20:28:32 2008
@@ -56,12 +56,12 @@
<%INIT>
my $groups = RT::Model::GroupCollection->new();
-$groups->limit(column => 'Domain', operator => '=', value => $Domain);
+$groups->limit(column => 'domain', operator => '=', value => $domain);
</%INIT>
<%ARGS>
$AllowNull => 1
$Default=> ''
$name => 'Group'
-$Domain => 'UserDefined';
+$domain => 'UserDefined';
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/SelfService/Display.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/SelfService/Display.html (original)
+++ rt/branches/3.999-DANGEROUS/html/SelfService/Display.html Mon Jan 28 20:28:32 2008
@@ -45,7 +45,7 @@
%# those contributions and any derivatives thereof.
%#
%# END BPS TAGGED BLOCK }}}
-<& /SelfService/Elements/Header, Title => _('#%1: %2', $Ticket->id, $Ticket->Subject) &>
+<& /SelfService/Elements/Header, Title => _('#%1: %2', $Ticket->id, $Ticket->subject) &>
<& /Elements/ListActions, actions => \@results &>
@@ -167,7 +167,7 @@
#Update the status
if ( ( defined $ARGS{'Status'} )
and $ARGS{'Status'}
- and ( $ARGS{'Status'} ne $Ticket->Status ) )
+ and ( $ARGS{'Status'} ne $Ticket->status ) )
{
( $code, $msg ) = $Ticket->set_status( $ARGS{'Status'} );
push @results, "$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 Mon Jan 28 20:28:32 2008
@@ -46,11 +46,11 @@
%#
%# END BPS TAGGED BLOCK }}}
<& /Elements/Header,
- Title => _("#%1: %2", $ticket_obj->id, $ticket_obj->Subject) &>
+ Title => _("#%1: %2", $ticket_obj->id, $ticket_obj->subject) &>
<& /Ticket/Elements/Tabs,
Ticket => $ticket_obj,
current_tab => 'Ticket/Display.html?id='.$ticket_obj->id,
- Title => _("#%1: %2", $ticket_obj->id, $ticket_obj->Subject) &>
+ Title => _("#%1: %2", $ticket_obj->id, $ticket_obj->subject) &>
% $m->callback(Callbackname => 'BeforeActionList', %ARGS, Actions => \@Actions, ARGSRef => \%ARGS, Ticket => $ticket_obj);
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/AddWatchers
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/AddWatchers (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/AddWatchers Mon Jan 28 20:28:32 2008
@@ -103,7 +103,7 @@
if ($GroupString) {
$Groups = RT::Model::GroupCollection->new();
- $Groups->limit(column => 'Domain', operator => '=', value => 'UserDefined');
+ $Groups->limit(column => 'domain', operator => '=', value => 'UserDefined');
$Groups->limit(column => $GroupField, value => $GroupString, operator => $GroupOp);
}
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/EditBasics
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/EditBasics (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/EditBasics Mon Jan 28 20:28:32 2008
@@ -48,7 +48,7 @@
<table>
<tr>
<td class="label"><&|/l&>Subject</&>:</td>
- <td class="value"><input name="Subject" value="<%$ticket_obj->Subject|h%>" size="50" /></td>
+ <td class="value"><input name="Subject" value="<%$ticket_obj->subject|h%>" size="50" /></td>
</tr>
<tr>
@@ -112,7 +112,7 @@
<%INIT>
#It's hard to do this inline, so we'll preload the html of the selectstatus in here.
-my $SelectStatus = $m->scomp("/Elements/SelectStatus", name => 'Status', DefaultLabel => _("%1 (Unchanged)",loc($ticket_obj->Status)));
+my $SelectStatus = $m->scomp("/Elements/SelectStatus", name => 'Status', DefaultLabel => _("%1 (Unchanged)",loc($ticket_obj->status)));
my $SelectQueue = $m->scomp("/Elements/SelectQueue", name => 'Queue', Default =>$ticket_obj->queue_obj->id);
</%INIT>
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Reminders
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Reminders (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Reminders Mon Jan 28 20:28:32 2008
@@ -147,7 +147,7 @@
name="Complete-Reminder-<%$Reminder->id%>"
<% $Reminder->Status eq 'resolved' ? 'CHECKED' : '' %>
/>
- <input type="text" size="15" name="Reminder-Subject-<% $Reminder->id %>" value="<%$Reminder->Subject%>" /> •
+ <input type="text" size="15" name="Reminder-Subject-<% $Reminder->id %>" value="<%$Reminder->subject%>" /> •
<& /Elements/SelectOwner, name => 'Reminder-Owner-'.$Reminder->id, Queue => $Ticket->queue_obj, Default => $Reminder->Owner, DefaultValue => 0 &>
<& /Elements/SelectDate, name => 'Reminder-Due-'.$Reminder->id, Default => $Reminder->due_obj->date &>
(<%$Reminder->due_obj->Unix>0 ? $Reminder->due_obj->age_as_string : '' %>)<br />
@@ -162,7 +162,7 @@
name="Complete-Reminder-<%$Reminder->id%>"
<% $Reminder->Status eq 'resolved' ? 'CHECKED' : '' %>
/>
- <%$Reminder->Subject%> •
+ <%$Reminder->subject%> •
<%$Reminder->owner_obj->name%>
<%$Reminder->due_obj->Unix>0 ? "• ". $Reminder->due_obj->age_as_string : '' |n%><br />
</%method>
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowBasics
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowBasics (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowBasics Mon Jan 28 20:28:32 2008
@@ -52,7 +52,7 @@
</tr>
<tr>
<td class="label status"><&|/l&>Status</&>:</td>
- <td class="value status"><&|/l&><% $Ticket->Status%></&></td>
+ <td class="value status"><&|/l&><% $Ticket->status%></&></td>
</tr>
% if ($Ticket->time_estimated) {
<tr>
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowDependencies
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowDependencies (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowDependencies Mon Jan 28 20:28:32 2008
@@ -48,14 +48,14 @@
<&|/l&>Depends on</&>:<br />
% while (my $Link = $Ticket->depends_on->next) {
% my $member = $Link->target_obj;
-<a href="<%RT->config->get('WebPath')%>/Ticket/Display.html?id=<%$member->id%>"><%$member->id%></a>: (<%$member->owner_obj->name%>) <%$member->Subject%>
+<a href="<%RT->config->get('WebPath')%>/Ticket/Display.html?id=<%$member->id%>"><%$member->id%></a>: (<%$member->owner_obj->name%>) <%$member->subject%>
[<%$member->Status%>]
<br />
% }
<&|/l&>Depended on by</&>:<br />
% while (my $Link = $Ticket->depended_on_by->next) {
% my $member = $Link->target_obj;
-<a href="<%RT->config->get('WebPath')%>/Ticket/Display.html?id=<%$member->id%>"><%$member->id%></a>: (<%$member->owner_obj->name%>) <%$member->Subject%>
+<a href="<%RT->config->get('WebPath')%>/Ticket/Display.html?id=<%$member->id%>"><%$member->id%></a>: (<%$member->owner_obj->name%>) <%$member->subject%>
[<%$member->Status%>]
<br />
% }
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowRequestor
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowRequestor (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowRequestor Mon Jan 28 20:28:32 2008
@@ -73,7 +73,7 @@
<&|/l, $rows &>This user's %1 highest priority tickets</&>:<br />
<ul>
%while (my $w=$tickets->next) {
-<li><a href="<%RT->config->get('WebPath')%><%$DisplayPath%>?id=<%$w->id%>"><%$w->id%>: <%$w->Subject%></a> (<%$w->Status%>)
+<li><a href="<%RT->config->get('WebPath')%><%$DisplayPath%>?id=<%$w->id%>"><%$w->id%>: <%$w->subject%></a> (<%$w->Status%>)
%}
</ul>
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Tabs
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Tabs (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Tabs Mon Jan 28 20:28:32 2008
@@ -152,12 +152,12 @@
}
if ( $can{'ModifyTicket'} ) {
- if ( $Ticket->Status ne 'resolved' ) {
+ if ( $Ticket->status ne 'resolved' ) {
$actions->{'G'} = {
path => "Ticket/Update.html?Action=comment&DefaultStatus=resolved&id=" . $id,
title => _('Resolve') };
}
- if ( $Ticket->Status ne 'open' ) {
+ if ( $Ticket->status ne 'open' ) {
$actions->{'A'} = { path => "Ticket/Display.html?Status=open&id=" . $id,
title => _('Open it') };
}
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/History.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/History.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/History.html Mon Jan 28 20:28:32 2008
@@ -45,10 +45,10 @@
%# those contributions and any derivatives thereof.
%#
%# END BPS TAGGED BLOCK }}}
-<& /Elements/Header, Title => _("Ticket History # %1 %2", $Ticket->id, $Ticket->Subject) &>
+<& /Elements/Header, Title => _("Ticket History # %1 %2", $Ticket->id, $Ticket->subject) &>
<& /Ticket/Elements/Tabs,
Ticket => $Ticket, current_tab => 'Ticket/History.html?id='.$Ticket->id,
- Title => _("Ticket History # %1 %2", $Ticket->id, $Ticket->Subject) &>
+ Title => _("Ticket History # %1 %2", $Ticket->id, $Ticket->subject) &>
% $m->callback(Callbackname => 'BeforeActionList', ARGSRef => \%ARGS, Ticket => $Ticket);
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html Mon Jan 28 20:28:32 2008
@@ -45,11 +45,11 @@
%# those contributions and any derivatives thereof.
%#
%# END BPS TAGGED BLOCK }}}
-<& /Elements/Header, Title => _("Ticket #%1 Jumbo update: %2", $Ticket->id, $Ticket->Subject) &>
+<& /Elements/Header, Title => _("Ticket #%1 Jumbo update: %2", $Ticket->id, $Ticket->subject) &>
<& /Ticket/Elements/Tabs,
Ticket => $Ticket,
current_tab => "Ticket/ModifyAll.html?id=".$Ticket->id,
- Title => _("Ticket #%1 Jumbo update: %2", $Ticket->id, $Ticket->Subject) &>
+ Title => _("Ticket #%1 Jumbo update: %2", $Ticket->id, $Ticket->subject) &>
% $m->callback(Callbackname => 'BeforeActionList', Actions => \@results, ARGSRef => \%ARGS, Ticket => $Ticket);
<& /Elements/ListActions, actions => \@results &>
@@ -101,7 +101,7 @@
</tr>
<tr>
<td class="label"><&|/l&>Subject</&>:</td>
- <td class="entry"><input name="UpdateSubject" size="60" value="<%$Ticket->Subject%>" /></td>
+ <td class="entry"><input name="UpdateSubject" size="60" value="<%$Ticket->subject%>" /></td>
</tr>
% if (my $TxnCFs = $Ticket->TransactionCustomFields) {
% while (my $CF = $TxnCFs->next()) {
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Update.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Update.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Update.html Mon Jan 28 20:28:32 2008
@@ -66,7 +66,7 @@
<tr><td align="right"><&|/l&>Status</&>:</td>
<td>
-<& /Elements/SelectStatus, name=>"Status", DefaultLabel => _("%1 (Unchanged)", loc($ticket_obj->Status)), Default => $ARGS{'Status'} || ($ticket_obj->Status eq $DefaultStatus ? undef : $DefaultStatus)&>
+<& /Elements/SelectStatus, name=>"Status", DefaultLabel => _("%1 (Unchanged)", loc($ticket_obj->status)), Default => $ARGS{'Status'} || ($ticket_obj->status eq $DefaultStatus ? undef : $DefaultStatus)&>
<&|/l&>Owner</&>:
<& /Elements/SelectOwner,
name => "Owner",
@@ -164,7 +164,7 @@
$m->callback( Ticket => $ticket_obj, ARGSRef => \%ARGS, Callbackname => 'Initial' );
unless($DefaultStatus){
- $DefaultStatus=($ARGS{'Status'} ||$ticket_obj->Status());
+ $DefaultStatus=($ARGS{'Status'} ||$ticket_obj->status());
}
if ($DefaultStatus =~ '^new$'){
@@ -172,9 +172,9 @@
}
if ($DefaultStatus eq 'resolved') {
- $title = _("Resolve ticket #%1 (%2)", $ticket_obj->id, $ticket_obj->Subject);
+ $title = _("Resolve ticket #%1 (%2)", $ticket_obj->id, $ticket_obj->subject);
} else {
- $title = _("Update ticket #%1 (%2)", $ticket_obj->id, $ticket_obj->Subject);
+ $title = _("Update ticket #%1 (%2)", $ticket_obj->id, $ticket_obj->subject);
}
# Things needed in the template - we'll do the processing here, just
Modified: rt/branches/3.999-DANGEROUS/html/Tools/MyDay.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Tools/MyDay.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Tools/MyDay.html Mon Jan 28 20:28:32 2008
@@ -61,14 +61,14 @@
% }
<tr <%$class|n%>><td colspan="2"><h2><a
href="<%RT->config->get('WebPath')%>/Ticket/Display.html?id=<%$Ticket->id%>"><%$Ticket->id%>:
-<%$Ticket->Subject%></a></h2></td></tr>
+<%$Ticket->subject%></a></h2></td></tr>
<tr <%$class|n%>><td><span class="label"><&|/l&>Worked</&>:</span><input size="3" name="UpdateTimeWorked-<%$Ticket->id%>" /> <&|/l&>minutes</&>
</td>
<td rowspan="2"><span class="label"><&|/l&>Comments</&>:<br /></span><textarea name="UpdateContent-<%$Ticket->id%>" rows="5"
cols="60"></textarea></td></tr>
<tr <%$class|n%>>
<td><span class="label"><&|/l&>Status</&>:</span> <& /Elements/SelectStatus, name=> 'UpdateStatus-'.$Ticket->id,
- DefaultLabel => _("%1 (Unchanged)",_($Ticket->Status())) &></td>
+ DefaultLabel => _("%1 (Unchanged)",_($Ticket->status())) &></td>
</tr>
% }
@@ -98,7 +98,7 @@
}
if ( my $status = $ARGS{ 'UpdateStatus-' . $id } ) {
- if ( $status ne $ticket->Status ) {
+ if ( $status ne $ticket->status ) {
my ( $val, $msg ) = $ticket->set_status($status);
push @results, _( "Ticket %1: %2", $id, $msg );
Modified: rt/branches/3.999-DANGEROUS/lib/RT/EmailParser.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/EmailParser.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/EmailParser.pm Mon Jan 28 20:28:32 2008
@@ -412,10 +412,10 @@
return undef;
}
-=head2 CullRTAddresses ARRAY
+=head2 cull_rt_addresses ARRAY
Takes a single argument, an array of email addresses.
-Returns the same array with any IsRTAddress()es weeded out.
+Returns the same array with any is_rt_address()es weeded out.
=cut
Modified: rt/branches/3.999-DANGEROUS/lib/RT/I18N.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/I18N.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/I18N.pm Mon Jan 28 20:28:32 2008
@@ -162,7 +162,7 @@
set_mime_entity_to_encoding( $_, $enc, $preserve_words )
foreach $entity->parts;
- my $charset = _FindOrGuessCharset($entity) or return;
+ my $charset = _find_or_guess_charset($entity) or return;
# one and only normalization
$charset = 'utf-8' if $charset =~ /^utf-?8$/i;
@@ -170,7 +170,7 @@
set_mime_ehead_to_encoding(
$entity->head,
- _FindOrGuessCharset( $entity, 1 ) => $enc,
+ _find_or_guess_charset( $entity, 1 ) => $enc,
$preserve_words
);
@@ -333,9 +333,9 @@
# }}}
-# {{{ _FindOrGuessCharset
+# {{{ _find_or_guess_charset
-=head2 _FindOrGuessCharset MIME::Entity, $head_only
+=head2 _find_or_guess_charset MIME::Entity, $head_only
When handed a MIME::Entity will first attempt to read what charset the message is encoded in. Failing that, will use Encode::Guess to try to figure it out
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm Mon Jan 28 20:28:32 2008
@@ -190,7 +190,7 @@
return ( $ReturnPath =~ /<>/ );
}
-=head2 IsRTAddress ADDRESS
+=head2 is_rt_address ADDRESS
Takes a single parameter, an email address.
Returns true if that address matches the C<RTAddressRegexp> config option.
@@ -210,15 +210,15 @@
return undef;
}
-=head2 CullRTAddresses ARRAY
+=head2 cull_rt_addresses ARRAY
Takes a single argument, an array of email addresses.
-Returns the same array with any IsRTAddress()es weeded out.
+Returns the same array with any is_rt_address()es weeded out.
=cut
sub cull_rt_addresses {
- return grep !IsRTAddress($_), @_;
+ return grep !is_rt_address($_), @_;
}
=head2 MailError PARAM HASH
@@ -687,7 +687,7 @@
} else {
# XXX: what if want to forward txn of other object than ticket?
- $subject = AddSubjectTag( $subject, $txn->object_id );
+ $subject = add_subject_tag( $subject, $txn->object_id );
$from = $txn->object->queue_obj->correspond_address
|| RT->config->get('correspond_address');
}
@@ -871,7 +871,7 @@
Takes a hash containing queue_obj, Head and CurrentUser objects.
Returns a list of all email addresses in the To and Cc
headers b<except> the current Queue\'s email addresses, the CurrentUser\'s
-email address and anything that the configuration sub RT::IsRTAddress matches.
+email address and anything that the configuration sub RT::is_rt_address matches.
=cut
@@ -894,7 +894,7 @@
next if lc $args{'CurrentUser'}->email eq $address;
next if lc $args{'queue_obj'}->correspond_address eq $address;
next if lc $args{'queue_obj'}->comment_address eq $address;
- next if IsRTAddress($address);
+ next if is_rt_address($address);
push @res, $address;
}
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm Mon Jan 28 20:28:32 2008
@@ -531,7 +531,7 @@
);
$Message->head->add(
- 'Message-ID' => RT::Interface::Email::GenMessageId(
+ 'Message-ID' => RT::Interface::Email::gen_message_id(
Ticket => $args{'ticket_obj'},
)
);
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm Mon Jan 28 20:28:32 2008
@@ -26,10 +26,10 @@
use Jifty::DBI::Record schema {
column name => type is 'varchar(200)';
- column Description => type is 'text';
- column Domain => type is 'varchar(64)';
- column Type => type is 'varchar(64)';
- column Instance => type is 'integer';
+ column description => type is 'text';
+ column domain => type is 'varchar(64)';
+ column type => type is 'varchar(64)';
+ column instance => type is 'integer';
};
@@ -87,27 +87,27 @@
sub self_description {
my $self = shift;
- if ( $self->Domain eq 'ACLEquivalence' ) {
+ if ( $self->domain eq 'ACLEquivalence' ) {
my $user = RT::Model::Principal->new;
- $user->load( $self->Instance );
+ $user->load( $self->instance );
return _( "user %1", $user->object->name );
- } elsif ( $self->Domain eq 'UserDefined' ) {
+ } elsif ( $self->domain eq 'UserDefined' ) {
return _( "group '%1'", $self->name );
- } elsif ( $self->Domain eq 'Personal' ) {
+ } elsif ( $self->domain eq 'Personal' ) {
my $user = RT::Model::User->new;
- $user->load( $self->Instance );
+ $user->load( $self->instance );
return _( "personal group '%1' for user '%2'", $self->name,
$user->name );
- } elsif ( $self->Domain eq 'RT::System-Role' ) {
- return _( "system %1", $self->Type );
- } elsif ( $self->Domain eq 'RT::Model::Queue-Role' ) {
+ } elsif ( $self->domain eq 'RT::System-Role' ) {
+ return _( "system %1", $self->type );
+ } elsif ( $self->domain eq 'RT::Model::Queue-Role' ) {
my $queue = RT::Model::Queue->new;
- $queue->load( $self->Instance );
- return _( "queue %1 %2", $queue->name, $self->Type );
- } elsif ( $self->Domain eq 'RT::Model::Ticket-Role' ) {
- return _( "ticket #%1 %2", $self->Instance, $self->Type );
- } elsif ( $self->Domain eq 'SystemInternal' ) {
- return _( "system group '%1'", $self->Type );
+ $queue->load( $self->instance );
+ return _( "queue %1 %2", $queue->name, $self->type );
+ } elsif ( $self->domain eq 'RT::Model::Ticket-Role' ) {
+ return _( "ticket #%1 %2", $self->instance, $self->type );
+ } elsif ( $self->domain eq 'SystemInternal' ) {
+ return _( "system group '%1'", $self->type );
} else {
return _( "undescribed group %1", $self->id );
}
@@ -156,12 +156,12 @@
if ( $identifier =~ /^\d+$/ ) {
return $self->load_by_cols(
- Domain => 'UserDefined',
+ domain => 'UserDefined',
id => $identifier,
);
} else {
return $self->load_by_cols(
- Domain => 'UserDefined',
+ domain => 'UserDefined',
name => $identifier,
);
}
@@ -189,9 +189,9 @@
my $princ = shift;
$self->load_by_cols(
- "Domain" => 'ACLEquivalence',
- "Type" => 'UserEquiv',
- "Instance" => $princ->id
+ "domain" => 'ACLEquivalence',
+ "type" => 'UserEquiv',
+ "instance" => $princ->id
);
}
@@ -214,9 +214,9 @@
);
$self->load_by_cols(
- "Domain" => 'Personal',
- "Instance" => $args{'User'},
- "Type" => '',
+ "domain" => 'Personal',
+ "instance" => $args{'User'},
+ "type" => '',
"name" => $args{'name'}
);
}
@@ -238,8 +238,8 @@
my $identifier = shift;
$self->load_by_cols(
- "Domain" => 'SystemInternal',
- "Type" => $identifier
+ "domain" => 'SystemInternal',
+ "type" => $identifier
);
}
@@ -247,14 +247,14 @@
# {{{ sub load_ticket_role_group
-=head2 load_ticketRoleGroup { Ticket => TICKET_ID, Type => TYPE }
+=head2 load_ticketRoleGroup { Ticket => TICKET_ID, type => TYPE }
Loads a ticket group from the database.
Takes a param hash with 2 parameters:
Ticket is the TicketId we're curious about
- Type is the type of Group we're trying to load:
+ type is the type of Group we're trying to load:
Requestor, Cc, AdminCc, Owner
=cut
@@ -263,13 +263,13 @@
my $self = shift;
my %args = (
Ticket => '0',
- Type => undef,
+ type => undef,
@_
);
$self->load_by_cols(
- Domain => 'RT::Model::Ticket-Role',
- Instance => $args{'Ticket'},
- Type => $args{'Type'}
+ domain => 'RT::Model::Ticket-Role',
+ instance => $args{'Ticket'},
+ type => $args{'type'}
);
}
@@ -277,14 +277,14 @@
# {{{ sub loadQueueRoleGroup
-=head2 LoadQueueRoleGroup { Queue => Queue_ID, Type => TYPE }
+=head2 LoadQueueRoleGroup { Queue => Queue_ID, type => TYPE }
Loads a Queue group from the database.
Takes a param hash with 2 parameters:
Queue is the QueueId we're curious about
- Type is the type of Group we're trying to load:
+ type is the type of Group we're trying to load:
Requestor, Cc, AdminCc, Owner
=cut
@@ -293,13 +293,13 @@
my $self = shift;
my %args = (
Queue => undef,
- Type => undef,
+ type => undef,
@_
);
$self->load_by_cols(
- Domain => 'RT::Model::Queue-Role',
- Instance => $args{'Queue'},
- Type => $args{'Type'}
+ domain => 'RT::Model::Queue-Role',
+ instance => $args{'Queue'},
+ type => $args{'type'}
);
}
@@ -307,13 +307,13 @@
# {{{ sub loadSystemRoleGroup
-=head2 LoadSystemRoleGroup Type
+=head2 LoadSystemRoleGroup type
Loads a System group from the database.
-Takes a single param: Type
+Takes a single param: type
- Type is the type of Group we're trying to load:
+ type is the type of Group we're trying to load:
Requestor, Cc, AdminCc, Owner
=cut
@@ -322,8 +322,8 @@
my $self = shift;
my $type = shift;
$self->load_by_cols(
- Domain => 'RT::System-Role',
- Type => $type
+ domain => 'RT::System-Role',
+ type => $type
);
}
@@ -352,7 +352,7 @@
=head2 _create
-Takes a paramhash with named arguments: name, Description.
+Takes a paramhash with named arguments: name, description.
Returns a tuple of (Id, Message). If id is 0, the create failed
@@ -362,10 +362,10 @@
my $self = shift;
my %args = (
name => undef,
- Description => undef,
- Domain => undef,
- Type => undef,
- Instance => '0',
+ description => undef,
+ domain => undef,
+ type => undef,
+ instance => '0',
InsideTransaction => undef,
_record_transaction => 1,
@_
@@ -384,10 +384,10 @@
$self->SUPER::create(
id => $principal_id,
name => $args{'name'},
- Description => $args{'Description'},
- Type => $args{'Type'},
- Domain => $args{'Domain'},
- Instance => ( $args{'Instance'} || '0' )
+ description => $args{'description'},
+ type => $args{'type'},
+ domain => $args{'domain'},
+ instance => ( $args{'instance'} || '0' )
);
my $id = $self->id;
unless ($id) {
@@ -418,7 +418,7 @@
);
if ( $args{'_record_transaction'} ) {
- $self->_new_transaction( Type => "Create" );
+ $self->_new_transaction( type => "Create" );
}
Jifty->handle->commit() unless ( $args{'InsideTransaction'} );
@@ -430,7 +430,7 @@
# {{{ create_userDefinedGroup
-=head2 create_userDefinedGroup { name => "name", Description => "Description"}
+=head2 create_userDefinedGroup { name => "name", description => "description"}
A helper subroutine which creates a system group
@@ -449,9 +449,9 @@
return (
$self->_create(
- Domain => 'UserDefined',
- Type => '',
- Instance => '',
+ domain => 'UserDefined',
+ type => '',
+ instance => '',
@_
)
);
@@ -475,11 +475,11 @@
my $self = shift;
my $princ = shift;
my ( $id, $msg ) = $self->_create(
- Domain => 'ACLEquivalence',
- Type => 'UserEquiv',
+ domain => 'ACLEquivalence',
+ type => 'UserEquiv',
name => 'User ' . $princ->object->id,
- Description => 'ACL equiv. for user ' . $princ->object->id,
- Instance => $princ->id,
+ description => 'ACL equiv. for user ' . $princ->object->id,
+ instance => $princ->id,
InsideTransaction => 1
);
@@ -512,7 +512,7 @@
# {{{ CreatePersonalGroup
-=head2 CreatePersonalGroup { principal_id => PRINCIPAL_ID, name => "name", Description => "Description"}
+=head2 CreatePersonalGroup { principal_id => PRINCIPAL_ID, name => "name", description => "description"}
A helper subroutine which creates a personal group. Generally,
personal groups are used for ACL delegation and adding to ticket roles
@@ -526,7 +526,7 @@
my $self = shift;
my %args = (
name => undef,
- Description => undef,
+ description => undef,
principal_id => $self->current_user->id,
@_
);
@@ -549,11 +549,11 @@
return (
$self->_create(
- Domain => 'Personal',
- Type => '',
- Instance => $args{'principal_id'},
+ domain => 'Personal',
+ type => '',
+ instance => $args{'principal_id'},
name => $args{'name'},
- Description => $args{'Description'}
+ description => $args{'description'}
)
);
}
@@ -562,12 +562,12 @@
# {{{ CreateRoleGroup
-=head2 CreateRoleGroup { Domain => DOMAIN, Type => TYPE, Instance => ID }
+=head2 CreateRoleGroup { domain => DOMAIN, type => TYPE, instance => ID }
A helper subroutine which creates a ticket group. (What RT 2.0 called Ticket watchers)
-Type is one of ( "Requestor" || "Cc" || "AdminCc" || "Owner")
-Domain is one of (RT::Model::Ticket-Role || RT::Model::Queue-Role || RT::System-Role)
-Instance is the id of the ticket or queue in question
+type is one of ( "Requestor" || "Cc" || "AdminCc" || "Owner")
+domain is one of (RT::Model::Ticket-Role || RT::Model::Queue-Role || RT::System-Role)
+instance is the id of the ticket or queue in question
This routine expects to be called from {Ticket||Queue}->createTicket_groups _inside of a transaction_
@@ -578,20 +578,20 @@
sub create_role_group {
my $self = shift;
my %args = (
- Instance => undef,
- Type => undef,
- Domain => undef,
+ instance => undef,
+ type => undef,
+ domain => undef,
@_
);
- unless ( $args{'Type'} =~ /^(?:Cc|AdminCc|Requestor|Owner)$/ ) {
- return ( 0, _("Invalid Group Type") );
+ unless ( $args{'type'} =~ /^(?:Cc|AdminCc|Requestor|Owner)$/ ) {
+ return ( 0, _("Invalid Group type") );
}
return (
$self->_create(
- Domain => $args{'Domain'},
- Instance => $args{'Instance'},
- Type => $args{'Type'},
+ domain => $args{'domain'},
+ instance => $args{'instance'},
+ type => $args{'type'},
InsideTransaction => 1
)
);
@@ -645,8 +645,8 @@
sub set_disabled {
my $self = shift;
my $val = shift;
- if ( $self->Domain eq 'Personal' ) {
- if ( $self->current_user->id == $self->Instance ) {
+ if ( $self->domain eq 'Personal' ) {
+ if ( $self->current_user->id == $self->instance ) {
unless ( $self->current_user_has_right('AdminOwnPersonalGroups') )
{
return ( 0, _('Permission Denied') );
@@ -894,8 +894,8 @@
my $self = shift;
my $new_member = shift;
- if ( $self->Domain eq 'Personal' ) {
- if ( $self->current_user->id == $self->Instance ) {
+ if ( $self->domain eq 'Personal' ) {
+ if ( $self->current_user->id == $self->instance ) {
unless ( $self->current_user_has_right('AdminOwnPersonalGroups') )
{
return ( 0, _('Permission Denied') );
@@ -1104,8 +1104,8 @@
# to modify group membership or the user is the principal in question
# and the user has the right to modify his own membership
- if ( $self->Domain eq 'Personal' ) {
- if ( $self->current_user->id == $self->Instance ) {
+ if ( $self->domain eq 'Personal' ) {
+ if ( $self->current_user->id == $self->instance ) {
unless ( $self->current_user_has_right('AdminOwnPersonalGroups') )
{
return ( 0, _('Permission Denied') );
@@ -1238,8 +1238,8 @@
@_
);
- if ( $self->Domain eq 'Personal' ) {
- if ( $self->current_user->id == $self->Instance ) {
+ if ( $self->domain eq 'Personal' ) {
+ if ( $self->current_user->id == $self->instance ) {
unless ( $self->current_user_has_right('AdminOwnPersonalGroups') )
{
return ( 0, _('Permission Denied') );
@@ -1270,7 +1270,7 @@
if ( $args{'record_transaction'} == 1 ) {
my ( $Trans, $Msg, $TransObj ) = $self->_new_transaction(
- Type => $args{'TransactionType'},
+ type => $args{'TransactionType'},
Field => $args{'Field'},
new_value => $args{'Value'},
old_value => $Old,
@@ -1366,7 +1366,7 @@
# }}}
sub basic_columns {
- ( [ name => 'name' ], [ Description => 'Description' ], );
+ ( [ name => 'name' ], [ description => 'description' ], );
}
1;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupCollection.pm Mon Jan 28 20:28:32 2008
@@ -143,13 +143,13 @@
sub limit_to_system_internal_groups {
my $self = shift;
$self->limit(
- column => 'Domain',
+ column => 'domain',
operator => '=',
value => 'SystemInternal'
);
# All system internal groups have the same instance. No reason to limit down further
-#$self->limit(column => 'Instance', operator => '=', value => '0');
+#$self->limit(column => 'instance', operator => '=', value => '0');
}
# }}}
@@ -165,13 +165,13 @@
sub limit_to_user_defined_groups {
my $self = shift;
$self->limit(
- column => 'Domain',
+ column => 'domain',
operator => '=',
value => 'UserDefined'
);
# All user-defined groups have the same instance. No reason to limit down further
-#$self->limit(column => 'Instance', operator => '=', value => '');
+#$self->limit(column => 'instance', operator => '=', value => '');
}
# }}}
@@ -189,9 +189,9 @@
my $self = shift;
my $princ = shift;
- $self->limit( column => 'Domain', operator => '=', value => 'Personal' );
+ $self->limit( column => 'domain', operator => '=', value => 'Personal' );
$self->limit(
- column => 'Instance',
+ column => 'instance',
operator => '=',
value => $princ
);
@@ -211,11 +211,11 @@
my $self = shift;
my $queue = shift;
$self->limit(
- column => 'Domain',
+ column => 'domain',
operator => '=',
value => 'RT::Model::Queue-Role'
);
- $self->limit( column => 'Instance', operator => '=', value => $queue );
+ $self->limit( column => 'instance', operator => '=', value => $queue );
}
# }}}
@@ -232,11 +232,11 @@
my $self = shift;
my $Ticket = shift;
$self->limit(
- column => 'Domain',
+ column => 'domain',
operator => '=',
value => 'RT::Model::Ticket-Role'
);
- $self->limit( column => 'Instance', operator => '=', value => '$Ticket' );
+ $self->limit( column => 'instance', operator => '=', value => '$Ticket' );
}
# }}}
@@ -252,7 +252,7 @@
sub limit_to_roles_for_system {
my $self = shift;
$self->limit(
- column => 'Domain',
+ column => 'domain',
operator => '=',
value => 'RT::System-Role'
);
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Principal.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Principal.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Principal.pm Mon Jan 28 20:28:32 2008
@@ -494,7 +494,7 @@
. "AND Principals.id = CachedGroupMembers.GroupId "
. "AND CachedGroupMembers.MemberId = "
. $self->id . " "
- . "AND ACL.principal_type = Groups.Type ";
+ . "AND ACL.principal_type = Groups.type ";
my (@object_clauses);
foreach my $obj ( @{ $args{'equiv_objects'} } ) {
@@ -520,12 +520,12 @@
if ref($obj) && UNIVERSAL::can( $obj, 'id' ) && $obj->id;
my $tmp = $query;
- $tmp .= " AND Groups.Domain = '$type-Role'";
+ $tmp .= " AND Groups.domain = '$type-Role'";
- # XXX: Groups.Instance is VARCHAR in DB, we should quote value
+ # XXX: Groups.instance is VARCHAR in DB, we should quote value
# if we want mysql 4.0 use indexes here. we MUST convert that
# field to integer and drop this quotes.
- $tmp .= " AND Groups.Instance = '$id'" if $id;
+ $tmp .= " AND Groups.instance = '$id'" if $id;
$self->_handle->apply_limits( \$tmp, 1 );
my ($hit) = $self->_handle->fetch_result($tmp);
@@ -572,7 +572,7 @@
my $self = shift;
my $type;
if ( $self->principal_type eq 'Group'
- && $self->object->Domain =~ /Role$/ )
+ && $self->object->domain =~ /Role$/ )
{
$type = $self->object->type;
} else {
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 Mon Jan 28 20:28:32 2008
@@ -655,9 +655,9 @@
foreach my $type (@types) {
my $type_obj = RT::Model::Group->new;
my ( $id, $msg ) = $type_obj->create_role_group(
- Instance => $self->id,
- Type => $type,
- Domain => 'RT::Model::Queue-Role'
+ instance => $self->id,
+ type => $type,
+ domain => 'RT::Model::Queue-Role'
);
unless ($id) {
Jifty->log->error(
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 Mon Jan 28 20:28:32 2008
@@ -86,7 +86,7 @@
column Resolution => max_length is 11, type is 'int(11)', default is '0';
column Owner => max_length is 11, type is 'int(11)', default is '0';
column
- Subject => max_length is 200,
+ subject => max_length is 200,
type is 'varchar(200)', default is '';
column
initial_priority => max_length is 11,
@@ -99,7 +99,7 @@
time_estimated => max_length is 11,
type is 'int(11)', default is '0';
column time_worked => max_length is 11, type is 'int(11)', default is '0';
- column Status => max_length is 10, type is 'varchar(10)', default is '';
+ column status => max_length is 10, type is 'varchar(10)', default is '';
column time_left => max_length is 11, type is 'int(11)', default is '0';
column Told => type is 'datetime', default is '';
column starts => type is 'datetime', default is '';
@@ -305,11 +305,11 @@
AdminCc - A reference to a list of email addresses or names
Type -- The ticket\'s type. ignore this for now
Owner -- This ticket\'s owner. either an RT::Model::User object or this user\'s id
- Subject -- A string describing the subject of the ticket
+ subject -- A string describing the subject of the ticket
Priority -- an integer from 0 to 99
initial_priority -- an integer from 0 to 99
final_priority -- an integer from 0 to 99
- Status -- any valid status (Defined in RT::Model::Queue)
+ status -- any valid status (Defined in RT::Model::Queue)
time_estimated -- an integer. estimated time for this task in minutes
time_worked -- an integer. time worked so far in minutes
time_left -- an integer. time remaining in minutes
@@ -347,11 +347,11 @@
AdminCc => undef,
Type => 'ticket',
Owner => undef,
- Subject => '',
+ subject => '',
initial_priority => undef,
final_priority => undef,
Priority => undef,
- Status => 'new',
+ status => 'new',
time_worked => "0",
time_left => 0,
time_estimated => 0,
@@ -399,7 +399,7 @@
);
}
- unless ( $queue_obj->is_valid_status( $args{'Status'} ) ) {
+ unless ( $queue_obj->is_valid_status( $args{'status'} ) ) {
return ( 0, 0, _('Invalid value for status') );
}
@@ -441,7 +441,7 @@
my $Started = RT::Date->new();
if ( defined $args{'Started'} ) {
$Started->set( Format => 'ISO', value => $args{'Started'} );
- } elsif ( $args{'Status'} ne 'new' ) {
+ } elsif ( $args{'status'} ne 'new' ) {
$Started->set_to_now;
}
@@ -451,9 +451,9 @@
}
#If the status is an inactive status, set the resolved date
- elsif ( $queue_obj->is_inactive_status( $args{'Status'} ) ) {
+ elsif ( $queue_obj->is_inactive_status( $args{'status'} ) ) {
Jifty->log->debug( "Got a "
- . $args{'Status'}
+ . $args{'status'}
. "(inactive) ticket with undefined resolved date. Setting to now."
);
$Resolved->set_to_now;
@@ -547,11 +547,11 @@
my %params = (
Queue => $queue_obj->id,
Owner => $Owner->id,
- Subject => $args{'Subject'},
+ subject => $args{'subject'},
initial_priority => $args{'initial_priority'},
final_priority => $args{'final_priority'},
Priority => $args{'Priority'},
- Status => $args{'Status'},
+ status => $args{'status'},
time_worked => $args{'time_worked'},
time_estimated => $args{'time_estimated'},
time_left => $args{'time_left'},
@@ -885,10 +885,10 @@
Requestor => undef,
Type => 'ticket',
Owner => RT->nobody->id,
- Subject => '[no subject]',
+ subject => '[no subject]',
initial_priority => undef,
final_priority => undef,
- Status => 'new',
+ status => 'new',
time_worked => "0",
Due => undef,
Created => undef,
@@ -980,9 +980,9 @@
# }}}
- unless ( $self->validate_status( $args{'Status'} ) ) {
+ unless ( $self->validate_status( $args{'status'} ) ) {
return ( 0,
- _( "'%1' is an invalid value for status", $args{'Status'} ) );
+ _( "'%1' is an invalid value for status", $args{'status'} ) );
}
# If we're coming in with an id, set that now.
@@ -997,11 +997,11 @@
EffectiveId => $EffectiveId,
Queue => $queue_obj->id,
Owner => $Owner->id,
- Subject => $args{'Subject'}, # loc
+ subject => $args{'subject'}, # loc
initial_priority => $args{'initial_priority'}, # loc
final_priority => $args{'final_priority'}, # loc
Priority => $args{'initial_priority'}, # loc
- Status => $args{'Status'}, # loc
+ status => $args{'status'}, # loc
time_worked => $args{'time_worked'}, # loc
Type => $args{'Type'}, # loc
Created => $args{'Created'}, # loc
@@ -1081,9 +1081,9 @@
foreach my $type (@types) {
my $type_obj = RT::Model::Group->new;
my ( $id, $msg ) = $type_obj->create_role_group(
- Domain => 'RT::Model::Ticket-Role',
- Instance => $self->id,
- Type => $type
+ domain => 'RT::Model::Ticket-Role',
+ instance => $self->id,
+ type => $type
);
unless ($id) {
Jifty->log->error(
@@ -1991,7 +1991,7 @@
#
my $TicketAsSystem = RT::Model::Ticket->new( RT->system_user );
$TicketAsSystem->load( $self->id );
- if ( $TicketAsSystem->Status eq 'new' ) {
+ if ( $TicketAsSystem->status eq 'new' ) {
$TicketAsSystem->open();
}
@@ -2290,7 +2290,7 @@
&& $msgid =~ /<(rt-.*?-\d+-\d+)\.(\d+-0-0)\@\Q$org\E>/ )
{
$args{'MIMEObj'}->head->set( 'RT-Message-ID' =>
- RT::Interface::Email::GenMessageId( Ticket => $self ) );
+ RT::Interface::Email::gen_message_id( Ticket => $self ) );
}
#Record the correspondence (write the transaction)
@@ -2657,10 +2657,10 @@
return ( 0, _("Merge failed. Couldn't set EffectiveId") );
}
- if ( $self->__value('Status') ne 'resolved' ) {
+ if ( $self->__value('status') ne 'resolved' ) {
my ( $status_val, $status_msg )
- = $self->__set( column => 'Status', value => 'resolved' );
+ = $self->__set( column => 'status', value => 'resolved' );
unless ($status_val) {
Jifty->handle->rollback();
@@ -2669,7 +2669,7 @@
$self
)
);
- return ( 0, _("Merge failed. Couldn't set Status") );
+ return ( 0, _("Merge failed. Couldn't set status") );
}
}
@@ -3067,7 +3067,7 @@
# }}}
-# {{{ sub set_Status
+# {{{ sub set_status
=head2 SetStatus STATUS
@@ -3084,13 +3084,13 @@
my %args;
if ( @_ == 1 ) {
- $args{Status} = shift;
+ $args{status} = shift;
} else {
%args = (@_);
}
#Check ACL
- if ( $args{Status} eq 'deleted' ) {
+ if ( $args{status} eq 'deleted' ) {
unless ( $self->current_user_has_right('DeleteTicket') ) {
return ( 0, _('Permission Denied') );
}
@@ -3101,22 +3101,22 @@
}
if ( !$args{Force}
- && ( $args{'Status'} eq 'resolved' )
+ && ( $args{'status'} eq 'resolved' )
&& $self->has_unresolved_dependencies )
{
return ( 0, _('That ticket has unresolved dependencies') );
}
- unless ( $self->validate_status( $args{'Status'} ) ) {
+ unless ( $self->validate_status( $args{'status'} ) ) {
return ( 0,
- _( "'%1' is an invalid value for status", $args{'Status'} ) );
+ _( "'%1' is an invalid value for status", $args{'status'} ) );
}
my $now = RT::Date->new;
$now->set_to_now();
#If we're changing the status from new, record that we've started
- if ( $self->Status eq 'new' && $args{Status} ne 'new' ) {
+ if ( $self->status eq 'new' && $args{status} ne 'new' ) {
#Set the Started time to "now"
$self->_set(
@@ -3128,7 +3128,7 @@
#When we close a ticket, set the 'Resolved' attribute to now.
# It's misnamed, but that's just historical.
- if ( $self->queue_obj->is_inactive_status( $args{Status} ) ) {
+ if ( $self->queue_obj->is_inactive_status( $args{status} ) ) {
$self->_set(
column => 'Resolved',
value => $now->iso,
@@ -3138,11 +3138,11 @@
#Actually update the status
my ( $val, $msg ) = $self->_set(
- column => 'Status',
- value => $args{Status},
+ column => 'status',
+ value => $args{status},
TimeTaken => 0,
CheckACL => 0,
- TransactionType => 'Status'
+ TransactionType => 'status'
);
return ( $val, $msg );
@@ -3367,11 +3367,11 @@
Queue => { 'read' => 1, 'write' => 1 },
Requestors => { 'read' => 1, 'write' => 1 },
Owner => { 'read' => 1, 'write' => 1 },
- Subject => { 'read' => 1, 'write' => 1 },
+ subject => { 'read' => 1, 'write' => 1 },
initial_priority => { 'read' => 1, 'write' => 1 },
final_priority => { 'read' => 1, 'write' => 1 },
Priority => { 'read' => 1, 'write' => 1 },
- Status => { 'read' => 1, 'write' => 1 },
+ status => { 'read' => 1, 'write' => 1 },
time_estimated => { 'read' => 1, 'write' => 1 },
time_worked => { 'read' => 1, 'write' => 1 },
time_left => { 'read' => 1, 'write' => 1 },
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 Mon Jan 28 20:28:32 2008
@@ -959,13 +959,13 @@
alias1 => 'main',
column1 => 'id',
table2 => 'Groups',
- column2 => 'Instance',
+ column2 => 'instance',
entry_aggregator => 'AND',
);
$self->SUPER::limit(
leftjoin => $groups,
alias => $groups,
- column => 'Domain',
+ column => 'domain',
value => 'RT::Model::Ticket-Role',
);
$self->SUPER::limit(
@@ -1066,12 +1066,12 @@
(
(Users_3.email = '22')
AND
- (Groups_1.Domain = 'RT::Model::Ticket-Role')
+ (Groups_1.domain = 'RT::Model::Ticket-Role')
AND
(Groups_1.Type = 'RequestorGroup')
)
) AND
- Groups_1.Instance = main.id
+ Groups_1.instance = main.id
AND
Groups_1.id = CachedGroupMembers_2.GroupId
AND
@@ -1119,14 +1119,14 @@
# {{{ Tie to groups for tickets we care about
$self->_sql_limit(
alias => $groups,
- column => 'Domain',
+ column => 'domain',
value => 'RT::Model::Ticket-Role',
entry_aggregator => 'AND'
);
$self->join(
alias1 => $groups,
- column1 => 'Instance',
+ column1 => 'instance',
alias2 => 'main',
column2 => 'id'
);
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Transaction.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Transaction.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Transaction.pm Mon Jan 28 20:28:32 2008
@@ -603,9 +603,9 @@
# }}}
-# {{{ sub Subject
+# {{{ sub subject
-=head2 Subject
+=head2 subject
If this transaction has attached mime objects, returns the first one's subject
Otherwise, returns null
@@ -866,7 +866,7 @@
$principal->load( $self->old_value );
return _( "%1 %2 deleted", $self->Field, $principal->object->name );
},
- Subject => sub {
+ subject => sub {
my $self = shift;
return _( "Subject changed to %1", $self->Data );
},
@@ -974,20 +974,20 @@
my $self = shift;
my $ticket = RT::Model::Ticket->new;
$ticket->load( $self->new_value );
- return _( "Reminder '%1' added", $ticket->Subject );
+ return _( "Reminder '%1' added", $ticket->subject );
},
OpenReminder => sub {
my $self = shift;
my $ticket = RT::Model::Ticket->new;
$ticket->load( $self->new_value );
- return _( "Reminder '%1' reopened", $ticket->Subject );
+ return _( "Reminder '%1' reopened", $ticket->subject );
},
ResolveReminder => sub {
my $self = shift;
my $ticket = RT::Model::Ticket->new;
$ticket->load( $self->new_value );
- return _( "Reminder '%1' completed", $ticket->Subject );
+ return _( "Reminder '%1' completed", $ticket->subject );
}
);
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 Mon Jan 28 20:28:32 2008
@@ -83,7 +83,7 @@
column State => max_length is 100, type is 'varchar(100)', default is '';
column Zip => max_length is 16, type is 'varchar(16)', default is '';
column Country => max_length is 50, type is 'varchar(50)', default is '';
- column Timezone => max_length is 50, type is 'varchar(50)', default is '';
+ column timezone => max_length is 50, type is 'varchar(50)', default is '';
column PGPKey => type is 'text';
};
@@ -1123,12 +1123,12 @@
alias1 => 'main',
column1 => 'id',
table2 => 'Groups',
- column2 => 'Instance',
+ column2 => 'instance',
);
$watched_queues->limit(
alias => $group_alias,
- column => 'Domain',
+ column => 'domain',
value => 'RT::Model::Queue-Role',
entry_aggregator => 'AND',
);
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/UserCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/UserCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/UserCollection.pm Mon Jan 28 20:28:32 2008
@@ -421,11 +421,11 @@
$id = $obj->id
if ref($obj) && UNIVERSAL::can( $obj, 'id' ) && $obj->id;
- my $role_clause = "$groups.Domain = '$type-Role'";
+ my $role_clause = "$groups.domain = '$type-Role'";
# if we want mysql 4.0 use indexes here. we MUST convert that
# field to integer and drop this quotes.
- $role_clause .= " AND $groups.Instance = '$id'" if $id;
+ $role_clause .= " AND $groups.instance = '$id'" if $id;
push @role_clauses, "($role_clause)";
my $object_clause = "$acl.object_type = '$type'";
$object_clause .= " AND $acl.object_id = $id" if $id;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm Mon Jan 28 20:28:32 2008
@@ -66,7 +66,7 @@
=head1 SYNOPSIS
===Create-Ticket codereview
- Subject: Code review for {$Tickets{'TOP'}->Subject}
+ Subject: Code review for {$Tickets{'TOP'}->subject}
Depended-On-By: TOP
Content: Someone has Created a ticket. you should review and approve it,
so they can finish their work
@@ -115,7 +115,7 @@
A simple example:
===Create-Ticket: codereview
- Subject: Code review for {$Tickets{'TOP'}->Subject}
+ Subject: Code review for {$Tickets{'TOP'}->subject}
Depended-On-By: TOP
Content: Someone has Created a ticket. you should review and approve it,
so they can finish their work
@@ -156,10 +156,10 @@
AdminCc: {join ("\nAdminCc: ", at admins) }
Depended-On-By: TOP
Refers-To: TOP
- Subject: Approval for ticket: {$Tickets{"TOP"}->id} - {$Tickets{"TOP"}->Subject}
+ Subject: Approval for ticket: {$Tickets{"TOP"}->id} - {$Tickets{"TOP"}->subject}
Due: {time + 86400}
Content-Type: text/plain
- Content: Your approval is requested for the ticket {$Tickets{"TOP"}->id}: {$Tickets{"TOP"}->Subject}
+ Content: Your approval is requested for the ticket {$Tickets{"TOP"}->id}: {$Tickets{"TOP"}->subject}
Blah
Blah
ENDOFCONTENT
@@ -429,7 +429,7 @@
# reasonable data and do our thang
my @attribs = qw(
- Subject
+ subject
final_priority
Priority
time_estimated
@@ -754,7 +754,7 @@
my %ticketargs = (
Queue => $args{'queue'},
- Subject => $args{'subject'},
+ subject => $args{'subject'},
Status => $args{'status'} || 'new',
Due => $args{'due'},
starts => $args{'starts'},
@@ -898,7 +898,7 @@
{
$field = 'Content';
} elsif ( $field =~ /^Summary$/i ) {
- $field = 'Subject';
+ $field = 'subject';
} elsif ( $field =~ /^Queue$/i ) {
# Note that we found a queue
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm Mon Jan 28 20:28:32 2008
@@ -592,7 +592,7 @@
$self->set_header( "Message-ID" => $msgid );
} else {
$self->set_header(
- 'Message-ID' => RT::Interface::Email::GenMessageId(
+ 'Message-ID' => RT::Interface::Email::gen_message_id(
Ticket => $self->ticket_obj,
Scrip => $self->scrip_obj,
ScripAction => $self->scrip_action_obj
@@ -658,7 +658,7 @@
# Weed out any RT addresses. We really don't want to talk to ourselves!
foreach my $type (@types) {
@{ $self->{$type} }
- = RT::EmailParser::CullRTAddresses( "", @{ $self->{$type} } );
+ = RT::EmailParser::cull_rt_addresses( "", @{ $self->{$type} } );
}
# If there are no recipients, don't try to send the message.
@@ -848,7 +848,7 @@
my $self = shift;
$self->template_obj->mime_obj->head->replace(
- Subject => RT::Interface::Email::AddSubjectTag(
+ Subject => RT::Interface::Email::add_subject_tag(
$self->template_obj->mime_obj->head->get('Subject'),
$self->ticket_obj->id,
),
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Group.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Group.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Group.pm Mon Jan 28 20:28:32 2008
@@ -68,12 +68,12 @@
my $list = [];
# User is inconsistent without own Equivalence group
- if ( $self->Domain eq 'ACLEquivalence' ) {
+ if ( $self->domain eq 'ACLEquivalence' ) {
# delete user entry after ACL equiv group
# in other case we will get deep recursion
my $objs = RT::Model::User->new;
- $objs->load( $self->Instance );
+ $objs->load( $self->instance );
$deps->_push_dependency(
base_object => $self,
Flags => DEPENDS_ON | WIPE_AFTER,
@@ -138,9 +138,9 @@
my $list = [];
# Equivalence group id inconsistent without User
- if ( $self->Domain eq 'ACLEquivalence' ) {
+ if ( $self->domain eq 'ACLEquivalence' ) {
my $obj = RT::Model::User->new;
- $obj->load( $self->Instance );
+ $obj->load( $self->instance );
if ( $obj->id ) {
push( @$list, $obj );
} else {
@@ -149,7 +149,7 @@
$rec->{'State'} |= INVALID;
$rec->{'Description'}
= "ACLEguvivalence group have no related User #"
- . $self->Instance
+ . $self->instance
. " object.";
}
}
@@ -177,7 +177,7 @@
sub BeforeWipeout {
my $self = shift;
- if ( $self->Domain eq 'SystemInternal' ) {
+ if ( $self->domain eq 'SystemInternal' ) {
RT::Shredder::Exception::Info->throw('SystemObject');
}
return $self->SUPER::BeforeWipeout(@_);
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Shredder/GroupMember.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Shredder/GroupMember.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Shredder/GroupMember.pm Mon Jan 28 20:28:32 2008
@@ -88,7 +88,7 @@
# XXX: If we delete member of the ticket owner role group then we should also
# fix ticket object, but only if we don't plan to delete group itself!
unless ( ( $group->type || '' ) eq 'Owner'
- && ( $group->Domain || '' ) eq 'RT::Model::Ticket-Role' )
+ && ( $group->domain || '' ) eq 'RT::Model::Ticket-Role' )
{
return $self->SUPER::__DependsOn(%args);
}
@@ -111,7 +111,7 @@
& ( WIPED | IN_WIPING );
return unless ( $group->type || '' ) eq 'Owner';
return
- unless ( $group->Domain || '' ) eq 'RT::Model::Ticket-Role';
+ unless ( $group->domain || '' ) eq 'RT::Model::Ticket-Role';
return if $group->members_obj->count > 1;
@@ -127,7 +127,7 @@
my $ticket = RT::Model::Ticket->new(
current_user => $group->current_user );
- $ticket->load( $group->Instance );
+ $ticket->load( $group->instance );
RT::Shredder::Exception->throw("Couldn't load ticket")
unless $ticket->id;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin.pm Mon Jan 28 20:28:32 2008
@@ -223,7 +223,7 @@
=head2 Rebless
-Instance method that takes one object as argument and rebless
+instance method that takes one object as argument and rebless
the current object into into class of the argument and copy data
of the former. Returns nothing.
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Summary.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Summary.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Summary.pm Mon Jan 28 20:28:32 2008
@@ -111,7 +111,7 @@
sub write_down_group {
my $self = shift;
my %args = ( Object => undef, @_ );
- if ( $args{'Object'}->Domain =~ /-Role$/ ) {
+ if ( $args{'Object'}->domain =~ /-Role$/ ) {
return $skip_refs_to{ $args{'Object'}->_as_string } = 1;
}
return $self->write_down_default(%args);
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Queue.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Queue.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Queue.pm Mon Jan 28 20:28:32 2008
@@ -75,8 +75,8 @@
# Queue role groups( Cc, AdminCc )
$objs = RT::Model::GroupCollection->new;
- $objs->limit( column => 'Domain', value => 'RT::Model::Queue-Role' );
- $objs->limit( column => 'Instance', value => $self->id );
+ $objs->limit( column => 'domain', value => 'RT::Model::Queue-Role' );
+ $objs->limit( column => 'instance', value => $self->id );
push( @$list, $objs );
# Scrips
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Ticket.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Ticket.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Ticket.pm Mon Jan 28 20:28:32 2008
@@ -76,8 +76,8 @@
# Ticket role groups( Owner, Requestors, Cc, AdminCc )
$objs = RT::Model::GroupCollection->new;
- $objs->limit( column => 'Domain', value => 'RT::Model::Ticket-Role' );
- $objs->limit( column => 'Instance', value => $self->id );
+ $objs->limit( column => 'domain', value => 'RT::Model::Ticket-Role' );
+ $objs->limit( column => 'instance', value => $self->id );
push( @$list, $objs );
#TODO: Users, Queues if we wish export tool
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Shredder/User.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Shredder/User.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Shredder/User.pm Mon Jan 28 20:28:32 2008
@@ -98,8 +98,8 @@
# ACL equivalence group
# don't use load_acl_equivalence_group cause it may not exists any more
my $objs = RT::Model::GroupCollection->new;
- $objs->limit( column => 'Domain', value => 'ACLEquivalence' );
- $objs->limit( column => 'Instance', value => $self->id );
+ $objs->limit( column => 'domain', value => 'ACLEquivalence' );
+ $objs->limit( column => 'instance', value => $self->id );
push( @$list, $objs );
# Cleanup user's membership
Modified: rt/branches/3.999-DANGEROUS/t/api/cf.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/cf.t (original)
+++ rt/branches/3.999-DANGEROUS/t/api/cf.t Mon Jan 28 20:28:32 2008
@@ -39,7 +39,7 @@
is( $ticket->first_custom_field_value, undef );
my $local_cf1 = RT::Model::CustomField->new(current_user => RT->system_user );
-my ($status,$msg) = $local_cf1->create( name => 'RecordCustomFields1-'.$$, Type => 'SelectSingle', Queue => $queue->id );
+my ($status,$msg) = $local_cf1->create( name => 'RecordCustomFields1-'.$$, type => 'SelectSingle', Queue => $queue->id );
ok($status,$msg);
($status,$msg)=$local_cf1->add_value( name => 'Recordcustom_field_values11' );
ok($status,$msg);
@@ -47,17 +47,17 @@
ok($status,$msg);
my $local_cf2 = RT::Model::CustomField->new(current_user => RT->system_user );
-$local_cf2->create( name => 'RecordCustomFields2-'.$$, Type => 'SelectSingle', Queue => $queue->id );
+$local_cf2->create( name => 'RecordCustomFields2-'.$$, type => 'SelectSingle', Queue => $queue->id );
$local_cf2->add_value( name => 'Recordcustom_field_values21' );
$local_cf2->add_value( name => 'Recordcustom_field_values22' );
my $global_cf3 = RT::Model::CustomField->new(current_user => RT->system_user );
-$global_cf3->create( name => 'RecordCustomFields3-'.$$, Type => 'SelectSingle', Queue => 0 );
+$global_cf3->create( name => 'RecordCustomFields3-'.$$, type => 'SelectSingle', Queue => 0 );
$global_cf3->add_value( name => 'Recordcustom_field_values31' );
$global_cf3->add_value( name => 'Recordcustom_field_values32' );
my $local_cf4 = RT::Model::CustomField->new(current_user => RT->system_user );
-$local_cf4->create( name => 'RecordCustomFields4', Type => 'SelectSingle', Queue => $queue2->id );
+$local_cf4->create( name => 'RecordCustomFields4', type => 'SelectSingle', Queue => $queue2->id );
$local_cf4->add_value( name => 'Recordcustom_field_values41' );
$local_cf4->add_value( name => 'Recordcustom_field_values42' );
Modified: rt/branches/3.999-DANGEROUS/t/api/cf_single_values.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/cf_single_values.t (original)
+++ rt/branches/3.999-DANGEROUS/t/api/cf_single_values.t Mon Jan 28 20:28:32 2008
@@ -13,7 +13,7 @@
ok($id,$msg);
my $cf = RT::Model::CustomField->new(current_user => RT->system_user);
-($id,$msg) = $cf->create(name => 'Single-'.$$, Type => 'Select', MaxValues => '1', Queue => $q->id);
+($id,$msg) = $cf->create(name => 'Single-'.$$, type => 'Select', MaxValues => '1', Queue => $q->id);
ok($id,$msg);
Modified: rt/branches/3.999-DANGEROUS/t/api/cf_transaction.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/cf_transaction.t (original)
+++ rt/branches/3.999-DANGEROUS/t/api/cf_transaction.t Mon Jan 28 20:28:32 2008
@@ -16,7 +16,7 @@
ok($id,$msg);
my $cf = RT::Model::CustomField->new(current_user => RT->system_user);
-($id,$msg) = $cf->create(name => 'Txnfreeform-'.$$, Type => 'Freeform', MaxValues => '0', LookupType => RT::Model::Transaction->custom_field_lookup_type );
+($id,$msg) = $cf->create(name => 'Txnfreeform-'.$$, type => 'Freeform', MaxValues => '0', LookupType => RT::Model::Transaction->custom_field_lookup_type );
ok($id,$msg);
Modified: rt/branches/3.999-DANGEROUS/t/api/condition-ownerchange.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/condition-ownerchange.t (original)
+++ rt/branches/3.999-DANGEROUS/t/api/condition-ownerchange.t Mon Jan 28 20:28:32 2008
@@ -36,11 +36,11 @@
ok($tv, $tm);
ok($ticket->set_owner('root'));
is ($ticket->Priority , '21', "Ticket priority is set right");
-ok($ticket->Steal);
+ok($ticket->steal);
is ($ticket->Priority , '22', "Ticket priority is set right");
-ok($ticket->Untake);
+ok($ticket->untake);
is ($ticket->Priority , '23', "Ticket priority is set right");
-ok($ticket->Take);
+ok($ticket->take);
is ($ticket->Priority , '24', "Ticket priority is set right");
Modified: rt/branches/3.999-DANGEROUS/t/api/customfield.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/customfield.t (original)
+++ rt/branches/3.999-DANGEROUS/t/api/customfield.t Mon Jan 28 20:28:32 2008
@@ -14,7 +14,7 @@
Queue => '0',
SortOrder => '1',
Description => 'A Testing custom field',
- Type=> 'SelectSingle'), 'Created a global CustomField');
+ type=> 'SelectSingle'), 'Created a global CustomField');
isnt($id , 0, 'Global custom field correctly Created');
ok ($cf->SingleValue);
is($cf->type, 'Select');
@@ -33,7 +33,7 @@
Queue => '0',
SortOrder => '1',
Description => 'A Testing custom field with a bogus Type',
- Type=> 'SelectSingleton'), 'Created a global CustomField with a bogus type');
+ type=> 'SelectSingleton'), 'Created a global CustomField with a bogus type');
is($bad_id , 0, 'Global custom field correctly decided to not create a cf with a bogus type ');
Modified: rt/branches/3.999-DANGEROUS/t/api/date.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/date.t (original)
+++ rt/branches/3.999-DANGEROUS/t/api/date.t Mon Jan 28 20:28:32 2008
@@ -16,7 +16,7 @@
{
# set timezone in all places to UTC
- RT->system_user->user_object->__set(column => 'Timezone', value => 'UTC')
+ RT->system_user->user_object->__set(column => 'timezone', value => 'UTC')
if RT->system_user->user_object->timezone;
RT->config->set( Timezone => 'UTC' );
}
@@ -40,7 +40,7 @@
is($date->timezone('server'), 'UTC', "dropped all timzones to UTC");
is($date->timezone('unknown'), 'UTC', "with wrong context returns UTC");
- $current_user->user_object->__set( column => 'Timezone', value => 'Europe/Moscow');
+ $current_user->user_object->__set( column => 'timezone', value => 'Europe/Moscow');
is($current_user->user_object->timezone,
'Europe/Moscow',
"successfuly changed user's timezone");
@@ -59,7 +59,7 @@
"in user context still returns user's timezone");
is($date->timezone, 'UTC', "the deafult value is always UTC");
- $current_user->user_object->__set( column => 'Timezone', value => '');
+ $current_user->user_object->__set( column => 'timezone', value => '');
is($current_user->user_object->timezone,
'',
"successfuly changed user's timezone");
@@ -184,7 +184,7 @@
{ # positive timezone
- $current_user->user_object->__set( column => 'Timezone', value => 'Europe/Moscow');
+ $current_user->user_object->__set( column => 'timezone', value => 'Europe/Moscow');
my $date = RT::Date->new( current_user => $current_user );
$date->set( Format => 'ISO', Timezone => 'utc', value => '2005-01-01 15:10:00' );
is($date->iso( Timezone => 'user' ), '2005-01-01 18:10:00', "ISO");
@@ -200,7 +200,7 @@
}
{ # negative timezone
- $current_user->user_object->__set( column => 'Timezone', value => 'America/New_York');
+ $current_user->user_object->__set( column => 'timezone', value => 'America/New_York');
my $date = RT::Date->new( current_user => $current_user );
$date->set( Format => 'ISO', Timezone => 'utc', value => '2005-01-01 15:10:00' );
is($date->iso( Timezone => 'user' ), '2005-01-01 10:10:00', "ISO");
@@ -316,7 +316,7 @@
$date->set(Format => 'unknown', value => '2005-11-28 15:10:00');
is($date->iso, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss");
- $current_user->user_object->__set( column => 'Timezone', value => 'Europe/Moscow');
+ $current_user->user_object->__set( column => 'timezone', value => 'Europe/Moscow');
$date = RT::Date->new( current_user => $current_user );
$date->set(Format => 'unknown', value => '2005-11-28 15:10:00');
is($date->iso, '2005-11-28 12:10:00', "YYYY-DD-MM hh:mm:ss");
@@ -343,7 +343,7 @@
$date->set_to_midnight(Timezone => 'server');
is($date->iso, '2005-11-27 21:00:00', "server context");
- $current_user->user_object->__set( column => 'Timezone', value => 'Europe/Moscow');
+ $current_user->user_object->__set( column => 'timezone', value => 'Europe/Moscow');
$date = RT::Date->new(current_user => $current_user );
$date->set(Format => 'ISO', value => '2005-11-28 15:10:00');
$date->set_to_midnight;
@@ -408,7 +408,7 @@
}
{
- $current_user->user_object->__set( column => 'Timezone', value => '');
+ $current_user->user_object->__set( column => 'timezone', value => '');
my $date = RT::Date->new(current_user => $current_user );
is($date->as_string, "Not set", "AsString returns 'Not set'");
Modified: rt/branches/3.999-DANGEROUS/t/api/emailparser.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/emailparser.t (original)
+++ rt/branches/3.999-DANGEROUS/t/api/emailparser.t Mon Jan 28 20:28:32 2008
@@ -16,8 +16,8 @@
{
-is(RT::EmailParser::IsRTAddress("","rt\@example.com"),1, "Regexp matched rt address" );
-is(RT::EmailParser::IsRTAddress("","frt\@example.com"),undef, "Regexp didn't match non-rt address" );
+is(RT::EmailParser::is_rt_address("","rt\@example.com"),1, "Regexp matched rt address" );
+is(RT::EmailParser::is_rt_address("","frt\@example.com"),undef, "Regexp didn't match non-rt address" );
}
@@ -26,7 +26,7 @@
my @before = ("rt\@example.com", "frt\@example.com");
my @after = ("frt\@example.com");
-ok(eq_array(RT::EmailParser::CullRTAddresses("", at before), at after), "CullRTAddresses only culls RT addresses");
+ok(eq_array(RT::EmailParser::cull_rt_addresses("", at before), at after), "cull_rt_addresses only culls RT addresses");
}
Modified: rt/branches/3.999-DANGEROUS/t/api/groups.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/groups.t (original)
+++ rt/branches/3.999-DANGEROUS/t/api/groups.t Mon Jan 28 20:28:32 2008
@@ -80,7 +80,7 @@
is($groups->count, 3);
my $RTxGroup = RT::Model::Group->new(current_user => RT->system_user);
-($id, $msg) = $RTxGroup->create_user_defined_group( name => 'RTxGroup', Description => "RTx extension group");
+($id, $msg) = $RTxGroup->create_user_defined_group( name => 'RTxGroup', description => "RTx extension group");
ok ($id,$msg);
is ($RTxGroup->id, $id, "group loaded");
More information about the Rt-commit
mailing list