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 |