[frontierkernel-commits] odbs/frontierRoot/system/verbs/builtins/radio/prefs checkboxPref,1.1.1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/radio/prefs
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30687

Modified Files:
	checkboxPref 
Log Message:
minor formatting tweaks

lowercase method check, value must be quoted, close input tag, XHTML compliance

Index: checkboxPref
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/verbs/builtins/radio/prefs/checkboxPref,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** checkboxPref	26 Mar 2005 19:43:20 -0000	1.1.1.1
--- checkboxPref	7 Jan 2006 22:32:47 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:system.verbs.builtins.radio.prefs.checkboxPref
  
! on checkboxPref (prompt, adrboolean) {
	ÇChanges:
		Ç8/3/02; 8:43:10 PM by JES
			ÇQuote characters in addresses were mangling the HTML, so now addresses are url-encoded when generating the form element. When processing a POST, we look for the url-encoded field in the postArgs table.
		Ç2/5/02; 11:31:20 AM by PBS
			ÇConditionalized to work in Frontier.
	local (pta = html.getpagetableaddress ());
	if pta^.method == "POST" {
		local (adr = address (string.popFileFromAddress (adrboolean)));
		if system.environment.isRadio { //PBS 02/05/02: conditionalized to work in Frontier
			if defined (pta^.radioresponder.postargs.[string.urlEncode (string.popFileFromAddress (adrboolean))]) {
				adr^ = true}
			else {
				adr^ = false}}
		else {
			if defined (pta^.postargs.[string.urlEncode (string.popFileFromAddress (adrboolean))]) {
				adr^ = true}
			else {
				adr^ = false}}};
	local (checkbox = "<input type=\"checkbox\" name=\"" + string.urlEncode (string.popFileFromAddress (adrboolean)) + "\" value=xxx");
	if adrboolean^ {
		checkbox = checkbox + " checked>"}
	else {
		checkbox = checkbox + ">"};
	return ("<tr><td colspan=\"2\">" + checkbox + "&nbsp;" + prompt + "</td></tr>")}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:system.verbs.builtins.radio.prefs.checkboxPref
  
! on checkboxPref (prompt, adrBoolean) {
	ÇChanges
		Ç1/7/06; 1:04:13 PM by TAC
			Çminor formatting tweaks
			Çlowercase method check, value must be quoted, close input tag, XHTML compliance
		Ç8/3/02; 8:43:10 PM by JES
			ÇQuote characters in addresses were mangling the HTML, so now addresses are url-encoded when generating the form element. When processing a POST, we look for the url-encoded field in the postArgs table.
		Ç2/5/02; 11:31:20 AM by PBS
			ÇConditionalized to work in Frontier.
	
	local (pta = html.getpagetableaddress ());
	
	if string.lower (pta^.method) == "post" {
		local (adr = address (string.popFileFromAddress (adrBoolean)));
		
		if system.environment.isRadio { //PBS 02/05/02: conditionalized to work in Frontier
			if defined (pta^.radioresponder.postargs.[string.urlEncode (string.popFileFromAddress (adrBoolean))]) {
				adr^ = true}
			else {
				adr^ = false}}
		else {
			if defined (pta^.postargs.[string.urlEncode (string.popFileFromAddress (adrBoolean))]) {
				adr^ = true}
			else {
				adr^ = false}}};
	
	local (checkbox = "<input type=\"checkbox\" name=\"" + string.urlEncode (string.popFileFromAddress (adrBoolean)) + "\" value=\"xxx\"");
	
	if adrBoolean^ {
		checkbox = checkbox + " checked"};
	
	checkbox = checkbox + " />";
	
	return ("<tr><td colspan=\"2\">" + checkbox + "&nbsp;" + prompt + "</td></tr>")}
\ No newline at end of file