;;; message.mhtml: -*- Meta-HTML -*-  DESCRIPTIVE TEXT.

;;;  Copyright (c) 1996 Brian J. Fox
;;;  Author: Brian J. Fox (bfox@ai.mit.edu) Wed May 29 10:48:11 1996.
<defsubst message whitespace=delete>
  <set-session-var message = <prog <get-session-var message> %body>>
</defsubst>

<defsubst show-message whitespace=delete>
  <set-var message = <get-session-var message>>
  <unset-session-var message>
  <when <get-var message>>
    <table bgcolor=#D8BFD8 border=2 width=400>
      <tr>
	<td align=center>
	  <table width=95%>
	    <tr valign=top>
	    <td align=right> <font color="#000000"><b>Note:</b></font> </td>
	      <td align=left>
		<font color="#000000"><get-var message></font>
	      </td>
	    </tr>
	  </table>
	</td>
      </tr>
    </table>
  </when>
</defsubst>

<defsubst internal-message whitespace=delete>
  <layout::page>
    <table bgcolor=#D8BFD8 border=2 width=400>
      <tr>
	<td align=center>
	  <table width=95%>
	    <tr valign=top>
	    <td align=right> <font color="#000000"><b>Note:</b></font> </td>
	      <td align=left>
		<ptext>
		  %body
		</ptext>
		<font color="#000000"><get-var message></font>
	      </td>
	    </tr>
	  </table>
	</td>
      </tr>
    </table>
  <p>
  </layout::page>
</defsubst>

