[Bps-public-commit] r16567 - in sd/branches/sd-dispatcher: .

[sartak at bestpractical.com]

Author: sartak
Date: Tue Oct 28 12:48:53 2008
New Revision: 16567

Modified:
   sd/branches/sd-dispatcher/   (props changed)
   sd/branches/sd-dispatcher/lib/App/SD/CLI/Dispatcher.pm

Log:
 r74671 at onn:  sartak | 2008-10-28 12:48:20 -0400
 Begin ticket commands


Modified: sd/branches/sd-dispatcher/lib/App/SD/CLI/Dispatcher.pm
==============================================================================
--- sd/branches/sd-dispatcher/lib/App/SD/CLI/Dispatcher.pm	(original)
+++ sd/branches/sd-dispatcher/lib/App/SD/CLI/Dispatcher.pm	Tue Oct 28 12:48:53 2008
@@ -16,12 +16,16 @@
     rewrite [ ['list', 'find'] ] => 'help search';
 };
 
-on ['ticket', 'give', qr/.*/, qr/.*/] => sub {
-    my $self = shift;
-    $self->context->set_arg(type  => 'ticket');
-    $self->context->set_arg(id    => $3);
-    $self->context->set_arg(owner => $4);
-    run('update', $self, @_);
+under ticket => sub {
+    on ['give', qr/.*/, qr/.*/] => sub {
+        my $self = shift;
+        $self->context->set_arg(type  => 'ticket');
+        $self->context->set_arg(id    => $2);
+        $self->context->set_arg(owner => $3);
+        run('update', $self, @_);
+    };
+
+    on basics => run_command('Ticket::Basics');
 };
 
 # allow type to be specified via primary commands, e.g.