wml_maybe_call {-parse_p 0} phone_number nameWhat it does:
Add a tag to give user option to call number passed in. If parse_p flag is set we try to parse the phone number and only provide a link if parsing returned a result.Defined in: /web/philip/tcl/wap-defs.tcl
Source code:
arg_parser_for_wml_maybe_call $args
if $parse_p {
set result [util_parse_phone $phone_number]
} else {
set result [ns_set new]
ns_set put $result number $phone_number
}
set the_number [ns_set get $result number]
if [ns_set size $result] {
set type_i [ns_set find $result type]
if { $type_i >= 0 && [string compare [ns_set value $result $type_i] UsTenDigit] == 0 } {
return "<a href=\"wtai://wp/mc;$the_number\">call</a>"
} else {
if ![empty_string_p $the_number] {
return "<a href=\"/wap/phone-tweak.wap?digits=$the_number\">call</a>"
}
}
}