kivitendo/bin/mozilla/amtemplates.pl @ 30913a9b
| a731cd26 | Moritz Bunkus | #=====================================================================
|
||
# LX-Office ERP
|
||||
# Copyright (C) 2004
|
||||
# Based on SQL-Ledger Version 2.1.9
|
||||
# Web http://www.lx-office.org
|
||||
#
|
||||
#=====================================================================
|
||||
# SQL-Ledger Accounting
|
||||
# Copyright (c) 1998-2002
|
||||
#
|
||||
# Author: Dieter Simader
|
||||
# Email: dsimader@sql-ledger.org
|
||||
# Web: http://www.sql-ledger.org
|
||||
#
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify
|
||||
# it under the terms of the GNU General Public License as published by
|
||||
# the Free Software Foundation; either version 2 of the License, or
|
||||
# (at your option) any later version.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful,
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
# 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
|
||||
| f7b15d43 | Christian Wittmer | # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
|
||
# MA 02110-1335, USA.
|
||||
| a731cd26 | Moritz Bunkus | #======================================================================
|
||
#
|
||||
# administration
|
||||
#
|
||||
#======================================================================
|
||||
| ef888d16 | Bernd Bleßmann | use File::Find;
|
||
| 2e66dde5 | Moritz Bunkus | use SL::DB::Default;
|
||
| a731cd26 | Moritz Bunkus | use SL::AM;
|
||
use SL::Form;
|
||||
| 95c80e5e | Moritz Bunkus | use SL::Locale::String qw(t8);
|
||
| a731cd26 | Moritz Bunkus | |||
use Data::Dumper;
|
||||
| f141166b | Sven Schöling | use strict;
|
||
| a731cd26 | Moritz Bunkus | 1;
|
||
| d629acd8 | Sven Schöling | require "bin/mozilla/common.pl";
|
||
| a731cd26 | Moritz Bunkus | |||
# end of main
|
||||
sub display {
|
||||
| f141166b | Sven Schöling | call_sub($main::form->{display_nextsub});
|
||
| a731cd26 | Moritz Bunkus | }
|
||
sub save {
|
||||
| f141166b | Sven Schöling | call_sub($main::form->{save_nextsub});
|
||
| a731cd26 | Moritz Bunkus | }
|
||
sub edit {
|
||||
| f141166b | Sven Schöling | call_sub($main::form->{edit_nextsub});
|
||
| a731cd26 | Moritz Bunkus | }
|
||
sub display_template {
|
||||
| f141166b | Sven Schöling | $main::lxdebug->enter_sub();
|
||
my $form = $main::form;
|
||||
| a731cd26 | Moritz Bunkus | |||
| 15c3d138 | Sven Schöling | $main::auth->assert('admin');
|
||
| 8c7e4493 | Moritz Bunkus | |||
| a731cd26 | Moritz Bunkus | $form->{edit} = 0;
|
||
display_template_form();
|
||||
| f141166b | Sven Schöling | $main::lxdebug->leave_sub();
|
||
| a731cd26 | Moritz Bunkus | }
|
||
sub edit_template {
|
||||
| f141166b | Sven Schöling | $main::lxdebug->enter_sub();
|
||
my $form = $main::form;
|
||||
| a731cd26 | Moritz Bunkus | |||
| 15c3d138 | Sven Schöling | $main::auth->assert('admin');
|
||
| 8c7e4493 | Moritz Bunkus | |||
| a731cd26 | Moritz Bunkus | $form->{edit} = 1;
|
||
display_template_form();
|
||||
| f141166b | Sven Schöling | $main::lxdebug->leave_sub();
|
||
| a731cd26 | Moritz Bunkus | }
|
||
sub save_template {
|
||||
| f141166b | Sven Schöling | $main::lxdebug->enter_sub();
|
||
| a731cd26 | Moritz Bunkus | |||
| f141166b | Sven Schöling | my $form = $main::form;
|
||
my %myconfig = %main::myconfig;
|
||||
my $locale = $main::locale;
|
||||
| 15c3d138 | Sven Schöling | $main::auth->assert('admin');
|
||
| 8c7e4493 | Moritz Bunkus | |||
| b391b42d | Moritz Bunkus | $form->isblank("formname", $locale->text("You're not editing a file."));
|
||
| a731cd26 | Moritz Bunkus | |||
my ($filename) = AM->prepare_template_filename(\%myconfig, $form);
|
||||
if (my $error = AM->save_template($filename, $form->{content})) {
|
||||
$form->error(sprintf($locale->text("Saving the file '%s' failed. OS error message: %s"), $filename, $error));
|
||||
}
|
||||
$form->{edit} = 0;
|
||||
display_template_form();
|
||||
| f141166b | Sven Schöling | $main::lxdebug->leave_sub();
|
||
| a731cd26 | Moritz Bunkus | }
|
||
sub display_template_form {
|
||||
| f141166b | Sven Schöling | $main::lxdebug->enter_sub();
|
||
my $form = $main::form;
|
||||
my %myconfig = %main::myconfig;
|
||||
my $locale = $main::locale;
|
||||
| a731cd26 | Moritz Bunkus | |||
| 15c3d138 | Sven Schöling | $main::auth->assert('admin');
|
||
| 8c7e4493 | Moritz Bunkus | |||
| 2e66dde5 | Moritz Bunkus | 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;
|
||||
| ef888d16 | Bernd Bleßmann | if ($form->{"formname"} =~ m|\.\.| || $form->{"formname"} =~ m|^/|) {
|
||
$form->{"formname"} =~ s|.*/||;
|
||||
}
|
||||
| a731cd26 | Moritz Bunkus | my $format = $form->{"format"} eq "html" ? "html" : "tex";
|
||
| b391b42d | Moritz Bunkus | $form->{"title"} = $locale->text("Edit templates");
|
||
| 4b937d1a | Sven Donath | if ($form->{"format"}) {
|
||
$form->{"title"} = uc($form->{"format"}) . " - " . $form->{"title"};
|
||||
}
|
||||
| a731cd26 | Moritz Bunkus | |||
my %options;
|
||||
| 8c7e4493 | Moritz Bunkus | my @hidden = qw(type format);
|
||
| a731cd26 | Moritz Bunkus | |||
| b391b42d | Moritz Bunkus | if (!$form->{"edit"}) {
|
||
| a731cd26 | Moritz Bunkus | $options{"SHOW_EDIT_OPTIONS"} = 1;
|
||
#
|
||||
# Setup "formname" selection
|
||||
#
|
||||
| b4089f8d | Moritz Bunkus | $form->get_lists("printers" => "ALL_PRINTERS",
|
||
"languages" => "ALL_LANGUAGES",
|
||||
"dunning_configs" => "ALL_DUNNING_CONFIGS");
|
||||
| a731cd26 | Moritz Bunkus | my %formname_setup =
|
||
(
|
||||
| faad5f2c | Moritz Bunkus | # 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"),
|
||||
| a731cd26 | Moritz Bunkus | );
|
||
my (@values, $file, $setup);
|
||||
while (($file, $setup) = each(%formname_setup)) {
|
||||
| 66671e22 | Sven Schöling | next if ref($setup) && !$setup->{$format};
|
||
| a731cd26 | Moritz Bunkus | |||
push(@values,
|
||||
{ "value" => $file,
|
||||
| b9882bee | Moritz Bunkus | "label" => ref($setup) ? $setup->{"translation"} : $setup });
|
||
| a731cd26 | Moritz Bunkus | }
|
||
| b4089f8d | Moritz Bunkus | # "zahlungserinnerung" => $locale->text('Payment Reminder'),
|
||
foreach my $ref (@{ $form->{"ALL_DUNNING_CONFIGS"} }) {
|
||||
next if !$ref->{"template"};
|
||||
push(@values,
|
||||
| b9882bee | Moritz Bunkus | { "value" => $ref->{"template"},
|
||
| ee858793 | Moritz Bunkus | "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") . ')' });
|
||||
| b4089f8d | Moritz Bunkus | }
|
||
| a731cd26 | Moritz Bunkus | @values = sort({ $a->{"label"} cmp $b->{"label"} } @values);
|
||
| ef888d16 | Bernd Bleßmann | #
|
||
# at the end: others/includes for tex
|
||||
#
|
||||
if ($format eq "tex") {
|
||||
# search all .tex-files in template dir (recursively)
|
||||
| 6348bffb | Bernd Bleßmann | my $template_dir = $defaults->templates;
|
||
| ef888d16 | Bernd Bleßmann | my @all_files;
|
||
find(
|
||||
sub {
|
||||
next if (-l $_ || -d $_);
|
||||
next unless (-f $_ && $_ =~ m/.*?\.tex$/);
|
||||
my $fname = $File::Find::name;
|
||||
# remove template dir from name
|
||||
| 93c17c67 | Bernd Bleßmann | $fname =~ s|^\Q$template_dir\E/||;
|
||
| ef888d16 | Bernd Bleßmann | # remove .tex from name
|
||
$fname =~ s|.tex$||;
|
||||
push(@all_files, $fname);
|
||||
| 6348bffb | Bernd Bleßmann | }, $template_dir);
|
||
| ef888d16 | Bernd Bleßmann | |||
# 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)" });
|
||||
}
|
||||
}
|
||||
| b9882bee | Moritz Bunkus | $options{FORMNAME} = [ @values ];
|
||
| a731cd26 | Moritz Bunkus | |||
#
|
||||
# Setup "language" selection
|
||||
#
|
||||
| b9882bee | Moritz Bunkus | @values = ();
|
||
| a731cd26 | Moritz Bunkus | |||
foreach my $item (@{ $form->{"ALL_LANGUAGES"} }) {
|
||||
next unless ($item->{"template_code"});
|
||||
push(@values,
|
||||
| b9882bee | Moritz Bunkus | { "value" => "$item->{id}--$item->{template_code}",
|
||
"label" => $item->{"description"} });
|
||||
| a731cd26 | Moritz Bunkus | }
|
||
| b9882bee | Moritz Bunkus | $options{LANGUAGE} = [ @values ];
|
||
| a731cd26 | Moritz Bunkus | |||
#
|
||||
# Setup "printer" selection
|
||||
#
|
||||
| b9882bee | Moritz Bunkus | @values = ();
|
||
| a731cd26 | Moritz Bunkus | foreach my $item (@{ $form->{"ALL_PRINTERS"} }) {
|
||
next unless ($item->{"template_code"});
|
||||
push(@values,
|
||||
| b9882bee | Moritz Bunkus | { "value" => "$item->{id}--$item->{template_code}",
|
||
"label" => $item->{"printer_description"} });
|
||||
| a731cd26 | Moritz Bunkus | }
|
||
| b9882bee | Moritz Bunkus | $options{PRINTER} = [ @values ];
|
||
| a731cd26 | Moritz Bunkus | |||
} else {
|
||||
push(@hidden, qw(formname language printer));
|
||||
}
|
||||
| b391b42d | Moritz Bunkus | if ($form->{formname}) {
|
||
| a731cd26 | Moritz Bunkus | $options{"SHOW_CONTENT"} = 1;
|
||
($options{"filename"}, $options{"display_filename"})
|
||||
= AM->prepare_template_filename(\%myconfig, $form);
|
||||
($options{"content"}, $options{"lines"})
|
||||
= AM->load_template($options{"filename"});
|
||||
$options{"CAN_EDIT"} = $form->{"edit"};
|
||||
| 8abd9ce3 | Moritz Bunkus | if (!$form->{edit}) {
|
||
| 95c80e5e | Moritz Bunkus | $options{"content"} = "\n\n" if (!$options{"content"});
|
||
| a731cd26 | Moritz Bunkus | }
|
||
}
|
||||
$options{"HIDDEN"} = [ map(+{ "name" => $_, "value" => $form->{$_} }, @hidden) ];
|
||||
| 95c80e5e | Moritz Bunkus | setup_amtemplates_display_form_action_bar(
|
||
mode => $form->{edit} ? 'edit' : 'show',
|
||||
template_selected => $options{SHOW_CONTENT},
|
||||
);
|
||||
| a731cd26 | Moritz Bunkus | $form->header;
|
||
| 9aaca433 | Moritz Bunkus | print($form->parse_html_template("am/edit_templates", \%options));
|
||
| a731cd26 | Moritz Bunkus | |||
| f141166b | Sven Schöling | $main::lxdebug->leave_sub();
|
||
| a731cd26 | Moritz Bunkus | }
|
||
| 95c80e5e | Moritz Bunkus | sub setup_amtemplates_display_form_action_bar {
|
||
my %params = @_;
|
||||
for my $bar ($::request->layout->get('actionbar')) {
|
||||
$bar->add(
|
||||
action => [
|
||||
t8('Edit'),
|
||||
submit => [ '#form', { action => 'edit_template' } ],
|
||||
accesskey => 'enter',
|
||||
only_if => $params{mode} eq 'show',
|
||||
disabled => !$params{template_selected} ? t8('No template has been selected yet.') : undef,
|
||||
],
|
||||
action => [
|
||||
t8('Save'),
|
||||
submit => [ '#form', { action => 'save_template' } ],
|
||||
accesskey => 'enter',
|
||||
only_if => $params{mode} eq 'edit',
|
||||
],
|
||||
action => [
|
||||
t8('Abort'),
|
||||
call => [ 'kivi.history_back' ],
|
||||
only_if => $params{mode} eq 'edit',
|
||||
],
|
||||
);
|
||||
}
|
||||
}
|
||||
| a731cd26 | Moritz Bunkus | 1;
|