wml_simple_card

one of the documented procedures in this installation of the ACS
Usage:
wml_simple_card { -card_id {} -back_link_p 0 -back_label Back -add_paragraph_tags_p 1 } body
What it does:
Returns a simple WML card, optionally providing a card_id and back link.
Defined in: /web/philip/tcl/wap-defs.tcl

Source code:

arg_parser_for_wml_simple_card $args

    set retval {}
    if [empty_string_p $card_id] {
	append retval "<card>\n"
    } else {
	append retval "<card id=\"$card_id\">\n"
    }
    
    if $back_link_p {
	append retval "<do type=\"prev\" label=\"$back_label\">
  <prev/>
</do>\n"
    }

    if $add_paragraph_tags_p {
	append retval "<p>$body</p>\n</card>\n"
    } else {
	append retval "$body\n</card>\n"
    }


philg@mit.edu