From 3d3724563f9a4781accc66590dd5c26690ada64d Mon Sep 17 00:00:00 2001 From: rich Date: Fri, 11 Nov 2005 09:39:21 +0000 Subject: [PATCH] Allow select, optgroup, option elements to appear in HTML forms. --- scripts/lib/wikilib.ml | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/scripts/lib/wikilib.ml b/scripts/lib/wikilib.ml index 22f6506..2016009 100644 --- a/scripts/lib/wikilib.ml +++ b/scripts/lib/wikilib.ml @@ -1,7 +1,7 @@ (* COCANWIKI - a wiki written in Objective CAML. * Written by Richard W.M. Jones . * Copyright (C) 2004 Merjis Ltd. - * $Id: wikilib.ml,v 1.3 2004/11/01 16:24:50 rich Exp $ + * $Id: wikilib.ml,v 1.4 2005/11/11 09:39:21 rich Exp $ * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -448,9 +448,13 @@ let allowed_elements = let images = [ "img", ["src"; "alt"; "width"; "height"; "longdesc"] ] in let forms = [ - "form", [ "method"; "action"; "enctype" ]; - "input", [ "name"; "value"; "type"; "size"; "maxlength"; "src"; "alt" ]; - "textarea", [ "name"; "rows"; "cols" ]; + "form", [ "method"; "action"; "enctype"; "tabindex" ]; + "input", [ "name"; "value"; "type"; "size"; "maxlength"; "src"; "alt"; + "tabindex" ]; + "textarea", [ "name"; "rows"; "cols"; "tabindex" ]; + "select", [ "name"; "size"; "multiple"; "disabled"; "tabindex" ]; + "optgroup", [ "disabled"; "label" ]; + "option", [ "selected"; "disabled"; "label"; "value" ]; ] in let tables = [ -- 1.8.3.1