Rev 6314 | Rev 6327 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 6314 | Rev 6326 | ||
---|---|---|---|
Line 50... | Line 50... | ||
50 | deflist=title, description, language, category, domain, \ |
50 | deflist=title, description, language, category, domain, \ |
51 | level, keywords, require, scoring, copyright,\ |
51 | level, keywords, require, scoring, copyright,\ |
52 | author, address, version, wims_version, vardef, \ |
52 | author, address, version, wims_version, vardef, \ |
53 | translator, translator_address, data, maintainer, maintainer_address |
53 | translator, translator_address, data, maintainer, maintainer_address |
54 | 54 | ||
55 | deflist1=translation_language |
- | |
56 | trans_lang=!words2items $i_translation_language |
- | |
57 | i_translation_language=!listintersect $trans_lang and $langlist |
- | |
58 | i_translation_language=!listcomplement $i_language in $i_translation_language |
- | |
59 | !for l in $(i_translation_language) |
- | |
60 | deflist1=!append item title_$l to $deflist1 |
- | |
61 | deflist1=!append item description_$l to $deflist1 |
- | |
62 | deflist1=!append item keywords_$l to $deflist1 |
- | |
63 | deflist1=!append item translator_$l to $deflist1 |
- | |
64 | deflist1=!append item translator_address_$l to $deflist1 |
- | |
65 | !next |
- | |
66 | wims_form_method=post |
55 | wims_form_method=post |
67 | !read tabletheme |
56 | !read tabletheme |
68 | 57 | ||
69 | !if $cmd=help or robot isin $session |
58 | !if $cmd=help or robot isin $session |
70 | !exit |
59 | !exit |
Line 81... | Line 70... | ||
81 | !endif |
70 | !endif |
82 | !if $wims_developer=$empty and $wims_class!=$empty and $wims_user!=$empty |
71 | !if $wims_developer=$empty and $wims_class!=$empty and $wims_user!=$empty |
83 | !if $wims_user=supervisor |
72 | !if $wims_user=supervisor |
84 | !if $wims_sup_secure>=0 |
73 | !if $wims_sup_secure>=0 |
85 | wims_developer=!getdef wims_developer in $userdef |
74 | wims_developer=!getdef wims_developer in $userdef |
86 | !endif |
75 | !endif |
87 | !else |
76 | !else |
88 | wims_developer=!getdef wims_developer in $userdef |
77 | wims_developer=!getdef wims_developer in $userdef |
89 | !endif |
78 | !endif |
90 | !distribute item $wims_developer into wims_developer,devpass |
79 | !distribute item $wims_developer into wims_developer,devpass |
91 | !if $devpass=$empty |
80 | !if $devpass=$empty |
Line 133... | Line 122... | ||
133 | job=auth |
122 | job=auth |
134 | !endif |
123 | !endif |
135 | !if $auth_login!=$empty |
124 | !if $auth_login!=$empty |
136 | devdir=modules/devel/$auth_login |
125 | devdir=modules/devel/$auth_login |
137 | !endif |
126 | !endif |
- | 127 | ||
- | 128 | !read scripts/getindex $modreq |
|
- | 129 | !default i_translation_language=$translation_language |
|
- | 130 | ||
- | 131 | deflist1=translation_language |
|
- | 132 | trans_lang=!words2items $i_translation_language |
|
- | 133 | i_translation_language=!listintersect $trans_lang and $langlist |
|
- | 134 | i_translation_language=!listcomplement $i_language in $i_translation_language |
|
- | 135 | !for l in $(i_translation_language) |
|
- | 136 | deflist1=!append item title_$l to $deflist1 |
|
- | 137 | deflist1=!append item description_$l to $deflist1 |
|
- | 138 | deflist1=!append item keywords_$l to $deflist1 |
|
- | 139 | deflist1=!append item translator_$l to $deflist1 |
|
- | 140 | deflist1=!append item translator_address_$l to $deflist1 |
|
- | 141 | !next |
|
138 | 142 | ||
139 | !read $job.proc |
143 | !read $job.proc |
140 | 144 | ||
141 | !if $(name_$job)!=$empty |
145 | !if $(name_$job)!=$empty |
142 | module_title=$module_title - $(name_$job) |
146 | module_title=$module_title - $(name_$job) |