#---------------------------------------------------------------------------
# The triple axis people love to have the command set emulate the command 
# set of TASMAD as closely as possible. This is implemented through 
# some scripting. This version is for the new syntax to be used with the
# new UB matrix calculaus for triple axis.
#
# Mark Koennecke, May 2005
#--------------------------------------------------------------------------

proc SplitReply { text } {
     set l [split $text =]
     return [string trim [lindex $l 1]]
}

source $scripthome/nxtas.tcl
source $scripthome/nxsupport.tcl
source $scripthome/tasscript.tcl

initxmlscan

#------------------------------------------------------------------------
proc wwwsics {} {
    append result "<table BORDER=2>\n"
    append result "<tr><th>User</th> <td>"  [tasSplit [user]] "</td></tr>\n"
    append result "<tr><th>Title</th> <td>"
    append result [tasSplit [title]] "</td></tr>\n"
    append result "<tr><th>Status</th> <td>"
    append result [tasSplit [status]] "</td></tr>\n"
    append result "<tr><th>Last Scan Command</th> <td>"
    append result [tasSplit [lastcommand]] "</td></tr>\n"
    append result "<tr><th>A1</td><td>"
    append result [tasSplit [a1]] "</td><th>A2</th><td>"
    append result [tasSplit [a2]] "</td></tr>\n"
    append result "<tr><th>A3</td><td>"
    append result [tasSplit [a3]] "</td><th>A4</th><td>"
    append result [tasSplit [a4]] "</td></tr>\n"
    append result "<tr><th>A5</td><td>"
    append result [tasSplit [a5]] "</td><th>A6</th><td>"
    append result [tasSplit [a6]] "</td></tr>\n"
    append result "<tr><th>Ki</th><td>" [tasSplit [ki]] "</td>"
    append result "<th>Kf</th><td>" [tasSplit [kf]] "</td>"
    append result "<th>En</th><td>" [tasSplit [en]] "</td></tr>\n"
    append result "<tr><th>Qh</th><td>" [tasSplit [qh]] "</td>"
    append result "<th>Qk</th><td>" [tasSplit [qk]] "</td>"
    append result "<th>Ql</th><td>" [tasSplit [ql]] "</td></tr>\n"
    append result "</table>\n"
}