Subversion Repositories wimsdev

Rev

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

Rev 10008 Rev 12555
Line 5... Line 5...
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
7
!set tmp=!replace internal / by , in $wims_class
8
!set wims_class1=$wims_class
8
!set wims_class1=$wims_class
9
!if $(tmp[4])!=$empty
9
!if $(tmp[4])!=$empty
10
 !set wims_class1=!item 1 to 3 of $tmp
10
  !set wims_class1=!item 1 to 3 of $tmp
11
 !set wims_class1=!replace internal , by / in $wims_class1
11
  !set wims_class1=!replace internal , by / in $wims_class1
12
 !set wims_class1=!nospace $wims_class1
12
  !set wims_class1=!nospace $wims_class1
13
!endif
13
!endif
14
!set prevuser=!lookup $gn_st in wimshome/log/classes/$wims_class1/.userprevlist
14
!set prevuser=!lookup $gn_st in wimshome/log/classes/$wims_class1/.userprevlist
15
!if $prevuser!=$empty
15
!if $prevuser!=$empty
16
   !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\
17
  to $wims_menu_items
17
  to $wims_menu_items
18
!endif
18
!endif
19
!set nextuser=!lookup $gn_st in wimshome/log/classes/$wims_class1/.usernextlist
19
!set nextuser=!lookup $gn_st in wimshome/log/classes/$wims_class1/.usernextlist
20
!if $nextuser!=$empty
20
!if $nextuser!=$empty
21
   !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\
22
  to $wims_menu_items
22
  to $wims_menu_items
23
!endif
23
!endif