X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/047a0b577ec117c9061d40728803c70ff8191962..7fb610a59d0fe90d59796a98cd65846b646341e2:/SL/Controller/CustomVariableConfig.pm?ds=sidebyside

diff --git a/SL/Controller/CustomVariableConfig.pm b/SL/Controller/CustomVariableConfig.pm
new file mode 100644
index 000000000..0c47799de
--- /dev/null
+++ b/SL/Controller/CustomVariableConfig.pm
@@ -0,0 +1,36 @@
+package SL::Controller::CustomVariableConfig;
+
+use strict;
+
+use parent qw(SL::Controller::Base);
+
+use SL::DB::CustomVariableConfig;
+
+__PACKAGE__->run_before('check_auth');
+
+#
+# actions
+#
+
+sub action_reorder {
+  my ($self) = @_;
+
+  my @ids = @{ $::form->{cvarcfg_id} || [] };
+  my $result = SL::DB::CustomVariableConfig->new->db->do_transaction(sub {
+    foreach my $idx (0 .. scalar(@ids) - 1) {
+      SL::DB::CustomVariableConfig->new(id => $ids[$idx])->load->update_attributes(sortkey => $idx + 1);
+    }
+  });
+
+  $self->render(type => 'js', inline => '1;');
+}
+
+#
+# filters
+#
+
+sub check_auth {
+  $::auth->assert('config');
+}
+
+1;