Subversion Repositories wimsdev

Rev

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

Rev 17180 Rev 17330
Line 95... Line 95...
95 
 
 95 
 
96 
!endif
 96 
!endif
97 
 
 97 
 
98 
!if $save!=$empty
 98 
!if $save!=$empty
99 
  !if $source!=$empty
 99 
  !if $source!=$empty
- 
 
 100 
    !set tmp=!replace internal module= by in $(data[1;])
- 
 
 101 
    !set tmp=!replace internal . by , in $tmp
100 
    source=!char 1 to 1000 of $source
 102 
    source=!char 1 to 1000 of $source
101 
    listaddr=$wims_email,$local_email,$DEBUG_MODULE
 103 
    listaddr=$wims_email,$local_email,$DEBUG_MODULE
102 
    listaddr=!nonempty item $listaddr
 104 
    listaddr=!nonempty item $listaddr
103 
    listaddr=!listuniq $listaddr
 105 
    listaddr=!listuniq $listaddr
104 
    listaddr=!items2words $listaddr
 106 
    listaddr=!items2words $listaddr
105 
    vardata=!replace internal $\
 107 
    vardata=!replace internal $\
106 
$ by <br> in $vardata
 108 
$ by <br> in $vardata
107 
!mailto $listaddr\
 109 
!mailto $listaddr\
108 
$wims_email\
 110 
$wims_email\
109 
[WIMS] $name_titlemail\
 111 
[WIMS] $name_titlemail  $(tmp[1])\
110 
<h2>$name_mailcomment</h2>\
 112 
<h2>$name_mailcomment</h2>\
111 
<p>$source</p>\
 113 
<p>$source</p>\
112 
<h2>$name_mailinfogene</h2>\
 114 
<h2>$name_mailinfogene</h2>\
113 
<pre>$data</pre>\
 115 
<pre>$data</pre>\
114 
\
 116 
\
115 
var file\
 117 
var file\
116 
$vardata
 118 
$vardata
- 
 
 119 
    !reset tmp
117 
    success=confirm
 120 
    success=confirm
118 
  !else
 121 
  !else
119 
    error=no_comment
 122 
    error=no_comment
120 
  !endif
 123 
  !endif
121 
!endif
 124 
!endif