You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2001/09/01 23:08:12 UTC
cvs commit: embperl epcmd.c
richter 01/09/01 14:08:12
Modified: . Tag: Embperl2c epcmd.c
Log:
Revision Changes Path
No revision
No revision
1.37.4.5 +29 -2 embperl/epcmd.c
Index: epcmd.c
===================================================================
RCS file: /home/cvs/embperl/epcmd.c,v
retrieving revision 1.37.4.4
retrieving revision 1.37.4.5
diff -u -r1.37.4.4 -r1.37.4.5
--- epcmd.c 2001/05/16 06:45:21 1.37.4.4
+++ epcmd.c 2001/09/01 21:08:12 1.37.4.5
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epcmd.c,v 1.37.4.4 2001/05/16 06:45:21 richter Exp $
+# $Id: epcmd.c,v 1.37.4.5 2001/09/01 21:08:12 richter Exp $
#
###################################################################################*/
@@ -62,6 +62,8 @@
/*in*/ const char * sArg) ;
static int HtmlSelect (/*i/o*/ register req * r,
/*in*/ const char * sArg) ;
+static int HtmlEndselect (/*i/o*/ register req * r,
+ /*in*/ const char * sArg) ;
static int HtmlOption (/*i/o*/ register req * r,
/*in*/ const char * sArg) ;
static int HtmlEndtable (/*i/o*/ register req * r,
@@ -96,7 +98,7 @@
{ "/dl", HtmlEndtable, 0, 1, cmdTable, 0, 0, cnDl , optDisableTableScan, 1 } ,
{ "/menu", HtmlEndtable, 0, 1, cmdTable, 0, 0, cnMenu , optDisableTableScan, 1 } ,
{ "/ol", HtmlEndtable, 0, 1, cmdTable, 0, 0, cnOl , optDisableTableScan, 1 } ,
- { "/select", HtmlEndtable, 0, 1, cmdTable, 0, 0, cnSelect , optDisableSelectScan, 1 } ,
+ { "/select", HtmlEndselect, 0, 1, cmdTable, 0, 0, cnSelect , optDisableSelectScan, 1 } ,
{ "/table", HtmlEndtable, 0, 1, cmdTable, 0, 0, cnTable , optDisableTableScan, 1 } ,
{ "/textarea", HtmlEndtextarea, 0, 1, cmdTextarea, 0, 0, cnNop , optDisableInputScan, 1 } ,
{ "/tr", HtmlEndrow, 0, 1, cmdTablerow, 0, 0, cnTr , optDisableTableScan, 1 } ,
@@ -1557,6 +1559,31 @@
return HtmlTable (r, sArg) ;
}
+/* ---------------------------------------------------------------------------- */
+/* */
+/* /select tag ... */
+/* */
+/* ---------------------------------------------------------------------------- */
+
+static int HtmlEndselect (/*i/o*/ register req * r,
+ /*in*/ const char * sArg)
+ {
+ if (r -> bOptions & optAllFormData)
+ {
+ char * pName ;
+ int l ;
+ EPENTRY (HtmlEndselect) ;
+
+ pName = r -> HtmlStack.State.sArg?r -> HtmlStack.State.sArg:"" ;
+ l = strlen (pName) ;
+
+ if (!hv_exists (r -> pInputHash, pName, l))
+ if (hv_store (r -> pInputHash, pName, l, &sv_undef, 0) == NULL)
+ return rcHashError ;
+ }
+
+ return HtmlEndtable (r, sArg) ;
+ }
/* ---------------------------------------------------------------------------- */
/* */
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org