projekt kivitendo

#=====================================================================

# 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

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

#

# administration

#

#======================================================================

use SL::AM;

use SL::CVar;

use SL::Form;

use Data::Dumper;

use List::MoreUtils qw(any);

require "bin/mozilla/common.pl";

use strict;

1;

# end of main

my $locale = $main::locale;

our %translations = ('text' => $locale->text('Free-form text'),

'textfield' => $locale->text('Text field'),

'number' => $locale->text('Number'),

'date' => $locale->text('Date'),

'timestamp' => $locale->text('Timestamp'),

'bool' => $locale->text('Yes/No (Checkbox)'),

'select' => $locale->text('Selection'),

'customer' => $locale->text('Customer'),

'vendor' => $locale->text('Vendor'),

'part' => $locale->text('Part'),

);

our @types = qw(text textfield number date bool select customer vendor part); # timestamp

our @modules = ({ module => 'CT', description => $locale->text('Customers and vendors') },

{ module => 'Contacts', description => $locale->text('Contact persons') },

{ module => 'IC', description => $locale->text('Parts, services and assemblies') },

{ module => 'Projects', description => $locale->text('Projects') },

);

sub add {

add_cvar_config();

}

sub edit {

edit_cvar_config();

}

sub _is_valid_module {

my $module = shift;

return any { $_->{module} eq $module } @modules;

}

sub list_cvar_configs {

$main::lxdebug->enter_sub();

my $form = $main::form;

my $locale = $main::locale;

$main::auth->assert('config');

$form->{module} = $form->{module} || $form->{cvar_module} || 'CT';

$form->{module} = 'CT' unless _is_valid_module($form->{module});

my @configs = @{ CVar->get_configs(module => $form->{module}) };

foreach my $config (@configs) {

$config->{type_tr} = $translations{$config->{type}};

}

$form->{title} = $locale->text('List of custom variables');

$form->header();

print $form->parse_html_template('amcvar/list_cvar_configs', { CONFIGS => \@configs,

MODULES => \@modules });

# $main::lxdebug->dump(0, "modules", \@modules);

$main::lxdebug->leave_sub();

}

sub add_cvar_config {

$main::lxdebug->enter_sub();

my $form = $main::form;

$main::auth->assert('config');

$form->{module} = $form->{module} || $form->{cvar_module} || 'CT';

$form->{edit} = 0;

display_cvar_config_form();

$main::lxdebug->leave_sub();

}

sub edit_cvar_config {

$main::lxdebug->enter_sub();

my $form = $main::form;

$main::auth->assert('config');

my $config = CVar->get_config('id' => $form->{id});

map { $form->{$_} = $config->{$_} } keys %{ $config };

$form->{edit} = 1;

display_cvar_config_form();

$main::lxdebug->leave_sub();

}

sub save {

$main::lxdebug->enter_sub();

my $form = $main::form;

my %myconfig = %main::myconfig;

my $locale = $main::locale;

$main::auth->assert('config');

$form->isblank('name', $locale->text('The name is missing.'));

$form->isblank('description', $locale->text('The description is missing.'));

$form->isblank('options', $locale->text('The option field is empty.')) if ($form->{type} eq 'select');

if ($form->{name} !~ /^[a-z][a-z0-9_]*$/i) {

$form->error($locale->text('The name must only consist of letters, numbers and underscores and start with a letter.'));

}

if (($form->{type} eq 'number') && ($form->{default_value} ne '')) {

$form->{default_value} = $form->parse_amount(\%myconfig, $form->{default_value});

}

$form->{included_by_default} = $form->{inclusion} eq 'yes_default_on';

$form->{includeable} = $form->{inclusion} ne 'no';

$form->{flags} = join ':', map { m/^flag_(.*)/; "${1}=" . $form->{$_} } grep { m/^flag_/ } keys %{ $form };

CVar->save_config('module' => $form->{module},

'config' => $form);

$form->{MESSAGE} = $locale->text('The custom variable has been saved.');

list_cvar_configs();

$main::lxdebug->leave_sub();

}

sub delete {

$main::lxdebug->enter_sub();

my $form = $main::form;

my $locale = $main::locale;

CVar->delete_config('id' => $form->{id});

$form->{MESSAGE} = $locale->text('The custom variable has been deleted.');

list_cvar_configs();

$main::lxdebug->leave_sub();

}

sub display_cvar_config_form {

$main::lxdebug->enter_sub();

my $form = $main::form;

my %myconfig = %main::myconfig;

my $locale = $main::locale;

$main::auth->assert('config');

my @types = map { { 'type' => $_, 'type_tr' => $translations{$_} } } @types;

if (($form->{type} eq 'number') && ($form->{default_value} ne '')) {

$form->{default_value} = $form->format_amount(\%myconfig, $form->{default_value});

}

$form->{title} = $form->{edit} ? $locale->text("Edit custom variable") : $locale->text("Add custom variable");

$form->header();

print $form->parse_html_template("amcvar/display_cvar_config_form", { TYPES => \@types,

MODULES => \@modules });

$main::lxdebug->leave_sub();

}

sub update {

$main::lxdebug->enter_sub();

my $form = $main::form;

$main::auth->assert('config');

$form->{included_by_default} = $form->{inclusion} eq 'yes_default_on';

$form->{includeable} = $form->{inclusion} ne 'no';

display_cvar_config_form();

$main::lxdebug->leave_sub();

}

sub dispatcher {

my $form = $main::form;

my $locale = $main::locale;

foreach my $action (qw(list_cvar_configs add_cvar_config update)) {

if ($form->{"action_${action}"}) {

call_sub($action);

return;

}

}

$form->error($locale->text('No action defined.'));

}

1;