You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by mx...@apache.org on 2016/11/22 09:08:37 UTC
svn commit: r1770813 - in /tcl/rivet/trunk: ChangeLog
rivet/packages/form/form.tcl rivet/packages/form/form2.tcl
Author: mxmanghi
Date: Tue Nov 22 09:08:37 2016
New Revision: 1770813
URL: http://svn.apache.org/viewvc?rev=1770813&view=rev
Log:
* rivet/packages/form/form.tcl,form2.tcl: now fully qualifying mod_rivet commands
Modified:
tcl/rivet/trunk/ChangeLog
tcl/rivet/trunk/rivet/packages/form/form.tcl
tcl/rivet/trunk/rivet/packages/form/form2.tcl
Modified: tcl/rivet/trunk/ChangeLog
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/ChangeLog?rev=1770813&r1=1770812&r2=1770813&view=diff
==============================================================================
--- tcl/rivet/trunk/ChangeLog (original)
+++ tcl/rivet/trunk/ChangeLog Tue Nov 22 09:08:37 2016
@@ -1,5 +1,6 @@
2016-11-22 Massimo Manghi <mx...@apache.org>
- * rivet/packages/session/session-class.tcl: now
+ * rivet/packages/session/session-class.tcl:
+ * rivet/packages/form/form.tcl,form2.tcl: now
fully qualifying mod_rivet commands
* doc/xml/formbroker.xml: correct coding example
Modified: tcl/rivet/trunk/rivet/packages/form/form.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/packages/form/form.tcl?rev=1770813&r1=1770812&r2=1770813&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/packages/form/form.tcl (original)
+++ tcl/rivet/trunk/rivet/packages/form/form.tcl Tue Nov 22 09:08:37 2016
@@ -179,14 +179,14 @@ package provide form 1.0
# replicated in constructor
import_data form $this arguments $args
}
- html "<form [argstring arguments]>"
+ ::rivet::html "<form [argstring arguments]>"
}
#
# end - generate the </form>
#
method end {} {
- html "</form>"
+ ::rivet::html "</form>"
}
#
@@ -247,7 +247,7 @@ package provide form 1.0
}
# ...and emit it
- html $string
+ ::rivet::html $string
}
@@ -475,7 +475,7 @@ package provide form 1.0
}
# emit the selector
- html "<select name=\"$name\" [argstring data]>"
+ ::rivet::html "<select name=\"$name\" [argstring data]>"
# emit each label-value pair
foreach label $labels value $values {
@@ -484,9 +484,9 @@ package provide form 1.0
} else {
set string "<option value=\"$value\">"
}
- html "$string$label</option>"
+ ::rivet::html "$string$label</option>"
}
- html "</select>"
+ ::rivet::html "</select>"
}
#
@@ -499,7 +499,7 @@ package provide form 1.0
set value $data(value)
unset data(value)
}
- html "<textarea name=\"$name\" [argstring data]>$value</textarea>"
+ ::rivet::html "<textarea name=\"$name\" [argstring data]>$value</textarea>"
}
#
Modified: tcl/rivet/trunk/rivet/packages/form/form2.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/trunk/rivet/packages/form/form2.tcl?rev=1770813&r1=1770812&r2=1770813&view=diff
==============================================================================
--- tcl/rivet/trunk/rivet/packages/form/form2.tcl (original)
+++ tcl/rivet/trunk/rivet/packages/form/form2.tcl Tue Nov 22 09:08:37 2016
@@ -242,14 +242,14 @@ package provide form 2.1
# replicated in constructor
import_data form $this arguments $args
}
- html "<form [argstring arguments]>"
+ ::rivet::html "<form [argstring arguments]>"
}
#
# end - generate the </form>
#
method end {} {
- html "</form>"
+ ::rivet::html "</form>"
}
#
@@ -311,7 +311,7 @@ package provide form 2.1
}
# ...and emit it
- html $string
+ ::rivet::html $string
}
@@ -587,7 +587,7 @@ package provide form 2.1
} elseif {[default_exists $name]} {
set value [default_value_get $name]
}
- html "<textarea name=\"$name\" [argstring data]>$value</textarea>"
+ ::rivet::html "<textarea name=\"$name\" [argstring data]>$value</textarea>"
}
#
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org