Subversion Repositories wimsdev

Rev

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

  1. !set m_scores=!words2items $percents
  2. !distribute lines $wims_firstname\
  3. $wims_lastname\
  4. $newmsgcnt\
  5. into\
  6. m_firstname,m_lastname,m_newmsgcnt
  7.  
  8. !set m_today=!char 1 to 8 of $wims_now
  9. !set m_sheets=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
  10. !set m_exams=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
  11. !set m_user_login=$wims_user
  12. !set m_user_lastname=$wims_lastname
  13. !set m_user_firstname=$wims_firstname
  14. !set m_class_code=$wims_class
  15.  
  16. !for i=1 to $m_sheets
  17.  !set l_=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
  18.  !distribute lines $l_ into m_status$i,m_expiration$i,m_title$i,m_desc$i
  19.  !next i
  20. !for i=1 to $m_exams
  21.  !set l_=!record $i of wimshome/log/classes/$wims_class/exams/.exams
  22.  !distribute lines $l_ into m_statusE$i,m_expirationE$i,m_titleE$i,m_descE$i
  23. !next i
  24. !let save_trustfile=$wims_trustfile
  25. !let save_writable=$wims_writable
  26. !let save_readable=$wims_readable
  27. !let wims_trustfile=$wims_trustfile primitives/target.phtml primitives.phtml
  28. !let wims_writable=$wims_writable serial prim parm1 parm2 parm3 parm4 parms anchor w gotcnt gotm p add eq sh_ ex_ l_ m_ p_ a_ b_ t_ d_ prompt n i nadd lmod lses lcmd l ll l1 l2
  29. !let wims_readable=$wims_readable wims_read_parm serial prim parm1 parm2 parm3 parm4 parms anchor w gotcnt gotm p add eq sh_ ex_ l_ m_ p_ a_ b_ t_ d_ prompt n i nadd lmod lses lcmd l ll l1 l2
  30. !read $deffile content
  31. !let wims_trustfile=$save_trustfile
  32. !let wims_writable=$save_writable
  33. !let wims_readable=$save_readable
  34.