Perl code for user selectable columns in the data table.

lib/WebGUI/Asset/Wobject/DataTable.pm

@@ -125,6 +125,7 @@ sub getDataTemplateVars {
     my $self = shift;
 
     my $json = $self->getDataJson;
+    $self->session->log->warn($json);
     my $dt   = JSON->new->decode($json);
 
     # Make row data more friendly to templates

lib/WebGUI/Form/DataTable.pm

@@ -122,11 +122,11 @@ sub getDataTableHtml {
         # Not using a datastructure and JSON.pm because of function references for "parser"
         my $columnDef
             = '{'
-            . qq["key" : "$column->{ key }", ]
-            . qq["abbr" : "$column->{ key }", ]
+            . qq["key"       : "$column->{ key }", ]
+            . qq["abbr"      : "$column->{ key }", ]
             . qq["formatter" : "$column->{ formatter }", ]
             . qq["resizable" : 1, ]
-            . qq["sortable" : 1];
+            . qq["sortable"  : $column->{sortable} ];
 
         # Automatically determine the parser to use
         if ( $parsers{ $column->{formatter} } ) {
@@ -186,6 +186,7 @@ sub getDefaultValue {
                 columns => [ {
                         key       => "New Column",
                         formatter => "text",
+                        sortable  => "true",
                     },
                 ],
                 rows => [ { "New Column" => "Value", }, ],

lib/WebGUI/i18n/English/Form_DataTable.pm

@@ -139,6 +139,13 @@ our $I18N = {
         lastUpdated => 0,
         context     => q{Button to delete a column, shown in the Edit Schema dialog},
     },
+
+    "sortable" => {
+        message     => q{sortable},
+        lastUpdated => 0,
+        context     => q{Whether a column is sortable in the table},
+    },
+
 };
 
 1;