Fix overwrete logic for files based on modified date. Rationalise perform logic routines

Templates/custom.pm.tem

@@ -113,9 +113,11 @@ sub get_${tablecontrol[0]} {
 		my $c = shift;
 		my $prefix_data = shift; #Data hash as parameter
 		my $ret = "";
+		my $db = $cdb; #maybe one of the others
+		my $dbkey = 'ChangeThis';
 		<tal:block tal:repeat="field fields[panel]">
-		if (! TRUE) #copy or perform with value: ${field} e.g. $c->setprop(dbentry,dbkey,$c->param('${field}')))
-			{$ret .= 'Perform failed for ${field} failed';}</tal:block>
+		if (! TRUE) #copy or perform with value: ${field} e.g. $c->setprop($db,$dbkey,$c->param('${field}')))
+			{$ret .= 'Perform/save failed for ${field}';}</tal:block>
 		if ($ret eq "") {$ret = 'ok';}
 		return $ret;
 	}