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