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