# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
#======================================================================
#
# administration
#
#======================================================================
+use File::Find;
+
+use SL::DB::Default;
use SL::AM;
use SL::Form;
use Data::Dumper;
+use strict;
+
1;
-require "$form->{path}/common.pl";
+require "bin/mozilla/common.pl";
# end of main
sub display {
- call_sub($form->{display_nextsub});
+ call_sub($main::form->{display_nextsub});
}
sub save {
- call_sub($form->{save_nextsub});
+ call_sub($main::form->{save_nextsub});
}
sub edit {
- call_sub($form->{edit_nextsub});
+ call_sub($main::form->{edit_nextsub});
}
sub display_template {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+
+ $main::auth->assert('admin');
$form->{edit} = 0;
display_template_form();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub edit_template {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+
+ $main::auth->assert('admin');
$form->{edit} = 1;
display_template_form();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub save_template {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ $main::auth->assert('admin');
$form->isblank("formname", $locale->text("You're not editing a file.")) unless ($form->{type} eq "stylesheet");
$form->{edit} = 0;
display_template_form();
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
sub display_template_form {
- $lxdebug->enter_sub();
+ $main::lxdebug->enter_sub();
+
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+ my $locale = $main::locale;
+
+ $main::auth->assert('admin');
+
+ my $defaults = SL::DB::Default->get;
+ $form->error($::locale->text('No print templates have been created for this client yet. Please do so in the client configuration.')) if !$defaults->templates;
+
+ if ($form->{"formname"} =~ m|\.\.| || $form->{"formname"} =~ m|^/|) {
+ $form->{"formname"} =~ s|.*/||;
+ }
- $form->{"formname"} =~ s|.*/||;
my $format = $form->{"format"} eq "html" ? "html" : "tex";
$form->{"title"} = $form->{"type"} eq "stylesheet" ? $locale->text("Edit the stylesheet") : $locale->text("Edit templates");
+ if ($form->{"format"}) {
+ $form->{"title"} = uc($form->{"format"}) . " - " . $form->{"title"};
+ }
my %options;
- my @hidden = qw(login path password type format);
+ my @hidden = qw(type format);
if (($form->{"type"} ne "stylesheet") && !$form->{"edit"}) {
$options{"SHOW_EDIT_OPTIONS"} = 1;
# Setup "formname" selection
#
+ $form->get_lists("printers" => "ALL_PRINTERS",
+ "languages" => "ALL_LANGUAGES",
+ "dunning_configs" => "ALL_DUNNING_CONFIGS");
+
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'),
+ # 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'),
+ pick_list => $locale->text('Pick List'),
+ proforma => $locale->text('Proforma Invoice'),
+ purchase_delivery_order => { translation => $::locale->text('Purchase delivery order'), tex => 1 },
+ purchase_order => $locale->text('Purchase Order'),
+ receipt => { translation => $locale->text('Receipt'), tex => 1 },
+ request_quotation => $locale->text('RFQ'),
+ sales_delivery_order => { translation => $::locale->text('Sales delivery order'), tex => 1 },
+ sales_order => $locale->text('Confirmation'),
+ sales_quotation => $locale->text('Quotation'),
+ statement => $locale->text('Statement'),
+ storno_invoice => $locale->text('Storno Invoice'),
+ "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"),
);
my (@values, $file, $setup);
push(@values,
{ "value" => $file,
- "label" => ref($setup) ? $setup->{"translation"} : $setup,
- "default" => $file eq $form->{"formname"} });
+ "label" => ref($setup) ? $setup->{"translation"} : $setup });
+ }
+
+ # "zahlungserinnerung" => $locale->text('Payment Reminder'),
+
+ foreach my $ref (@{ $form->{"ALL_DUNNING_CONFIGS"} }) {
+ next if !$ref->{"template"};
+
+ push(@values,
+ { "value" => $ref->{"template"},
+ "label" => $locale->text('Payment Reminder') . ": " . $ref->{"dunning_description"} },
+ { "value" => $ref->{"template"} . "_invoice",
+ "label" => $locale->text('Payment Reminder') . ": " . $ref->{"dunning_description"} . ' (' . $locale->text("Invoice for fees") . ')' });
}
@values = sort({ $a->{"label"} cmp $b->{"label"} } @values);
- $options{"FORMNAME"} = [ @values ];
+ #
+ # at the end: others/includes for tex
+ #
+ if ($format eq "tex") {
+ # search all .tex-files in template dir (recursively)
+ my $template_dir = $defaults->templates;
+ my @all_files;
+ find(
+ sub {
+ next if (-l $_ || -d $_);
+ next unless (-f $_ && $_ =~ m/.*?\.tex$/);
+
+ my $fname = $File::Find::name;
+ # remove template dir from name
+ $fname =~ s|^\Q$template_dir\E/||;
+ # remove .tex from name
+ $fname =~ s|.tex$||;
+
+ push(@all_files, $fname);
+
+ }, $template_dir);
+
+ # filter all files already set up (i.e. not already in @values)
+ my @other_files = grep { my $a=$_; not grep {$a eq $_->{value}} @values } @all_files;
+
+ # add other tex files
+ foreach my $o (@other_files) {
+ push(@values, { "value" => $o, "label" => $locale->text("Others")." ($o)" });
+ }
+ }
+
+ $options{FORMNAME} = [ @values ];
#
# Setup "language" selection
#
- $form->get_lists("printers" => "ALL_PRINTERS",
- "languages" => "ALL_LANGUAGES");
-
- @values = ( { "value" => "", "label" => "", "default" => 0 } );
+ @values = ();
foreach my $item (@{ $form->{"ALL_LANGUAGES"} }) {
next unless ($item->{"template_code"});
- my $key = "$item->{id}--$item->{template_code}";
-
push(@values,
- { "value" => $key,
- "label" => $item->{"description"},
- "default" => $key eq $form->{"language"} });
+ { "value" => "$item->{id}--$item->{template_code}",
+ "label" => $item->{"description"} });
}
- $options{"LANGUAGE"} = [ @values ];
- $options{"SHOW_LANGUAGE"} = scalar(@values) > 1;
-
- @values = ( { "value" => "", "label" => "", "default" => 0 } );
+ $options{LANGUAGE} = [ @values ];
#
# Setup "printer" selection
#
+ @values = ();
+
foreach my $item (@{ $form->{"ALL_PRINTERS"} }) {
next unless ($item->{"template_code"});
- my $key = "$item->{id}--$item->{template_code}";
-
push(@values,
- { "value" => $key,
- "label" => $item->{"printer_description"},
- "default" => $key eq $form->{"printer"} });
+ { "value" => "$item->{id}--$item->{template_code}",
+ "label" => $item->{"printer_description"} });
}
- $options{"PRINTER"} = [ @values ];
- $options{"SHOW_PRINTER"} = scalar(@values) > 1;
+ $options{PRINTER} = [ @values ];
} else {
push(@hidden, qw(formname language printer));
$options{"CAN_EDIT"} = $form->{"edit"};
- if ($form->{edit}) {
- $form->{fokus} = "Form.content";
-
- } else {
+ if (!$form->{edit}) {
$options{"content"} = "\n\n" if (!$options{"content"});
$options{"SHOW_SECOND_EDIT_BUTTON"} = $options{"lines"} > 25;
}
$form->header;
print($form->parse_html_template("am/edit_templates", \%options));
- $lxdebug->leave_sub();
+ $main::lxdebug->leave_sub();
}
1;
projects / kivitendo-erp.git / blobdiff