Subversion Repositories wimsdev

Rev

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

Rev 7042 Rev 10008
Line 2... Line 2...
2 
 
 2 
 
3 
!distribute items $wims_read_parm into gn_cl_,gn_st,gn_job,gn_getu_
 3 
!distribute items $wims_read_parm into gn_cl_,gn_st,gn_job,gn_getu_
4 
 
 4 
 
5 
!default gn_getu_=gn_job
 5 
!default gn_getu_=gn_job
6 
!default gn_cl_=$wims_class
 6 
!default gn_cl_=$wims_class
- 
 
 7 
!set tmp=!replace internal / by , in $wims_class
- 
 
 8 
!set wims_class1=$wims_class
- 
 
 9 
!if $(tmp[4])!=$empty
- 
 
 10 
 !set wims_class1=!item 1 to 3 of $tmp
- 
 
 11 
 !set wims_class1=!replace internal , by / in $wims_class1
- 
 
 12 
 !set wims_class1=!nospace $wims_class1
7 
 
 13 
!endif
8 
 !set prevuser=!lookup $gn_st in wimshome/log/classes/$wims_class/.userprevlist
 14 
!set prevuser=!lookup $gn_st in wimshome/log/classes/$wims_class1/.userprevlist
9 
 !if $prevuser!=$empty
 15 
!if $prevuser!=$empty
10 
   !set wims_menu_items=!append line prev_participant,1,cmd=reply&job=$gn_job&$gn_getu_=$prevuser\
 16 
   !set wims_menu_items=!append line prev_participant,1,cmd=reply&job=$gn_job&$gn_getu_=$prevuser\
11 
  to $wims_menu_items
 17 
  to $wims_menu_items
12 
 !endif
 18 
!endif
13 
 !set nextuser=!lookup $gn_st in wimshome/log/classes/$wims_class/.usernextlist
 19 
!set nextuser=!lookup $gn_st in wimshome/log/classes/$wims_class1/.usernextlist
14 
 !if $nextuser!=$empty
 20 
!if $nextuser!=$empty
15 
   !set wims_menu_items=!append line next_participant,1,cmd=reply&job=$gn_job&$gn_getu_=$nextuser\
 21 
   !set wims_menu_items=!append line next_participant,1,cmd=reply&job=$gn_job&$gn_getu_=$nextuser\
16 
  to $wims_menu_items
 22 
  to $wims_menu_items
17 
 !endif
 23 
!endif