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