Subversion Repositories wimsdev

Rev

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

Rev 33 Rev 53
Line 19... Line 19...
19 
 !next i
 19 
 !next i
20 
!for i=1 to $m_exams
 20 
!for i=1 to $m_exams
21 
 !set l_=!record $i of wimshome/log/classes/$wims_class/exams/.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
 22 
 !distribute lines $l_ into m_statusE$i,m_expirationE$i,m_titleE$i,m_descE$i
23 
!next 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
24 
 
 - 
 
25 
!read $deffile content
 30 
!read $deffile content
26 
 
 - 
 
- 
 
 31 
!let wims_trustfile=$save_trustfile
- 
 
 32 
!let wims_writable=$save_writable
- 
 
 33 
!let wims_readable=$save_readable