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)