714b8ae84d
- Fixed many things in DIFRAC subsystem:
* Recoded tcentr.f etc so that the course centering will work and will not
go into an endless loop.
* fixed boundary overwrites which occurred when yesno or alfnum where
uset to get a single character and several were given.
* Addeded documentation for DIFRAC
- Added tcl-files which support the WWW status system
44 lines
1.4 KiB
Tcl
44 lines
1.4 KiB
Tcl
#------------------------------------------------------------------------
|
|
# This implements the wwwsics command which generates a listing of
|
|
# important experiment parameters in html format for the SICS WWW Status
|
|
# application. This version is for the powder diffractometers DMC and
|
|
# HRPT.
|
|
#
|
|
# Mark Koennecke, March 2000
|
|
#------------------------------------------------------------------------
|
|
proc wwwsics {} {
|
|
#----- get all the data we need
|
|
set user [GetNum [user]]
|
|
set sample [GetNum [sample]]
|
|
set tit [GetNum [title]]
|
|
set ret [catch {lambda} msg]
|
|
if {$ret != 0 } {
|
|
set lam Undetermined
|
|
} else {
|
|
set lam [GetNum $msg]
|
|
}
|
|
set ret [catch {temperature} msg]
|
|
if {$ret != 0 } {
|
|
set tem Undetermined
|
|
} else {
|
|
set tem [GetNum $msg]
|
|
}
|
|
set run [GetNum [sicsdatanumber]]
|
|
catch {incr run} msg
|
|
set stat [GetNum [status]]
|
|
#------- html format the reply
|
|
append result "<table BORDER=2>"
|
|
append result <tr> <th>Run Number</th> <td> $run </td> </tr>
|
|
append result <tr> <th>Title</th> <td> $tit </td> </tr>
|
|
append result <tr> <th>User</th> <td> $user </td> </tr>
|
|
append result <tr> <th>Sample </th> <td> $sample </td> </tr>
|
|
append result <tr> <th>wavelength</th> <td> $lam</td> </tr>
|
|
append result <tr> <th>Sample Temperature</th> <td> $tem</td> </tr>
|
|
append result <tr> <th>Status</th> <td> $stat</td> </tr>
|
|
append result </table>
|
|
return $result
|
|
}
|
|
|
|
#------------ install command
|
|
catch {Publish wwwsics Spy} msg
|