More sort routes

Templates/custom.pm.tem

@@ -2,8 +2,7 @@
 # Routines to be editted by the developer to provide validation for parameters
 # and provison of the control data for table(s)
 #
-#
-# Generated by SM2Gen version:${version} 
+# Generated by ${version} 
 #
 
 use esmith::util;
@@ -24,6 +23,7 @@ our $ddb = esmith::DomainsDB->open()  || die("Couldn't open Domains db");
 # Validation routines - parameters for each panel
 <tal:block tal:repeat="panel panels">
 	sub validate_${panel} {
+		$prefix_data = shift; #Data hash as parameter
 		$ret = 'ok';
 		return $ret;
 	}
@@ -31,10 +31,31 @@ our $ddb = esmith::DomainsDB->open()  || die("Couldn't open Domains db");
 	
 # Get control data for tables(s)
 <tal:block tal:repeat="tablecontrol tablecontrols">
-sub get_${tablecontrol} {
-  return []
-}
+	sub get_${tablecontrol} {
+		my $c = shift;
+		@ret = {}
+		return \@ret
+	}
 </tal:block>
+
+# Return hash with values from row in which link clicked on table
+<tal:block tal:repeat="panel panels">
+	sub validate_get_selected_${panel} {
+		$selected = shift; #Parameter is name of selected row.
+		%ret = {};
+		return $ret;
+	}
+</tal:block>
+
+#after sucessful modify or create or whatever and submit then perfom (if the params validate)
+<tal:block tal:repeat="panel panels">
+	sub perform_${panel} {
+		$prefix_data = shift; #Data hash as parameter
+		$ret = 'ok';
+		return $ret;
+	}
+</tal:block>
+
 1;