+ my %formname_setup =
+ (
+ "balance_sheet" => { "translation" => $locale->text('Balance Sheet'), "html" => 1 },
+ "bin_list" => $locale->text('Bin List'),
+ "bwa" => { "translation" => $locale->text('BWA'), "html" => 1 },
+ "check" => { "translation" => $locale->text('Check'), "html" => 1 },
+ "credit_note" => $locale->text('Credit Note'),
+ "income_statement" => { "translation" => $locale->text('Income Statement'), "html" => 1 },
+ "invoice" => $locale->text('Invoice'),
+ "packing_list" => $locale->text('Packing List'),
+ "pick_list" => $locale->text('Pick List'),
+ "proforma" => $locale->text('Proforma Invoice'),
+ "purchase_order" => $locale->text('Purchase Order'),
+ "receipt" => { "translation" => $locale->text('Receipt'), "tex" => 1 },
+ "request_quotation" => $locale->text('RFQ'),
+ "sales_order" => $locale->text('Confirmation'),
+ "sales_quotation" => $locale->text('Quotation'),
+ "statement" => $locale->text('Statement'),
+ "storno_invoice" => $locale->text('Storno Invoice'),
+ "storno_packing_list" => $locale->text('Storno Packing List'),
+ "ustva-2004" => { "translation" => $locale->text("USTVA 2004"), "tex" => 1 },
+ "ustva-2005" => { "translation" => $locale->text("USTVA 2005"), "tex" => 1 },
+ "ustva-2006" => { "translation" => $locale->text("USTVA 2006"), "tex" => 1 },
+ "ustva-2007" => { "translation" => $locale->text("USTVA 2007"), "tex" => 1 },
+ "ustva" => $locale->text("USTVA"),
+ "zahlungserinnerung" => $locale->text('Payment Reminder'),
+ );
+
+ my (@values, %labels, $file, $setup);
+
+ while (($file, $setup) = each(%formname_setup)) {
+ next unless (!ref($setup) || $setup->{$format});
+
+ push(@values, $file);
+ $labels{$file} = ref($setup) ? $setup->{translation} : $setup;
+ }
+ @values = sort({ $labels{$a} cmp $labels{$b} } @values);
+
+ $edit_options .=
+ $locale->text("Template") . " " .
+ NTI($cgi->popup_menu("-name" => "formname", "-default" => $form->{formname},
+ "-values" => \@values, "-labels" => \%labels));
+
+ $form->get_lists("printers" => "ALL_PRINTERS",
+ "languages" => "ALL_LANGUAGES");
+
+ @values = ("");
+ %labels = ();
+
+ foreach my $item (@{ $form->{ALL_LANGUAGES} }) {
+ next unless ($item->{template_code});
+ my $key = "$item->{id}--$item->{template_code}";
+ push(@values, $key);
+ $labels{$key} = $item->{description};
+ }
+
+ if (1 != scalar(@values)) {
+ $edit_options .=
+ " " . $locale->text("Language") . " " .
+ NTI($cgi->popup_menu("-name" => "language", "-default" => $form->{language},
+ "-values" => \@values, "-labels" => \%labels));
+ }
+
+ @values = ("");
+ %labels = ();
+
+ foreach my $item (@{ $form->{ALL_PRINTERS} }) {
+ next unless ($item->{template_code});
+ my $key = "$item->{id}--$item->{template_code}";
+ push(@values, $key);
+ $labels{$key} = $item->{printer_description};
+ }
+
+ if (1 != scalar(@values)) {
+ $edit_options .=
+ " " . $locale->text("Printer") . " " .
+ NTI($cgi->popup_menu("-name" => "printer", "-default" => $form->{printer},
+ "-values" => \@values, "-labels" => \%labels));
+ }
+
+ $edit_options .= qq|
+
+ <input type="hidden" name="display_nextsub" value="display_template">
+
+ <input name="action" type="submit" class="submit" value="|
+ . $locale->text('Display') . qq|">
+
+ </p>
+
+ <hr>
projects / kivitendo-erp.git / blobdiff