Subversion Repositories wimsdev

Rev

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)