[Rt-commit] rt branch, admin_ui, updated. 5631a47529ad5f895b9d8e560d18a337a1baed6d

sunnavy at bestpractical.com sunnavy at bestpractical.com
Wed Dec 16 02:16:17 EST 2009


The branch, admin_ui has been updated
       via  5631a47529ad5f895b9d8e560d18a337a1baed6d (commit)
      from  9fb13a654abab44db1c613ce4abf675b19884e45 (commit)

Summary of changes:
 lib/RT/Action/SelectWorkflowMappings.pm |   37 +++++++++++++++++++++++++++++++
 1 files changed, 37 insertions(+), 0 deletions(-)
 create mode 100644 lib/RT/Action/SelectWorkflowMappings.pm

- Log -----------------------------------------------------------------
commit 5631a47529ad5f895b9d8e560d18a337a1baed6d
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Wed Dec 16 15:15:33 2009 +0800

    add action SelectWorkflowMappings

diff --git a/lib/RT/Action/SelectWorkflowMappings.pm b/lib/RT/Action/SelectWorkflowMappings.pm
new file mode 100644
index 0000000..0dd3b03
--- /dev/null
+++ b/lib/RT/Action/SelectWorkflowMappings.pm
@@ -0,0 +1,37 @@
+use strict;
+use warnings;
+
+package RT::Action::SelectWorkflowMappings;
+use base qw/RT::Action Jifty::Action/;
+use RT::Workflow;
+use Scalar::Defer;
+
+sub arguments {
+    my $self = shift;
+    my $args = {};
+    for (qw/from to/) {
+        $args->{$_} = {
+            render_as     => 'Select',
+            available_values => defer { [ RT::Workflow->list ] }
+        };
+    }
+    return $args;
+}
+
+=head2 take_action
+
+=cut
+
+sub take_action {
+    my $self = shift;
+
+    my $from = $self->argument_value('from');
+    my $to   = $self->argument_value('to');
+    return unless $from && $to;
+    Jifty->web->_redirect(
+        "/admin/global/workflows/mappings?from=$from&to=$to&",
+    );
+}
+
+1;
+

-----------------------------------------------------------------------


More information about the Rt-commit mailing list