Subversion Repositories wimsdev

Rev

Rev 6312 | Rev 6314 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6312 Rev 6313
Line 48... Line 48...
48 
langlist=!words2items $wims_site_languages
 48 
langlist=!words2items $wims_site_languages
49 
!read lang/langname.$modu_lang
 49 
!read lang/langname.$modu_lang
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 
	translation_language
 55 
deflist1=translation_language
- 
 
 56 
trans_lang=!words2items $i_translation_language
- 
 
 57 
 i_translation_language=!listintersect $trans_lang and $langlist
- 
 
 58 
 !for l in $(i_translation_language)
- 
 
 59 
   deflist1=!append item title_$l to $deflist1
- 
 
 60 
   deflist1=!append item description_$l to $deflist1
- 
 
 61 
   deflist1=!append item keywords_$l to $deflist1
- 
 
 62 
   deflist1=!append item translator_$l to $deflist1
- 
 
 63 
   deflist1=!append item translator_address_$l to $deflist1
- 
 
 64 
 !next
55 
wims_form_method=post
 65 
wims_form_method=post
56 
!read tabletheme
 66 
!read tabletheme
57 
 
 67 
 
58 
!if $cmd=help or robot isin $session
 68 
!if $cmd=help or robot isin $session
59 
 !exit
 69 
 !exit