1 [%- name = name || "fi:language";
2 id = id || "language_selector";
3 values = values || CGI.param(name); -%]
4 <select id='[% id %]' name='[% name %]'[%
5 multiple ? ' multiple="multiple"' : '';
6 size ? (' size="' _ size _ '"') : ''; %]>
8 # Language otions for languages that exist in the catalog.
9 # This file should be updated on occasion.
11 # develooper=# select code,value from config.language_map m
12 # join metabib.rec_descriptor r on (r.item_lang = m.code) group by 1,2;
14 # XXX I haven't internationalized these labels because this stuff shouldn't
15 # be hardcoded like this forever.
17 {'code' => 'eng', 'label' => 'English'},
18 {'code' => 'spa', 'label' => 'Spanish'},
19 {'code' => 'fre', 'label' => 'French'},
20 {'code' => 'ger', 'label' => 'German'},
21 {'code' => 'ita', 'label' => 'Italian'},
22 {'code' => 'chi', 'label' => 'Chinese'},
23 {'code' => 'jpn', 'label' => 'Japanese'},
24 {'code' => 'kor', 'label' => 'Korean'},
25 {'code' => 'dut', 'label' => 'Dutch'},
26 {'code' => 'gre', 'label' => 'Greek, Modern (1453- )'},
27 {'code' => 'lat', 'label' => 'Latin'},
28 {'code' => 'vie', 'label' => 'Vietnamese'},
29 {'code' => 'rus', 'label' => 'Russian'},
30 {'code' => 'nor', 'label' => 'Norwegian'},
31 {'code' => 'wel', 'label' => 'Welsh'},
32 {'code' => 'pau', 'label' => 'Palauan'},
33 {'code' => 'swe', 'label' => 'Swedish'},
34 {'code' => 'nav', 'label' => 'Navajo'},
35 {'code' => 'und', 'label' => 'Undetermined'}
37 |l(lang.code, lang.label) %]
38 <option value='[_1]'[% values.grep('^' _ lang.code _ '$').size ? ' selected="selected"' : '' %]>[_2]</option>