[Rt-commit] r10136 - in rt/branches/3.999-DANGEROUS: . html/REST/1.0/ticket

[jesse at bestpractical.com]

Author: jesse
Date: Thu Dec 27 01:32:16 2007
New Revision: 10136

Modified:
   rt/branches/3.999-DANGEROUS/   (props changed)
   rt/branches/3.999-DANGEROUS/html/REST/1.0/Forms/ticket/comment
   rt/branches/3.999-DANGEROUS/html/REST/1.0/ticket/comment

Log:
 r74252 at pinglin:  jesse | 2007-12-27 01:32:10 -0500
 * 8 more tests. one more test file commandline client seems to behave


Modified: rt/branches/3.999-DANGEROUS/html/REST/1.0/Forms/ticket/comment
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/REST/1.0/Forms/ticket/comment	(original)
+++ rt/branches/3.999-DANGEROUS/html/REST/1.0/Forms/ticket/comment	Thu Dec 27 01:32:16 2007
@@ -72,7 +72,8 @@
 }
 
 my $action;
-($action = lc $changes{Action}) =~ s/^(.)(.*)$/\U$1\L$2\E/;
+($action =  $changes{Action}) =~ s/^(.)(.*)$/\U$1\L$2\E/;
+$action = lc $action;
 unless ($action =~ /^(?:comment|correspond)$/) {
     $e = 1;
     $c = "# Invalid action: `$action'.";

Modified: rt/branches/3.999-DANGEROUS/html/REST/1.0/ticket/comment
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/REST/1.0/ticket/comment	(original)
+++ rt/branches/3.999-DANGEROUS/html/REST/1.0/ticket/comment	Thu Dec 27 01:32:16 2007
@@ -89,8 +89,8 @@
     goto OUTPUT;
 }
 
-($action = $k->{Action}) =~ s/^(.)(.*)$/\U$1\L$2\E/;
-unless ($action =~ /^(?:comment|Correspond)$/) {
+($action = lc $k->{Action}) =~ s/^(.)(.*)$/\U$1\L$2\E/;
+unless ($action =~ /^(?:comment|correspond)$/) {
     $output = "Invalid action: `$action'.\n";
     $status = "400 Bad Request";
     goto OUTPUT;