Subversion Repositories wimsdev

Rev

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

Rev 12821 Rev 16914
Line 2... Line 2...
2
!distribute lines $wims_firstname\
2
!distribute lines $wims_firstname\
3
$wims_lastname\
3
$wims_lastname\
4
$newmsgcnt\
4
$newmsgcnt\
5
into\
5
into\
6
m_firstname,m_lastname,m_newmsgcnt
6
m_firstname,m_lastname,m_newmsgcnt
-
 
7
 
-
 
8
!! --- in case of use of file of the document in the presentation page
-
 
9
!if $class_homepage!=yes
-
 
10
  !let m_filedir=$wims_ref_name?session=$wims_session&+cmd=getfile&+special_parm=doc
-
 
11
  !let tmp=!replace internal / by , in $class_homepage
-
 
12
  !sh if [ -d $wims_home/log/classes/$wims_class/doc/$(tmp[1])/files ]; then\
-
 
13
         cd $wims_home/$wims_sesdir;\
-
 
14
         mkdir -p getfile;\
-
 
15
         cd getfile;\
-
 
16
         rm -f doc;\
-
 
17
         ln -s $wims_home/log/classes/$wims_class/doc/$(tmp[1])/files doc;\
-
 
18
      fi
-
 
19
!endif
7
 
20
 
8
!set m_today=!char 1 to 8 of $wims_now
21
!set m_today=!char 1 to 8 of $wims_now
9
!set m_sheets=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
22
!set m_sheets=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
10
!set m_exams=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
23
!set m_exams=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
11
!set m_user_login=$wims_user
24
!set m_user_login=$wims_user
Line 16... Line 29...
16
!set m_userdaymessage=!record 0 of wimshome/log/classes/$wims_class/motd/def/$wims_user
29
!set m_userdaymessage=!record 0 of wimshome/log/classes/$wims_class/motd/def/$wims_user
17
 
30
 
18
!for i=1 to $m_sheets
31
!for i=1 to $m_sheets
19
  !set l_=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
32
  !set l_=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets
20
  !distribute lines $l_ into m_status$i,m_expiration$i,m_title$i,m_desc$i
33
  !distribute lines $l_ into m_status$i,m_expiration$i,m_title$i,m_desc$i
21
  !next i
34
!next i
22
!for i=1 to $m_exams
35
!for i=1 to $m_exams
23
  !set l_=!record $i of wimshome/log/classes/$wims_class/exams/.exams
36
  !set l_=!record $i of wimshome/log/classes/$wims_class/exams/.exams
24
  !distribute lines $l_ into m_statusE$i,m_expirationE$i,m_titleE$i,m_descE$i
37
  !distribute lines $l_ into m_statusE$i,m_expirationE$i,m_titleE$i,m_descE$i
25
!next i
38
!next i
26
!let save_trustfile=$wims_trustfile
39
!let save_trustfile=$wims_trustfile