Subversion Repositories wimsdev

Rev

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

Rev 16324 Rev 16568
Line 63... Line 63...
63 
!set appletnum=0
 63 
!set appletnum=0
64 
 
 64 
 
65 
!readproc adm/class/userdef ,$wims_class,$userv
 65 
!readproc adm/class/userdef ,$wims_class,$userv
66 
tmp=!defof user_firstname,user_lastname in $userdef
 66 
tmp=!defof user_firstname,user_lastname in $userdef
67 
!distribute item $tmp into lastname,firstname
 67 
!distribute item $tmp into lastname,firstname
68 
remark=!record 0 of wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv
 68 
remark=!record 0 of wimshome/log/classes/$wims_class/freeworksdata/$freework/co/.$userv
69 
remark=!replace internal : by : in $remark
 69 
remark=!replace internal : by : in $remark
- 
 
 70 
finalremark=!record 0 of wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv
- 
 
 71 
finalremark=!replace internal : by : in $finalremark
70 
!set wims_menu_items=!append line back2,1,module=$module&cmd=new&job=configfw&freework=$freework to $wims_menu_items
 72 
!set wims_menu_items=!append line back2,1,module=$module&cmd=new&job=configfw&freework=$freework to $wims_menu_items
71 
 
 73 
 
72 
!! ------ delete file
74 
!! ------ delete file
73 
!if $job2=eraseusersol
 75 
!if $job2=eraseusersol
74 
 namefile=!text select 1234567890azertyuiopqsdfghjklmwxcvbnAZERTYUIOPMLKJHGFDSQWXCVBN. in $namefile
 76 
 namefile=!text select 1234567890azertyuiopqsdfghjklmwxcvbnAZERTYUIOPMLKJHGFDSQWXCVBN. in $namefile