Subversion Repositories wimsdev

Rev

Rev 18094 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18094 Rev 18098
Line 2... Line 2...
2 
 
 2 
 
3 
DEBUG_MODULE=!defof DEBUG_MODULE in wimshome/public_html/bases/sys/define.conf
 3 
DEBUG_MODULE=!defof DEBUG_MODULE in wimshome/public_html/bases/sys/define.conf
- 
 
 4 
!if ($wims_mail_addrsep == $empty)
- 
 
 5 
  wims_mail_addrsep=$ $
- 
 
 6 
!endif
4 
!if $data=$empty
 7 
!if $data=$empty
5 
  !! -------test for an old exologfile (in the class)
 8 
  !! -------test for an old exologfile (in the class)
6 
  !if $logtype=exam
 9 
  !if $logtype=exam
7 
    test=!fileexists wimshome/log/classes/$wims_class/examlog/$checkuser/$checksession/$logcheck
 10 
    test=!fileexists wimshome/log/classes/$wims_class/examlog/$checkuser/$checksession/$logcheck
8 
    !if $test=yes
 11 
    !if $test=yes
Line 100... Line 103...
100 
!if $save!=$empty
 103 
!if $save!=$empty
101 
  !if $source!=$empty
 104 
  !if $source!=$empty
102 
    !set tmp=!replace internal module= by in $(data[1;])
 105 
    !set tmp=!replace internal module= by in $(data[1;])
103 
    !set tmp=!replace internal . by , in $tmp
 106 
    !set tmp=!replace internal . by , in $tmp
104 
    source=!char 1 to 1000 of $source
 107 
    source=!char 1 to 1000 of $source
105 
    listaddr=!items2words $listaddr
 108 
    listaddr=!replace internal , by $wims_mail_addrsep in $listaddr
106 
    vardata=!replace internal $\
 109 
    vardata=!replace internal $\
107 
$ by <br>$\
 110 
$ by <br>$\
108 
$ in $vardata
 111 
$ in $vardata
109 
!mailto $listaddr\
 112 
!mailto $listaddr\
110 
$wims_email\
 113 
$wims_email\