amalgame/commit

Added class name to html:select element

authorJacco van Ossenbruggen
Wed Sep 17 20:49:02 2014 +0200
committerJacco van Ossenbruggen
Wed Sep 17 20:49:02 2014 +0200
commit9c1b4e37745e1fcd9f29cd2a8bf740eaa401d83e
tree7b0b0089a56da6fc40f629e339a0fbccd2aa9254
parent3e943bb14b01641dda00608698320b4d3829fa62
Diff style: patch stat
diff --git a/components/amalgame/util.pl b/components/amalgame/util.pl
index 73022fd..f7cd5de 100644
--- a/components/amalgame/util.pl
+++ b/components/amalgame/util.pl
@@ -101,7 +101,7 @@ builtin_input_item(between(L,U), Value, Name) --> !,
 		     min(L), max(U), value(Value)
 		   ])).
 builtin_input_item(oneof(List), Value, Name) --> !,
-	html(select([name(Name)], \oneof(List, Value))).
+	html(select([class(Name), name(Name)], \oneof(List, Value))).
 builtin_input_item(uri, Value, Name) -->
 	{ rdf_global_id(NS:Local, Value),!
 	},