- Fixed a bug which caused the SICServer to die when a socket was broken.

- 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

difrac/yesno.f

@@ -18,14 +18,15 @@ C-----------------------------------------------------------------------
       COMMON /IOUASS/ IOUNIT(12)
       CHARACTER*132 COUT(20)
       COMMON /IOUASC/ COUT
-      CHARACTER DEFOLT*1,ANS*1
+      CHARACTER DEFOLT*1,ANS*1,LINE*80
       ITR = IOUNIT(5)
       ITP = IOUNIT(6)
 C-----------------------------------------------------------------------
 C  This code gets round IBM VM/CMS limitations
 C-----------------------------------------------------------------------
   100 CALL GWRITE (ITP,'$')
-      CALL GETLIN (ANS)
+      CALL GETLIN (LINE)
+      ANS=LINE(1:1)
       IF (ANS .EQ. '?') STOP
       IF (ANS .EQ. 'y') ANS = 'Y'
       IF (ANS .EQ. 'n') ANS = 'N'