Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 15068 | guerimand | 1 | !! change statut of a msg (only for supervisor) |
| 2 | |||
| 3 | test=!fileexists wimshome/log/classes/$wims_class/tchat/$mem_file |
||
| 4 | !if $test=yes |
||
| 5 | nb=!recordcnt wimshome/log/classes/$wims_class/tchat/$mem_file |
||
| 6 | !if $mem_rec<0 |
||
| 7 | mem_rec=$[$nb+($mem_rec)+1] |
||
| 8 | !endif |
||
| 9 | !if $mem_rec>0 and $mem_rec<=$nb |
||
| 10 | data=!record $mem_rec of wimshome/log/classes/$wims_class/tchat/$mem_file |
||
| 11 | l=!line 1 of $data |
||
| 12 | !distribute word $l into muser,date,hide |
||
| 13 | !if $hide=hide |
||
| 14 | !reset hide |
||
| 15 | !else |
||
| 16 | hide=hide |
||
| 17 | !endif |
||
| 18 | l=$muser $date $hide |
||
| 19 | update_content=!replace line number 1 by $l in $data |
||
| 20 | update_field=$mem_rec |
||
| 21 | update_nbline=$empty |
||
| 22 | !read adm/uprecord wimshome/log/classes/$wims_class/tchat/$mem_file |
||
| 23 | !endif |
||
| 24 | !endif |
||
| 25 | !restart cmd=reply&+module=$module&+job=edit&+user=$user |