Einige Browser (Opera) mögen es nicht, wenn "checked" bei Checkboxen in Anführungszei...
[kivitendo-erp.git] / bin / mozilla / amtemplates.pl
1 #=====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2004
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 #
7 #=====================================================================
8 # SQL-Ledger Accounting
9 # Copyright (c) 1998-2002
10 #
11 #  Author: Dieter Simader
12 #   Email: dsimader@sql-ledger.org
13 #     Web: http://www.sql-ledger.org
14 #
15 #
16 # This program is free software; you can redistribute it and/or modify
17 # it under the terms of the GNU General Public License as published by
18 # the Free Software Foundation; either version 2 of the License, or
19 # (at your option) any later version.
20 #
21 # This program is distributed in the hope that it will be useful,
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
24 # GNU General Public License for more details.
25 # You should have received a copy of the GNU General Public License
26 # along with this program; if not, write to the Free Software
27 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
28 #======================================================================
29 #
30 # administration
31 #
32 #======================================================================
33
34 use SL::AM;
35 use SL::Form;
36
37 use Data::Dumper;
38
39 1;
40
41 require "bin/mozilla/common.pl";
42
43 # end of main
44
45 sub display {
46   call_sub($form->{display_nextsub});
47 }
48
49 sub save {
50   call_sub($form->{save_nextsub});
51 }
52
53 sub edit {
54   call_sub($form->{edit_nextsub});
55 }
56
57 sub display_template {
58   $lxdebug->enter_sub();
59
60   $form->{edit} = 0;
61   display_template_form();
62
63   $lxdebug->leave_sub();
64 }
65
66 sub edit_template {
67   $lxdebug->enter_sub();
68
69   $form->{edit} = 1;
70   display_template_form();
71
72   $lxdebug->leave_sub();
73 }
74
75 sub save_template {
76   $lxdebug->enter_sub();
77
78   $form->isblank("formname", $locale->text("You're not editing a file.")) unless ($form->{type} eq "stylesheet");
79
80   my ($filename) = AM->prepare_template_filename(\%myconfig, $form);
81   if (my $error = AM->save_template($filename, $form->{content})) {
82     $form->error(sprintf($locale->text("Saving the file '%s' failed. OS error message: %s"), $filename, $error));
83   }
84
85   $form->{edit} = 0;
86   display_template_form();
87
88   $lxdebug->leave_sub();
89 }
90
91 sub display_template_form {
92   $lxdebug->enter_sub();
93
94   $form->{"formname"} =~ s|.*/||;
95   my $format = $form->{"format"} eq "html" ? "html" : "tex";
96
97   $form->{"title"} = $form->{"type"} eq "stylesheet" ? $locale->text("Edit the stylesheet") : $locale->text("Edit templates");
98
99   my %options;
100
101   my @hidden = qw(login password type format);
102
103   if (($form->{"type"} ne "stylesheet") && !$form->{"edit"}) {
104     $options{"SHOW_EDIT_OPTIONS"} = 1;
105
106     #
107     # Setup "formname" selection
108     #
109
110     $form->get_lists("printers" => "ALL_PRINTERS",
111                      "languages" => "ALL_LANGUAGES",
112                      "dunning_configs" => "ALL_DUNNING_CONFIGS");
113
114     my %formname_setup =
115       (
116         "balance_sheet" => { "translation" => $locale->text('Balance Sheet'), "html" => 1 },
117         "bin_list" => $locale->text('Bin List'),
118         "bwa" => { "translation" => $locale->text('BWA'), "html" => 1 },
119         "check" => { "translation" => $locale->text('Check'), "html" => 1 },
120         "credit_note" => $locale->text('Credit Note'),
121         "income_statement" => { "translation" => $locale->text('Income Statement'), "html" => 1 },
122         "invoice" => $locale->text('Invoice'),
123         "packing_list" => $locale->text('Packing List'),
124         "pick_list" => $locale->text('Pick List'),
125         "proforma" => $locale->text('Proforma Invoice'),
126         "purchase_order" => $locale->text('Purchase Order'),
127         "receipt" => { "translation" => $locale->text('Receipt'), "tex" => 1 },
128         "request_quotation" => $locale->text('RFQ'),
129         "sales_order" => $locale->text('Confirmation'),
130         "sales_quotation" => $locale->text('Quotation'),
131         "statement" => $locale->text('Statement'),
132         "storno_invoice" => $locale->text('Storno Invoice'),
133         "storno_packing_list" => $locale->text('Storno Packing List'),
134         "ustva-2004" => { "translation" => $locale->text("USTVA 2004"), "tex" => 1 },
135         "ustva-2005" => { "translation" => $locale->text("USTVA 2005"), "tex" => 1 },
136         "ustva-2006" => { "translation" => $locale->text("USTVA 2006"), "tex" => 1 },
137         "ustva-2007" => { "translation" => $locale->text("USTVA 2007"), "tex" => 1 },
138         "ustva" => $locale->text("USTVA"),
139       );
140
141     my (@values, $file, $setup);
142
143     while (($file, $setup) = each(%formname_setup)) {
144       next if ref($setup) && !$setup->{$format};
145
146       push(@values,
147            { "value"   => $file,
148              "label"   => ref($setup) ? $setup->{"translation"} : $setup,
149              "default" => $file eq $form->{"formname"} });
150     }
151
152     # "zahlungserinnerung" => $locale->text('Payment Reminder'),
153
154     foreach my $ref (@{ $form->{"ALL_DUNNING_CONFIGS"} }) {
155       next if !$ref->{"template"};
156
157       push(@values,
158            { "value"   => $ref->{"template"},
159              "label"   => $locale->text('Payment Reminder') . ": " . $ref->{"dunning_description"},
160              "default" => $ref->{"template"} eq $form->{"formname"} });
161     }
162
163     @values = sort({ $a->{"label"} cmp $b->{"label"} } @values);
164
165     $options{"FORMNAME"} = [ @values ];
166
167     #
168     # Setup "language" selection
169     #
170
171     @values = ( { "value" => "", "label" => "", "default" => 0 } );
172
173     foreach my $item (@{ $form->{"ALL_LANGUAGES"} }) {
174       next unless ($item->{"template_code"});
175
176       my $key = "$item->{id}--$item->{template_code}";
177
178       push(@values,
179            { "value"   => $key,
180              "label"   => $item->{"description"},
181              "default" => $key eq $form->{"language"} });
182     }
183
184     $options{"LANGUAGE"} = [ @values ];
185     $options{"SHOW_LANGUAGE"} = scalar(@values) > 1;
186
187     @values = ( { "value" => "", "label" => "", "default" => 0 } );
188
189     #
190     # Setup "printer" selection
191     #
192
193     foreach my $item (@{ $form->{"ALL_PRINTERS"} }) {
194       next unless ($item->{"template_code"});
195
196       my $key = "$item->{id}--$item->{template_code}";
197
198       push(@values,
199            { "value"   => $key,
200              "label"   => $item->{"printer_description"},
201              "default" => $key eq $form->{"printer"} });
202     }
203
204     $options{"PRINTER"} = [ @values ];
205     $options{"SHOW_PRINTER"} = scalar(@values) > 1;
206
207   } else {
208     push(@hidden, qw(formname language printer));
209   }
210
211   if ($form->{formname} || ($form->{type} eq "stylesheet")) {
212     $options{"SHOW_CONTENT"} = 1;
213
214     ($options{"filename"}, $options{"display_filename"})
215       = AM->prepare_template_filename(\%myconfig, $form);
216
217     ($options{"content"}, $options{"lines"})
218       = AM->load_template($options{"filename"});
219
220     $options{"CAN_EDIT"} = $form->{"edit"};
221
222     if ($form->{edit}) {
223       $form->{fokus} = "Form.content";
224
225     } else {
226       $options{"content"}                 = "\n\n" if (!$options{"content"});
227       $options{"SHOW_SECOND_EDIT_BUTTON"} = $options{"lines"} > 25;
228     }
229   }
230
231   $options{"HIDDEN"} = [ map(+{ "name" => $_, "value" => $form->{$_} }, @hidden) ];
232
233   $form->header;
234   print($form->parse_html_template("am/edit_templates", \%options));
235
236   $lxdebug->leave_sub();
237 }
238
239 1;