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

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

##if local.Message
	##this.SubView(##request.SubView)

	##local.define(Title)<CONTENTOF>
		##leg.OPAC.Feedback.Message.Title
	</CONTENTOF>

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

	##local.define(Prompt)<CONTENTOF>
		##leg.OPAC.Feedback.Message.Prompt
	</CONTENTOF>

	##helpcontext.addHelp(Feedback.Message)

	##local.define(ScrollButtons)<CONTENTOF>1</CONTENTOF>

	##local.define(Content)<CONTENTOF>

		##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(OPAC.Feedback.Message.SentAdvice,GoBackLeg,##leg.Data(WEBOPAC.Defaults.Button.GoBack))
				</CONTENTOF>
				##local.AdviceRowTemplate

			</TABLE>

			##else
			
			<TABLE cellpadding="0">
			
			##local.define(Value)<CONTENTOF>
				##sessioncfg.With(Cats,"WEBOPAC.Feedback.Categories")<CONTENTOF>
					##Cats.QualData(##request.mtype,".Advice")
				</CONTENTOF>
			</CONTENTOF>
			##local.AdviceRowTemplate
			
			<FORM id="loginForm" method="POST" action="##this.obj">
			##this.stylesetforform

			<INPUT type="hidden" name="SubView" value="Message">
			<INPUT type="hidden" name="mtype" value="##request.mtype">
			<INPUT type="hidden" name="Method" value="Send">
			<INPUT type="hidden" name="FromWeb" value="1">
			<INPUT type="hidden" name="configPath" value="WEBOPAC.Feedback.Categories">
			
			<TR>
				<TD><TABLE>
			<TR>
				<TD align="left" >
				&nbsp; ##leg.OPAC.Feedback.Message.Subject:&nbsp;
				</TD>
				<TD>

				<INPUT name="Subject" size=62 value="##local.lastSubject">
				</TD>
			</TR>
			<TR>
				<TD align="left" >
				&nbsp; ##leg.OPAC.Feedback.Message.ReplyTo:&nbsp;
				</TD>
				<TD>

				<INPUT name="ReplyTo" size=62 value="##local.lastReplyTo">
				</TD>
			</TR>
			<TR>
				<TD align="left" >
				&nbsp; ##leg.OPAC.Feedback.Message.Account:&nbsp;
				</TD>
				<TD>
				<INPUT type=text name="BRWR" value="##local.lastBrwr">
				</TD>
			</TR>
			</TD></TR></TABLE>
			<TR>
				<TD align="left"  colspan = 2>
				<TEXTAREA  cols=60 rows=15 name=MessageText >##local.lastMessageText</TEXTAREA>
				</TD>
			</TR>
					
			<TR>
			<TD align="left">
			<INPUT  type="submit" name="submitButton" value="##leg.Expand(OPAC.Forms.Buttons.Next) >>">
			</TD>
			</TR>
			</FORM>
			
			##endif

			</TABLE>

		</CONTENTOF>

		##include(Layout)

	</CONTENTOF>

##else
	##this.SubView()

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

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

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

	##helpcontext.addHelp(Feedback.SelectType)

	##local.define(ScrollButtons)<CONTENTOF>1</CONTENTOF>

	##local.define(Content)<CONTENTOF>

		##local.define(List)<CONTENTOF>
			<TABLE  cellpadding="0">
				##local.define(Value)<CONTENTOF>
				##leg.OPAC.Feedback.SelectType.Advice
			</CONTENTOF>
			##local.AdviceRowTemplate
			<FORM id="loginForm" method="POST" action="##this.obj">
			##this.stylesetforform
			<INPUT type="hidden" name="SubView" value="Message">

			##sessioncfg.With(Cats,"WEBOPAC.Feedback.Categories")<CONTENTOF>
				##Cats.ForEachIn(C,"")<CONTENTOF>
					<TR><TD><INPUT type=radio name="mtype" CHECKED value="##C.__Label()">##C.QualData("Prompt")</TD></TR>
				</CONTENTOF>
			</CONTENTOF>

			<TR>
			<TD align="left">
			<INPUT ALSiClass=Submit type="submit" name="submitButton" value="##leg.Expand(OPAC.Forms.Buttons.Next) >>">
			</TD>
			</TR>
			</FORM>
			</TABLE>

		</CONTENTOF>

		##include(Layout)

	</CONTENTOF>
##endif

##include(Body)