[rt-commit] [svn] r514 - rt/branches/rt-3.1/bin

[jesse at fsck.com]

Author: jesse
Date: Tue Mar  9 16:54:51 2004
New Revision: 514

Modified:
   rt/branches/rt-3.1/bin/rt.in
Log:
#5086:  providing support for rt ls -o


Modified: rt/branches/rt-3.1/bin/rt.in
==============================================================================
--- rt/branches/rt-3.1/bin/rt.in	(original)
+++ rt/branches/rt-3.1/bin/rt.in	Tue Mar  9 16:54:51 2004
@@ -166,7 +166,7 @@
 # Displays a list of objects that match some specified condition.
 
 sub list {
-    my ($q, $type, %data, $orderby);
+    my ($q, $type, %data);
     my $bad = 0;
 
     while (@ARGV) {
@@ -179,7 +179,7 @@
             $bad = 1, last unless get_var_argument(\%data);
         }
         elsif (/^-o$/) {
-            $orderby = shift @ARGV;
+            $data{orderby} = shift @ARGV;
         }
         elsif (/^-([isl])$/) {
             $data{format} = $1;
@@ -209,7 +209,7 @@
     }
     return help("list", $type) if $bad;
 
-    my $r = submit("$REST/search/$type", { query => $q, %data, orderby => $orderby || "" });
+    my $r = submit("$REST/search/$type", { query => $q, %data });
     print $r->content;
 }