##local.define(ContactForm)<contentof>
	##local.define(SelectLField)<contentof>
		<select id="id_##formfield.__Label()" name="field.##formfield.__Label()" >
			<option> </option>
			##formfield.foreachIn(item,"Items")<contentof>
				##if error
					##local.defineByRender(pathName)<contentof>fields.##formfield.__Label()</contentof>
					##if context.IsDefined(##local.pathName) 
						##local.defineByRender(test)<contentof>##context.Data(##local.pathName)</contentof>
						##if local.isEqual(test,##item.QualData("")) 
							<option value="##item.QualData("")" selected="selected">##item.QualData("")</option> lapo
						##else
							<option value="##item.QualData("")" >##item.QualData("")</option>
						##endif
					##endif
				##else
					<option value="##item.QualData("")" >##item.QualData("")</option>
				##endif
			</contentof>
		</select>
	</contentof>
	##local.define(SelectField)<contentof>
		
		<select id="id_##formfield.__Label()" name="field.##formfield.__Label()">
			<option> </option>
			##formfield.foreachIn(item,"Items")<contentof>
				##if error
					##local.defineByRender(pathName)<contentof>fields.##formfield.__Label()</contentof>
					##if context.IsDefined(##local.pathName) 
						##local.defineByRender(test)<contentof>##context.Data(##local.pathName)</contentof>
						##if local.isEqual(test,##item) 
							<option value="##item" selected="selected">##item</option> lapo
						##else
							<option value="##item" >##item</option>
						##endif
					##endif
				##else
					<option value="##item" >##item</option>
				##endif
			</contentof>
		</select>
	</contentof>

	##local.define(StringField)<contentof>
		
		<INPUT id="id_##formfield.__Label()" name="field.##formfield.__Label()" 
		##if formfield.IsDefined(Size) 
			size="##formfield.Size"
		##else
			size="60"
		##endif
			title = "##formfield.QualData(ToolTip)" 
		
		##if formfield.IsDefined(Default) 
			value="##formfield.QualData(Default)"
		##endif
		##if error
			##local.defineByRender(pathName)<contentof>fields.##formfield.__Label()</contentof>
			##if context.IsDefined(##local.pathName)
				value="##context.Data(##local.pathName)"
			##else
				value=""
			##endif
		##endif />
		
	</contentof>

	##local.define(TextField)<contentof>
		##if error
			##local.defineByRender(pathName)<contentof>fields.##formfield.__Label()</contentof>
			##if context.IsDefined(##local.pathName)				
				<Textarea  name="field.##formfield.__Label()" id="id_##formfield.__Label()" title="##formfield.QualData(ToolTip)" 
				cols=60 rows=10 >##context.Data(##local.pathName)</Textarea>
			##else
				<Textarea  name="field.##formfield.__Label()" id="id_##formfield.__Label()" title="##formfield.QualData(ToolTip)" 
					cols=60 rows=10 ></Textarea>
			##endif 
		##else
			<Textarea  name="field.##formfield.__Label()" id="id_##formfield.__Label()" title="##formfield.QualData(ToolTip)" 
					##if formfield.IsEqual(Column,"")
						cols="60"
					##else
						cols="##formfield.Column"
					##endif
					
					##if formfield.IsEqual(Row,"")
						rows="10"
					##else
						rows="##formfield.Row"
					##endif
			  ></Textarea>
		##endif	
	</contentof>

		<form name="customForm" method="POST" action="##this.obj" onsubmit="return CheckFields()">
			
			##this.stylesetforform
			<INPUT type="hidden" name="SubView" value="Message">
			<INPUT type="hidden" name="mtype" value="##local.MessageType">
			<INPUT type="hidden" name="Method" value="Send">
			<INPUT type="hidden" name="FromWeb" value="1">
			<INPUT type="hidden" name="UseCategoriesFor" value="ZONES">
			<INPUT type="hidden" name="configPath" value="ZONES.Feedback.Categories">
			<INPUT type="hidden" name="BrowseAsHloc" value="##local.thisLoc" >
			<script>
			
			// Declaring required variables
			var digits = "0123456789";
			// non-digit characters which are allowed in phone numbers
			var phoneNumberDelimiters = "()- ";
			// characters which are allowed in international phone numbers
			// (a leading + is OK)
			var validWorldPhoneChars = phoneNumberDelimiters + "+";
			// Minimum no of digits in an international phone no.
			var minDigitsInIPhoneNumber = 10;
				
			
			function clearValue(name,defaultValue){
			
				var elem = document.getElementById("id_"+name);
				if (elem.value == defaultValue)
				{
					elem.value = "";
					elem.style.color ="black";
				}
			}

                    
			function CheckMandatoryField( name )
			{
				var elem = document.getElementById(name);
				if
					(elem == null)
				{
					//alert("failed to find field elem "+name);
				}
				var s = elem.value;
				
				var span = document.getElementById("mandatory."+name);
				
				if(s == "")
				{
					if
						(span != null)
					{
						span.style.display = "";
					}
					return false;
				}
				else
				{
					if
						(span != null)
					{
						span.style.display = "none";
					}
					//alert("1: "+elem.name+": "+s);
					
					return true;
				}
			}
			
								
			function isInteger(s)
			{   var i;
			    for (i = 0; i < s.length; i++)
			    {   
				// Check that current character is number.
				var c = s.charAt(i);
				if (((c < "0") || (c > "9"))) return false;
			    }
			    // All characters are numbers.
			    return true;
			}
			
			
			function trim(s)
			{   var i;
			    var returnString = "";
			    // Search through string's characters one by one.
			    // If character is not a whitespace, append to returnString.
			    for (i = 0; i < s.length; i++)
			    {   
				// Check that current character isn't whitespace.
				var c = s.charAt(i);
				if (c != " ") returnString += c;
			    }
			    return returnString;
			}
			
			function stripCharsInBag(s, bag)
			{   var i;
			    var returnString = "";
			    // Search through string's characters one by one.
			    // If character is not in bag, append to returnString.
			    for (i = 0; i < s.length; i++)
			    {   
				// Check that current character isn't whitespace.
				var c = s.charAt(i);
				if (bag.indexOf(c) == -1) returnString += c;
			    }
			    return returnString;
			}

			function checkInternationalPhone(name){
				var strPhone = document.getElementById(name).value;
				var spanInvalid = document.getElementById("invalid."+name);
				var spanMandatory =  document.getElementById("mandatory."+name);
				var regexObj = /^\(?([0-9]{3})\)?[-. ]?([0-9]{3})[-. ]?([0-9]{4})$/;
				
				if (regexObj.test(strPhone)) {
					var formattedPhoneNumber = strPhone.replace(regexObj, "($1) $2-$3");
					document.getElementById(name).value = formattedPhoneNumber;
					return true;
				} 
				else 
				{
					if(spanInvalid != spanMandatory != null)
					{
						if (spanMandatory.style.display == "none")
							spanInvalid.style.display = "";
						return false;
					}
				}
			}

			function checkEmail(name) {
				var result = false;
				var email = document.getElementById(name);
				var filter = /^([a-zA-Z0-9_.-])+@(([a-zA-Z0-9-])+.)+([a-zA-Z0-9]{2,4})+$/;
				var spanInvalid = document.getElementById("invalid."+name);
				var spanMandatory =  document.getElementById("mandatory."+name);
				result =  (filter.test(email.value))					
				if (result)
					return result;
				else
				{
					if(spanInvalid != spanMandatory != null)
					{
						if (spanMandatory.style.display == "none")
							spanInvalid.style.display = "";
						return result;
					}
				}	
			}
			
			function appendPrefixField(name){
				
				var elem = document.getElementById(name);
				var prefix = document.getElementById("field.subject");
				
				prefix.value += " - "+elem.value;
				//alert(prefix.value);
			}
			



			function CheckFields()
			{
				var result = true;
										
				/* so now just figure out which of these is really mandatory */
				/* consider adding a check for a valid email address as well */
				
				
				##if local.IsEqual(UseCustomForm,1)
					##sessioncfg.with(cat,ZONES.Feedback.Categories)<contentof>
						##cat.with(message,##local.MessageType)<contentof>
							##message.with(form, "Fields")<contentof>
								##form.foreachIn(formfield,"")<contentof>
									##local.defineByRender(RPath)<contentof>field.##formfield.__Label()</contentof>
										##if formfield.IsEqual(Mandatory,1) 
											result = CheckMandatoryField( "##local.RPath" ) && result;
										##endif
										##if formfield.IsEqual(Validation,"phone") 
											result = checkInternationalPhone( "##local.RPath") && result;
										##endif
										##if formfield.IsEqual(Validation,"email") 
											result = checkEmail( "##local.RPath") && result;
										##endif
										##if formfield.IsEqual(SubjectPrefix,1)
											if (result)
											appendPrefixField("##local.RPath");
										##endif
								</contentof>
							</contentof>
						</contentof>
					</contentof>
				##endif	
				return result;
			}
                    
              </script>
            ##if request.IsEqual(StandAloneFeedback,1)
                <INPUT type="hidden" name="StandAloneFeedback" value="1">
            ##else
                <INPUT type="hidden" name="StandAloneFeedback" value="0">
            ##endif
			<TABLE  border="0" cellpadding="0" cellspacing="0">

				##form.foreachIn(formfield,"")<contentof>
					<tr>
						<td valign=top>##formfield.QualData(Label) ##if formfield.IsEqual(Mandatory,1) <span>*</span> ##endif </td>
						<td>
							##if formfield.IsEqual(Type,Select)
								##local.SelectField
							##endif
							##if formfield.IsEqual(Type,SelectL)
								##local.SelectLField
							##endif
							##if formfield.IsEqual(Type,String)
								##local.StringField
							##endif
							##if formfield.IsEqual(Type,Text)
								##local.TextField
							##endif
							##if formfield.isDefined(Hint) 
							<span id="hint.field.##formfield.__Label()" style="color:#7A7A7A;font-style:italic;">##formfield.Hint</span>
							##endif
							<span id="mandatory.field.##formfield.__Label()" style="display:none;" >##leg.ZONESOPAC.MakePreInscription.MissingFieldContent</span>
							<span id="invalid.field.##formfield.__Label()" style="display:none;" >##leg.ZONESOPAC.MakePreInscription.InvalidFieldContent</span> 
							
						</td>
					</tr>	
				</contentof>
				<tr>
					<td>
						
					</td>
					<td>
						##local.Define(CommandButtonText)<CONTENTOF>##leg.ZONESOPAC.Feedback.Message.SendButton</CONTENTOF>
						##local.Define(CommandButtonTextTIP)<CONTENTOF>##leg.ZONESOPAC.Feedback.Message.SendButtonTIP</CONTENTOF>
						##local.Define(CommandButtonTextALT)<CONTENTOF>##leg.ZONESOPAC.Feedback.Message.SendButtonALT</CONTENTOF>
						##local.SubmitButtonFMT

					</td>
				</tr>
			</TABLE>
		</form>
	
			

	
</contentof>

##if error.Level
	##if context.SentMessage
		##local.define(HandledError)<CONTENTOF>1</CONTENTOF>
	##endif
##endif



##local.define(SuppressFeedbackButton)<contentof>1</contentof>

##if request.IsEqual(SubView,"Message")
	##if request.mtype
		##local.define(Message)<CONTENTOF>1</CONTENTOF>
		##local.defineByRender(MessageType)<CONTENTOF>##request.mtype</CONTENTOF>

	##endif
##endif

	##helpcontext.addHelp(Toolbar)


##if sessioncfg.IsEqual(ZONES.Feedback.Behaviour,"")

##else 
	##local.define(Message)<CONTENTOF>1</CONTENTOF>
	##local.defineByRender(MessageType)<CONTENTOF>##sessioncfg.ZONES.Feedback.Behaviour</CONTENTOF>
##endif
	
##if local.Message
	##if request.BrowseAsHloc
		##local.DefineByRender(thisLoc)<contentof>##request.BrowseAsHloc</contentof>
	##else
		##if searchcontext.BrowseAsHloc
			##if searchcontext.IsEqual("BrowseAsHloc","-2")
				##if sessioncfg.ZONES.BrowseOptions.BrowseAsHloc 
					##local.DefineByRender(thisLoc)<contentof>##sessioncfg.ZONES.BrowseOptions.DefaultBrowseSearchHLOC</contentof>
				##else
					##local.DefineByRender(thisLoc)<contentof>##searchcontext.BrowseAsHloc</contentof>
				##endif
			##else
				##local.DefineByRender(thisLoc)<contentof>##searchcontext.BrowseAsHloc</contentof>
			##endif
		##else
			##local.DefineByRender(thisLoc)<contentof>##sessioncfg.ZONES.BrowseOptions.DefaultBrowseSearchHLOC</contentof>
		##endif
	##endif

	##this.SubView(##request.SubView&BrowseAsHloc=##local.thisLoc)

    ##if request.StandAloneFeedback
        ##local.defineByRender(TOOLBAR_URL_BACK)<CONTENTOF>APS_ZONES?fn=LibraryZone&##this.StyleSet</CONTENTOF>
    ##else
        ##if local.SentMessage
            ##local.defineByRender(TOOLBAR_URL_BACK)<CONTENTOF>APS_ZONES?fn=LibraryZone&##this.StyleSet</CONTENTOF>
        ##else
            ##local.defineByRender(TOOLBAR_URL_BACK)<CONTENTOF>##this&BrowseAsHloc=##local.thisLoc&SubView=</CONTENTOF>
        ##endif
    ##endif
	
	
	
	
    
	##local.define(Title)<CONTENTOF>
		
	</CONTENTOF>

	##local.define(PageTitle)<CONTENTOF>
		##leg.Expand(ZONESOPAC.Feedback.Message.Title)
	</CONTENTOF>

	##local.define(Advice)<CONTENTOF>
		##sessioncfg.With(Cats,"ZONES.Feedback.Categories")<CONTENTOF>
			##Cats.QualData(##local.MessageType,".Advice")
		</CONTENTOF>
		<br>
		<br>
        ##if local.SentMessage
    		##leg.ZONESOPAC.Feedback.SentMessage.Prompt
        ##else                
		    ##leg.ZONESOPAC.Feedback.Message.Prompt
		    
		    
        ##endif
	</CONTENTOF>

	##helpcontext.addHelp(Feedback.Message)
	##local.define(Content)<CONTENTOF>
	
	/*##local.MyDefine*/
		
		##local.define(lastSubject)<contentof></contentof>
		##local.define(lastReplyTo)<contentof></contentof>
		##local.define(lastBrwr)<contentof></contentof>
		##local.define(lastMessageText)<contentof></contentof>
		##if error.Level
			##local.define(lastSubject)<contentof>##context.Subject</contentof>
			##local.define(lastReplyTo)<contentof>##context.ReplyTo</contentof>
			##local.define(lastBrwr)<contentof>##context.BRWR</contentof>
			##local.define(lastMessageText)<contentof>##context.MessageText</contentof>
			
			##if context.SentMessage
				##local.define(SentMessage)<contentof>1</contentof>
			##endif
		##endif

		##local.define(List)<CONTENTOF>
	
			##if local.SentMessage
                        
			<TABLE cellspacing="0" cellpadding="0">
                        
				##local.define(HandledError)<CONTENTOF>1</CONTENTOF>
				##local.define(Value)<CONTENTOF>
					##leg.Expand(ZONESOPAC.Feedback.Message.SentAdvice,GoBackLeg,##leg.Data(ZONESOPAC.ButtonCaption.Back))
				</CONTENTOF>
				<tr><td>
                    ##local.Value</td>
                </tr>
                <tr>
                    <script type="text/javascript">
                        function GoBack()
                        {
                            gotoUrl( "##local.TOOLBAR_URL_BACK" );
                        }
                 </script>
                    <td>
                        <br>
                    <span style="width:50px">&nbsp;</span><button onclick="GoBack()">##leg.ZONESOPAC.Feedback.UpdatedOKButton</button>
                    </td>
                </tr>
                
            </TABLE>

			##else
			
			<TABLE cellpadding="0">
			
			##if sessioninfo.ZONES.Brwr
				##local.define(lastBrwr)<contentof>##sessioninfo.ZONES.Brwr</contentof>			
			##endif
			##sessioncfg.with(cat,ZONES.Feedback.Categories)<contentof>
				##cat.with(message,##local.MessageType)<contentof>
					##if message.IsEqual(NeedAccount,1)
						##local.Define(AccountMandatory)<contentof>1</contentof>
					##endif
					
					##if message.IsEqual(NeedReplyTo,1)
						##local.Define(ReplyToMandatory)<contentof>1</contentof>
					##endif					
					
					##if message.IsMap(Fields)
						##local.Define(UseCustomForm)<contentof>1</contentof>
					##endif					
					
					
				</contentof>
				
			</contentof>
			
			
			##if local.IsEqual(UseCustomForm,1)
				##sessioncfg.with(cat,ZONES.Feedback.Categories)<contentof>
					##cat.with(message,##local.MessageType)<contentof>
						##message.with(form, "Fields")<contentof>
							##local.ContactForm
						</contentof>
					</contentof>
				</contentof>
			##else
			
			<FORM id="loginForm" method="POST" action="##this.obj" onsubmit="return CheckFields()">
			##this.stylesetforform
			<INPUT type="hidden" name="SubView" value="Message">
			<INPUT type="hidden" name="mtype" value="##local.MessageType">
			<INPUT type="hidden" name="Method" value="Send">
			<INPUT type="hidden" name="FromWeb" value="1">
			<INPUT type="hidden" name="UseCategoriesFor" value="ZONES">
			<INPUT type="hidden" name="configPath" value="ZONES.Feedback.Categories">
			<INPUT type="hidden" name="BrowseAsHloc" value="##local.thisLoc" >
			
            ##if request.IsEqual(StandAloneFeedback,1)
                <INPUT type="hidden" name="StandAloneFeedback" value="1">
            ##else
                <INPUT type="hidden" name="StandAloneFeedback" value="0">
            ##endif
			<TR>
				<TD>
				
				<TABLE>
			<TR>
				<TD align="left" >
				&nbsp; ##leg.ZONESOPAC.Feedback.Message.Subject:&nbsp; 
				</TD>
				<TD>


				<INPUT id="Subject" name="Subject" size=62 value="##local.lastSubject">
				<span id="mandatory.Subject" style="display:none;" >##leg.ZONESOPAC.MakePreInscription.MissingFieldContent</span>

				<script>
                    function setFirstFocus()
                    {
                        var loginForm = document.getElementById("loginForm");
                        loginForm.Subject.focus()
                    }
                    documentManager.addStartup(setFirstFocus);

					function CheckMandatoryField( name )
					{
						var elem = document.getElementById(name);
						if
							(elem == null)
						{
							alert("failed to find field elem "+name);
						}
						var s = elem.value;
						
						var span = document.getElementById("mandatory."+name);
						
						if(s == "")
						{
							if
								(span != null)
							{
								span.style.display = "";
							}
							return false;
						}
						else
						{
							if
								(span != null)
							{
								span.style.display = "none";
							}
							//alert("1: "+elem.name+": "+s);
							return true;
						}
					}

					function CheckFields()
					{
						var result = true;
												
						/* so now just figure out which of these is really mandatory */
						/* consider adding a check for a valid email address as well */
						##if local.IsEqual(ReplyToMandatory,1)
							result =  CheckMandatoryField("ReplyTo") && result;
						##endif
						
						##if local.IsEqual(AccountMandatory,1)
							result =  CheckMandatoryField("BRWR") && result;
						##endif
						
						result =  CheckMandatoryField("Subject") && result;
						result =  CheckMandatoryField("MessageText") && result;				
						
						return result;
					}
                    
              </script>
                                </TD>
			</TR>
			<TR>
				<TD align="left" >
				&nbsp; ##leg.ZONESOPAC.Feedback.Message.ReplyTo: ##if local.IsEqual(ReplyToMandatory,1) ##endif &nbsp;
				</TD>
				<TD>

				<INPUT name="ReplyTo" size=62 id="ReplyTo" value="##local.lastReplyTo">
				<span id="mandatory.ReplyTo" style="display:none;" >##leg.ZONESOPAC.MakePreInscription.MissingFieldContent</span>

				</TD>
			</TR>
			<TR>
				<TD align="left" >
				&nbsp; ##leg.ZONESOPAC.Feedback.Message.Account:&nbsp;
				</TD>
				<TD>
				<INPUT ##if sessioninfo.ZONES.Brwr disabled=disabled ##endif type=text id="BRWR" name="BRWR" value="##local.lastBrwr">
				<span id="mandatory.BRWR" style="display:none;" >##leg.ZONESOPAC.MakePreInscription.MissingFieldContent</span>

				
			</TD>
			</TR>
			</TD></TR></TABLE>
			<TR>
				<TD align="left"  colspan = 2>
				<TEXTAREA  cols=90 rows=20 name=MessageText id="MessageText" >##local.lastMessageText</TEXTAREA>
				<span id="mandatory.MessageText" style="display:none;" >##leg.ZONESOPAC.MakePreInscription.MissingFieldContent</span>

				</TD>
			</TR>

			
			<TR>
				<TD colspan=2 align="right">
				<br>			
					##local.Define(CommandButtonText)<CONTENTOF>##leg.ZONESOPAC.Feedback.Message.SendButton</CONTENTOF>
					##local.Define(CommandButtonTextTIP)<CONTENTOF>##leg.ZONESOPAC.Feedback.Message.SendButtonTIP</CONTENTOF>
					##local.Define(CommandButtonTextALT)<CONTENTOF>##leg.ZONESOPAC.Feedback.Message.SendButtonALT</CONTENTOF>
					##local.SubmitButtonFMT
				</TD>
			</TR>
			
			<TR>
				<TD colspan=2> &nbsp;
				##if error.Level
					<div style="width:48em;">
						/*##local.ErrorAdvice*/
					</div>
				##endif
		    	</TD>
		    </TR>
		    
		</FORM>
			</table>
			
			##endif


			
			
			##endif

			

		</CONTENTOF>
		
			<div style="overflow:auto;width:100%;height:100%">##local.List</div>
		
	</CONTENTOF>

##else
	##this.SubView()

	##local.define(Title)<CONTENTOF>
		##leg.ZONESOPAC.Feedback.SelectType.Title
	</CONTENTOF>

	##local.define(PageTitle)<CONTENTOF>
		##leg.Expand(ZONESOPAC.Feedback.SelectType.Title)
	</CONTENTOF>

	##local.define(Advice)<CONTENTOF>
		##leg.ZONESOPAC.Feedback.SelectType.Prompt
	</CONTENTOF>

	##helpcontext.addHelp(Feedback.SelectType)
	
	
	##local.define(Content)<CONTENTOF>

	
		##local.define(List)<CONTENTOF>
				
			##leg.ZONESOPAC.Feedback.SelectType.Advice <br>
			
			<div style="margin-left:10px;">
				<FORM method="POST" action="##this.obj" >
					##this.stylesetforform
					<INPUT type="hidden" name="SubView" value="Message">
					<INPUT type="hidden" name="BrowseAsHloc" value="##local.thisLoc">
					##local.Define(First)<contentof>1</contentof>
					
					##sessioncfg.With(Cats,"ZONES.Feedback.Categories")<CONTENTOF>
						##Cats.ForEachIn(C,"")<CONTENTOF>
							<div>
								##local.DefineByRender(mtype)<contentof>##C.__Label()</contentof>
								
								##if local.IsEqual(mtype,"Seperator")
									<hr>
								##else 
									##if local.IsEqual(mtype,"Blank")
										<br>
									##else
										<INPUT type=radio name="mtype" border=0 ##if local.IsEqual(First,1) CHECKED ##endif value="##local.mtype">##C.QualData("Prompt")
									##endif
								##endif
							</div>
							##local.Define(First)<contentof>0</contentof>
						</CONTENTOF>
					</CONTENTOF>
					<div><br></div>
					
					##local.Define(CommandButtonText)<CONTENTOF>##leg.ZONESOPAC.Feedback.SelectType.Button</CONTENTOF>
					##local.Define(CommandButtonTextTIP)<CONTENTOF>##leg.ZONESOPAC.Feedback.SelectType.ButtonTIP</CONTENTOF>
					##local.Define(CommandButtonTextALT)<CONTENTOF>##leg.ZONESOPAC.Feedback.SelectType.ButtonALT</CONTENTOF>
					##local.SubmitButtonFMT

				</FORM>
				
			</div>
			
			
			
		</CONTENTOF>

		
		
		<div style="overflow:auto;width:100%;height:100%">
			
		##local.List
		</div>
		
	</CONTENTOF>
##endif




 



##include(Body)