合計金額の表示
次に、注文合計金額を表示します。これは TicketOrder クラスの Total プロパティに保存されます。
Total の値はテキスト・ボックスに表示されます。これは <input> タグで生成されます。合計をフォーマットするには、2 桁の既定の形式を要求する $FN (フォーマット番号) 関数を呼び出します。
合計値は表示する目的のみであるため (ユーザは変更することはできません)、“読み取り専用の” 属性を使用しました。(残念ながら、Netscape ブラウザではこの属性は無視されるので、ユーザはこの値を変更することができます。ブラウザ上で変更した場合でも、サーバ上の値には影響はありません。)
—Order.csp—
Order.csp
<html> <head></head>
<body>
<csp:class super="%CSP.Page,Cinema.Utils">
<csp:if condition='$D(%session.Data("Order"))'>
<img src="YourTicketOrder.gif"><br>
<script language="cache" runat="server">
// Open Order object for display
Set ord = ##class(Cinema.TicketOrder).%OpenId(%session.Data("Order"))
</script>
<form name="OrderTickets">
<csp:loop counter="num" from=1 to=#( ord.Items.Count() )#>
<script language="cache" runat="server">
Set itm = ord.Items.GetAt(num)
</script>
#($ZT(itm.Show.StartTime,4))#
showing of #(itm.Show.Film.Title)#
at #(itm.Show.Theater.TheaterName)#
<br><br>
<select name="AdultTickets">
...
</select>
<select name="ChildTickets">
...
</select>
</csp:loop>
Total Charge:
<input
type="text"
name="TotalCharge"
size=5 readonly
value=#($FN(ord.Total, "", 2))#>
<br><br>
</form>
</csp:if>
</body> </html>