Subversion Repositories wimsdev

Rev

Rev 12555 | Details | Compare with Previous | Last modification | View Log | RSS feed

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