##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>
			<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="configPath" value="OPAC.FeedbackCategories">
				<TABLE cellspacing="10" cellpadding="0">
					##if local.SentMessage
						##local.define(HandledError)<CONTENTOF>1</CONTENTOF>
						##local.define(Value)<CONTENTOF>
							##leg.Expand(OPAC.Feedback.Message.SentAdvice,GoBackLeg,##leg.Data(IE4OPAC.Defaults.Button.GoBack))
						</CONTENTOF>
						##local.AdviceRowTemplate
					##else
						<TR>
							<TD colspan="2">
								<TABLE>
									##local.define(Value)<CONTENTOF>
										##sessioncfg.With(Cats,"OPAC.Feedback.Categories")<CONTENTOF>
											##Cats.QualData(##request.mtype,".Advice")
										</CONTENTOF>
									</CONTENTOF>
									##local.AdviceRowTemplate
								</TABLE>
							</TD>
						</TR>
						<TR>
							<TD align="right" class="##local.textclass">
							&nbsp; ##leg.OPAC.Feedback.Message.Subject:&nbsp;
							</TD>
							<TD>
							<INPUT ALSiClass=Control ALSiType=String size=80 ALSiMinimumLength=0 ALSiMaximumLength="80" name="Subject" value="##local.lastSubject">
							</TD>
						</TR>
						<TR>
							<TD align="right" class="##local.textclass">
							&nbsp; ##leg.OPAC.Feedback.Message.ReplyTo:&nbsp;
							</TD>
							<TD>
							<INPUT ALSiClass=Control ALSiType=String size=80 ALSiMinimumLength=0 ALSiMaximumLength="80" name="ReplyTo" value="##local.lastReplyTo">
							</TD>
						</TR>
						<TR>
							<TD align="right" class="##local.textclass">
							&nbsp; ##leg.OPAC.Feedback.Message.Account:&nbsp;
							</TD>
							<TD>
							<INPUT ALSiClass=Control ALSiType=BrwrNo ALSiAllowBlank=1 type=text name="BRWR" value="##local.lastBrwr">
							</TD>
						</TR>
						<TR>
							<TD align="right" class="##local.textclass" colspan = 2>
							<TEXTAREA ALSiAutoSize="0" class=dm-control-class  ALSiClass=Control cols=60 rows=15 name=MessageText >##local.lastMessageText</TEXTAREA>
							</TD>
						</TR>
						<TR>
							<TD> &nbsp; </TD>
							<TD align="right">
							<INPUT ALSiClass=Submit type="submit" name="submitButton" value="##leg.Expand(OPAC.Forms.Buttons.Next) >>">
							</TD>
						</TR>
					##endif
				</TABLE>
			</FORM>
		</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>
			<FORM id="loginForm" method="POST" action="##this.obj">
				##this.stylesetforform
				<INPUT type="hidden" name="SubView" value="Message">
				<TABLE cellspacing="10" cellpadding="0">
					##local.define(Value)<CONTENTOF>
						##leg.OPAC.Feedback.SelectType.Advice
					</CONTENTOF>
					##local.AdviceRowTemplate
					##sessioncfg.With(Cats,"OPAC.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> &nbsp; </TD>
						<TD align="right">
						<INPUT ALSiClass=Submit type="submit" name="submitButton" value="##leg.Expand(OPAC.Forms.Buttons.Next) >>">
						</TD>
					</TR>
				</TABLE>
			</FORM>
		</CONTENTOF>

		##include(Layout)

	</CONTENTOF>
##endif			
##include(Body)