- $language = qq|<select name=language>
- <option value=""></option>|;
- %lang = (de => "deutsch", en => "englisch", fr => "französisch");
- foreach $item (keys %lang) {
- if ($form->{language} eq $item) {
- $language .= qq|<option value="$item" selected>$lang{$item}</option>|;
- } else {
- $language .= qq|<option value="$item">$lang{$item}</option>|;
+ $format .= qq|<option value=html $form->{DF}{html}>HTML</option>|;
+
+ if ($latex_templates) {
+ $format .= qq|<option value=postscript $form->{DF}{postscript}>| .
+ $locale->text('Postscript') . qq|</option>|;
+ }
+
+ if ($opendocument_templates) {
+ $format .= qq|<option value=opendocument $form->{DF}{opendocument}>| .
+ $locale->text("OpenDocument/OASIS") . qq|</option>|;
+ }
+ $format .= qq|</select>|;
+
+ if (scalar(keys (%{ $form->{languages} })) !=0) {
+ $language_select = qq|<select name=language_id>
+ <option value=""></option>}|;
+ foreach $item (@{ $form->{languages} }) {
+ if ($form->{language_id} eq $item->{id}) {
+ $language_select .= qq|<option value="$item->{id}" selected>$item->{description}</option>|;
+ } else {
+ $language_select .= qq|<option value="$item->{id}">$item->{description}</option>|;
+ }
+ }
+ }
+
+ if (scalar(keys (%{ $form->{printers} })) !=0) {
+
+ $printer_select = qq|<select name=printer_id>
+ <option value=""></option>|;
+ foreach $item (@{ $form->{printers} }) {
+ $printer_select .= qq|<option value="$item->{id}">$item->{printer_description}</option>|;