注文の終了
このフォームの動作は、<form> タグで制御されます。action 属性を追加しました。その値はフォームの値がサーバ上の TicketConfirm クラスに送信されることを指定します。 ブラウザがフォーム・データをサーバに送信する方法を指定する post 値を持つ method 属性を追加しました。
最後に、フォームに “注文完了” というラベルのついたボタンを追加します。これは、<input type="submit" > タグで行います。
ユーザがこのボタンをクリックすると、フォームが TicketConfirm に送信されます。
—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 method="post" action="Cinema.TicketConfirm.cls" name="OrderTickets">
<csp:loop counter="num" from=1 to=#(ord.Items.Count())#>
<script language="cache" runat="server">
Set itm = ord.Items.GetAt(num)
</script>
For the #($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>
<input type="submit" name="CompleteOrder" value="Complete Order">
</form>
</csp:if>
</body> </html>