Subversion Repositories wimsdev

Rev

Rev 1766 | Rev 12476 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1.  
  2. !readproc adm/docsheet.prep
  3. !read $docdef content
  4. <p><center>
  5.  !set dd=!getscorestatus sheet=$sh
  6.  !if $dd=yes
  7.   !if $wims_scorereg!=suspend
  8.    $name_scoreopen
  9.    !href cmd=resume&job=suspend $wims_name_scoreclose2
  10. .
  11.   !else
  12.   $name_scoresuspend
  13.    !href cmd=resume&job=reopen $wims_name_scorereopen
  14. .
  15.   !endif
  16.  !else
  17.  $name_scoreclose
  18.  !endif
  19.  
  20. !if $wims_user=supervisor
  21.  <p>
  22.  !href module=adm/class/sheet&sheet=$sh $wims_name_sheetmanagement
  23. .&nbsp;
  24.  !set d_=!translate / to , in $sheet_docpage
  25.  !distribute items $d_ into d_,b_
  26.  !href target=wims_doc module=adm/doc&job=edit&doc=$d_&block=$b_ $wims_name_Edit
  27. .&nbsp;
  28.  !href cmd=resume $wims_name_refresh
  29. .
  30. !endif
  31. </center>
  32.  
  33. !tail
  34.  
  35.