template type was not checked enough

docs/changelog/6.x.x.txt

@@ -1,4 +1,5 @@
 6.99.4
+ - fix: better checking of selected template type
  - fix: SQLForm - added missing privilege check
  - fix: typo in spectre 
  - fixed a bug where a user could transfer a negative amount of karma to a

lib/WebGUI/Asset/Template.pm

@@ -82,6 +82,7 @@ sub definition {
 					defaultValue=>1
 				},
 				parser=>{
+					noFormPost=>1,
 					fieldType=>'selectList',
 					defaultValue=>[$session->config->get("defaultTemplateParser")]
 				},	
@@ -98,6 +99,21 @@ sub definition {
         return $class->SUPER::definition($session,$definition);
 }
 
+#-------------------------------------------------------------------
+
+sub processPropertiesFromFormPost {
+	my $self = shift;
+	$self->SUPER::processPropertiesFromFormPost;
+	if ($self->getValue("parser") ne $self->session->form->process("parser","className") && ($self->session->form->process("parser","className") ne "")) {
+		my %data;
+		if (isIn($self->session->form->process("parser","className"),@{$self->session->config->get("templateParsers")})) {
+			%data = ( parser => $self->session->form->process("parser","className") );
+		} else {
+			%data = ( parser => $self->session->config->get("defaultTemplateParser") );
+		}
+		$self->update(\%data);
+	}
+}
 
 #-------------------------------------------------------------------
 
@@ -173,9 +189,6 @@ sub getEditForm {
 }
 
 
-
-
-
 #-------------------------------------------------------------------
 
 =head2 getList ( session, namespace )