[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 ? '&bull; '.$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%>" /> &bull; 
+    <input type="text" size="15" name="Reminder-Subject-<% $Reminder->id %>" value="<%$Reminder->subject%>" /> &bull; 
     <& /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%> &bull; 
+    <%$Reminder->subject%> &bull; 
     <%$Reminder->owner_obj->name%>
     <%$Reminder->due_obj->Unix>0  ? "&bull; ". $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