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;