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 2006/09/10 15:19:35 UTC
svn commit: r441950 - in /perl/embperl/trunk: Embperl/Form.pm
test/conf/httpd.conf.src
Author: richter
Date: Sun Sep 10 06:19:35 2006
New Revision: 441950
URL: http://svn.apache.org/viewvc?view=rev&rev=441950
Log:
init_data method for Embperl::Form
Modified:
perl/embperl/trunk/Embperl/Form.pm
perl/embperl/trunk/test/conf/httpd.conf.src
Modified: perl/embperl/trunk/Embperl/Form.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form.pm?view=diff&rev=441950&r1=441949&r2=441950
==============================================================================
--- perl/embperl/trunk/Embperl/Form.pm (original)
+++ perl/embperl/trunk/Embperl/Form.pm Sun Sep 10 06:19:35 2006
@@ -440,11 +440,24 @@
{
my ($self, $req, $activeid) = @_ ;
+ $self -> init_data ($req) if ($self -> {toplevel});
+ #$self -> validate ($req) if ($self -> {toplevel});
$self -> show_form_begin ($req) if ($self -> {toplevel});
$self -> show_controls ($req, $activeid) ;
$self -> show_form_end ($req) if ($self -> {toplevel});
}
+
+# ---------------------------------------------------------------------------
+#
+# init_data -
+#
+
+sub init_data
+
+ {
+
+ }
# ---------------------------------------------------------------------------
#
Modified: perl/embperl/trunk/test/conf/httpd.conf.src
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/conf/httpd.conf.src?view=diff&rev=441950&r1=441949&r2=441950
==============================================================================
--- perl/embperl/trunk/test/conf/httpd.conf.src (original)
+++ perl/embperl/trunk/test/conf/httpd.conf.src Sun Sep 10 06:19:35 2006
@@ -153,7 +153,7 @@
Embperl_Cookie_Path /
Embperl_Cookie_Expires "+1d"
EMBPERL_ALLOW (asc|\\.xml\$|\\.htm\$)
-
+Embperl_Top_Include "use strict;"
<Location /embperl/log>
SetHandler perl-script
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org