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;

require "bin/mozilla/common.pl";

1;

'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'),

);

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

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

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

);

add_cvar_config();

}

sub edit {

edit_cvar_config();

}

my $module = shift;

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

}

my $form = $main::form;

my $locale = $main::locale;

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

my $previous_config;

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

$config->{previous_id} = $previous_config->{id};

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

$form->header();

MODULES => \@modules });

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

sub add_cvar_config {

my $form = $main::form;

$form->{edit} = 0;

display_cvar_config_form();

sub edit_cvar_config {

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

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

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

$form->{edit} = 1;

display_cvar_config_form();

sub save {

my $form = $main::form;

my %myconfig = %main::myconfig;

my $locale = $main::locale;

$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';

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

'config' => $form);

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

list_cvar_configs();

sub delete {

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();

sub display_cvar_config_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();

MODULES => \@modules });

sub swap_cvar_configs {

my $form = $main::form;

my %myconfig = %main::myconfig;

AM->swap_sortkeys(\%myconfig, $form, 'custom_variable_configs');

list_cvar_configs();

my $locale = $main::locale;

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

call_sub($action);

return;

}

}

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

}