Subversion Repositories wimsdev

Rev

Rev 17285 | Rev 17412 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17285 Rev 17410
Line 18... Line 18...
18 
  !if _exam isin $wims_session
 18 
  !if _exam isin $wims_session
19 
    !set wims_pses=!translate _ to , in $wims_session
 19 
    !set wims_pses=!translate _ to , in $wims_session
20 
    !set wims_pses=!item 1 of $wims_pses
 20 
    !set wims_pses=!item 1 of $wims_pses
21 
    !set wims_pser=!randint 1,99999
 21 
    !set wims_pser=!randint 1,99999
22 
    !set wims_href_opener=window.opener.location='$wims_ref_name?session=$wims_pses.1&+cmd=reply&+job=student&+randomizer=$wims_pser';
 22 
    !set wims_href_opener=window.opener.location='$wims_ref_name?session=$wims_pses.1&+cmd=reply&+job=student&+randomizer=$wims_pser';
- 
 
 23 
    !! ---------- progressbar in case of course mode
- 
 
 24 
    !if $(wims_exrandomlist[3;])=1
- 
 
 25 
      !readproc examprogressbar.proc
- 
 
 26 
      !set 1_=!append line progress,0, $wims_progressbar  to $1_
- 
 
 27 
    !endif
23 
  !endif
 28 
  !endif
24 
  !if $module=adm/class/tchat
 29 
  !if $module=adm/class/tchat
25 
    !if $job!=close
 30 
    !if $job!=close
26 
      !set 1_=!append line tchatclose,1,cmd=reply&module=adm/class/tchat&job=close to $1_
 31 
      !set 1_=!append line tchatclose,1,cmd=reply&module=adm/class/tchat&job=close to $1_
27 
    !endif
 32 
    !endif