[Rt-commit] r17935 - in rt/3.999/branches/merge_to_3.8.2: . lib/RT/Approval/Rule

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jan 27 07:00:17 2009
New Revision: 17935

Modified:
   rt/3.999/branches/merge_to_3.8.2/   (props changed)
   rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule.pm
   rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Created.pm
   rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/NewPending.pm
   rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Passed.pm
   rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Rejected.pm

Log:
 r19071 at sunnavys-mb:  sunnavy | 2009-01-27 19:58:31 +0800
 convert cases for constant too


Modified: rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule.pm
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule.pm	(original)
+++ rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule.pm	Tue Jan 27 07:00:17 2009
@@ -52,7 +52,7 @@
 
 use base 'RT::Rule';
 
-use constant _Queue => '___Approvals';
+use constant _queue => '___Approvals';
 
 sub prepare {
     my $self = shift;

Modified: rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Created.pm
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Created.pm	(original)
+++ rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Created.pm	Tue Jan 27 07:00:17 2009
@@ -51,9 +51,9 @@
 use warnings;
 use base 'RT::Approval::Rule';
 
-use constant _Stage => 'TransactionBatch';
+use constant _stage => 'TransactionBatch';
 
-use constant Description => "Notify Owner of their ticket has been approved by some or all approvers"; # loc
+use constant description => "Notify Owner of their ticket has been approved by some or all approvers"; # loc
 
 sub prepare {
     my $self = shift;

Modified: rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/NewPending.pm
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/NewPending.pm	(original)
+++ rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/NewPending.pm	Tue Jan 27 07:00:17 2009
@@ -51,7 +51,7 @@
 use warnings;
 use base 'RT::Approval::Rule';
 
-use constant Description => "When an approval ticket is created, notify the Owner and AdminCc of the item awaiting their approval"; # loc
+use constant description => "When an approval ticket is created, notify the Owner and AdminCc of the item awaiting their approval"; # loc
 
 sub prepare {
     my $self = shift;

Modified: rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Passed.pm
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Passed.pm	(original)
+++ rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Passed.pm	Tue Jan 27 07:00:17 2009
@@ -51,7 +51,7 @@
 use warnings;
 use base 'RT::Approval::Rule';
 
-use constant Description => "Notify Owner of their ticket has been approved by some or all approvers"; # loc
+use constant description => "Notify Owner of their ticket has been approved by some or all approvers"; # loc
 
 sub prepare {
     my $self = shift;

Modified: rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Rejected.pm
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Rejected.pm	(original)
+++ rt/3.999/branches/merge_to_3.8.2/lib/RT/Approval/Rule/Rejected.pm	Tue Jan 27 07:00:17 2009
@@ -51,7 +51,7 @@
 use warnings;
 use base 'RT::Approval::Rule';
 
-use constant Description => "If an approval is rejected, reject the original and delete pending approvals"; # loc
+use constant description => "If an approval is rejected, reject the original and delete pending approvals"; # loc
 
 sub prepare {
     my $self = shift;