Subversion Repositories wimsdev

Rev

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

Rev 5125 Rev 10152
Line 80... Line 80...
80 
!if $job!=first
 80 
!if $job!=first
81 
 !default parent=gateway
 81 
 !default parent=gateway
82 
!endif
 82 
!endif
83 
!if $parent!=$empty
 83 
!if $parent!=$empty
84 
 addline=!defof class_institution in $classdir1/.def
 84 
 addline=!defof class_institution in $classdir1/.def
- 
 
 85 
 title_parent=!defof class_description in $classdir1/$level/.def
85 
 !if $parent iswordof level class prog
 86 
 !if $parent iswordof level class prog
86 
  addline2=!defof class_description in $classdir1/$level/.def
 87 
  addline2=!defof class_description in $classdir1/$level/.def
87 
  addline=$addline\
 88 
  addline=$addline\
88 
$addline2
 89 
$addline2
89 
 !endif
 90 
 !endif
Line 98... Line 99...
98 
  addline=$addline\
 99 
  addline=$addline\
99 
$addline2
 100 
$addline2
100 
  parm3=job=prog&prog=$prog
 101 
  parm3=job=prog&prog=$prog
101 
 !endif
 102 
 !endif
102 
!endif
 103 
!endif
103 
 
 - 
 
104 
addparms=job=first,\
 104 
addparms=job=first,\
105 
job=level&level=$level,\
 105 
job=level&level=$level,\
106 
$parm3
 106 
$parm3
107 
 
 107 
 
- 
 
 108 
!set name_prog=$name_program
- 
 
 109 
!if $addline$thiscode$thistitle!=$empty
- 
 
 110 
 !set l=!linecnt $addline
- 
 
 111 
 !for i=1 to $l
- 
 
 112 
  !set l_=!line $i of $addline
- 
 
 113 
  !set t_=!item $i of $addparms
- 
 
 114 
  !if $lv<=$i
- 
 
 115 
   !set wims_ariane=!append line backgateway $l_,1,cmd=reply&$t_\
- 
 
 116 
to $wims_ariane
- 
 
 117 
 !next i
- 
 
 118 
 !if $thiscode!=$empty
- 
 
 119 
  !if $thiscode!=$wims_superclass and $wims_superclass/$thiscode!=$wims_class
- 
 
 120 
    !set wims_ariane=!append line backgateway $class_description,8,\
- 
 
 121 
to $wims_ariane
- 
 
 122 
  !endif
- 
 
 123 
 !endif
- 
 
 124 
!endif
- 
 
 125 
wims_ariane_self=no
- 
 
 126 
!if $wims_ariane=$empty
- 
 
 127 
  !set wims_ariane=!append line backgateway $title_parent $thiscode,8,\
- 
 
 128 
to $wims_ariane
- 
 
 129 
!endif