Subversion Repositories wimsdev

Rev

Rev 53 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
33 reyssat 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
 
25
!read $deffile content
26