projekt kivitendo

sub get_config {

  $main::lxdebug->enter_sub();

  my $self     = shift;

  my %params   = @_;

  Common::check_params(\%params, qw(id));

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);

  my $query    = qq|SELECT * FROM custom_variable_configs WHERE id = ?|;

  my $config   = selectfirst_hashref_query($form, $dbh, $query, conv_i($params{id})) || { };

  $self->_unpack_flags($config);

  $main::lxdebug->leave_sub();

  return $config;

}

sub save_config {

  $main::lxdebug->enter_sub();

  my $self     = shift;

  my %params   = @_;

  Common::check_params(\%params, qw(module config));

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);

  my $q_id     = qq|SELECT nextval('custom_variable_configs_id')|;

  my $h_id     = prepare_query($form, $dbh, $q_id);

  my $q_new    =

    qq|INSERT INTO custom_variable_configs (name, description, type, default_value, options, searchable, includeable, included_by_default, module, flags, id, sortkey)

       VALUES                              (?,    ?,           ?,    ?,             ?,       ?,          ?,           ?,                   ?,      ?,     ?,

         (SELECT COALESCE(MAX(sortkey) + 1, 1) FROM custom_variable_configs))|;

  my $h_new    = prepare_query($form, $dbh, $q_new);

  my $q_update =

    qq|UPDATE custom_variable_configs SET

         name        = ?, description         = ?,

         type        = ?, default_value       = ?,

         options     = ?, searchable          = ?,

         includeable = ?, included_by_default = ?,

         module      = ?, flags               = ?

       WHERE id  = ?|;

  my $h_update = prepare_query($form, $dbh, $q_update);

  my @configs;

  if ('ARRAY' eq ref $params{config}) {

    @configs = @{ $params{config} };

  } else {

    @configs = ($params{config});

  }

  foreach my $config (@configs) {

    my ($h_actual, $q_actual);

    if (!$config->{id}) {

      do_statement($form, $h_id, $q_id);

      ($config->{id}) = $h_id->fetchrow_array();

      $h_actual       = $h_new;

      $q_actual       = $q_new;

    } else {

      $h_actual       = $h_update;

      $q_actual       = $q_update;

    }

    do_statement($form, $h_actual, $q_actual, @{$config}{qw(name description type default_value options)},

                 $config->{searchable} ? 't' : 'f', $config->{includeable} ? 't' : 'f', $config->{included_by_default} ? 't' : 'f',

                 $params{module}, $config->{flags}, conv_i($config->{id}));

  }

  $h_id->finish();

  $h_new->finish();

  $h_update->finish();

  $dbh->commit();

  $main::lxdebug->leave_sub();

}

sub delete_config {

  $main::lxdebug->enter_sub();

  my $self     = shift;

  my %params   = @_;

  Common::check_params(\%params, qw(id));

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);

  do_query($form, $dbh, qq|DELETE FROM custom_variables          WHERE config_id = ?|, conv_i($params{id}));

  do_query($form, $dbh, qq|DELETE FROM custom_variables_validity WHERE config_id = ?|, conv_i($params{id}));

  do_query($form, $dbh, qq|DELETE FROM custom_variable_configs   WHERE id        = ?|, conv_i($params{id}));

  $dbh->commit();

  $main::lxdebug->leave_sub();

}

  my $config      = CVar->get_config(id => '1234')

  CVar->save_config($config);

  CVar->delete->config($config)

# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.

__PACKAGE__->meta->make_manager_class;

am.pl

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

# 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;

module=amcvar.pl

action=list_cvar_configs

#!/bin/sh

for i in am dispatcher login; do

	rm $i.pl 2> /dev/null

	ln -s admin.pl $i.pl

done

for i in acctranscorrections amcvar amtemplates ap ar bankaccounts bp ca common cp ct datev dn do fu gl ic ir is menujs menunew menu menuv3 menuv4 oe pe projects rc rp sepa todo ustva wh vk; do

	rm $i.pl 2> /dev/null

	ln -s am.pl $i.pl

done

rm generictranslations.pl licenses.pl 2> /dev/null

ln -s common.pl generictranslations.pl

rm dispatcher.fcgi 2> /dev/null

ln -s dispatcher.fpl dispatcher.fcgi

[%- USE T8 %]

[%- USE HTML %]

  <script type='text/javascript'>

    $(function(){document.Form.name.focus();});

  </script>

 <style type="text/css">

  .small {

    font-size: 0.75em;

  }

 </style>

 <div class="listtop">[% title %]</div>

 <form action="amcvar.pl" name="Form" method="post">

  <p>

   <table>

    <tr>

     <td align="right">[% 'Module' | $T8 %]</td>

     <td>

      [%- INCLUDE generic/multibox.html

            name      = 'module',

            id_key    = 'module',

            label_key = 'description',

            DATA      = MODULES,

            onChange   = "document.getElementById('update_button').click();" %]

     </td>

    </tr>

    <tr>

     <td align="right">[% 'Variable Name' | $T8 %]<sup><span class="small">(1)</span></sup></td>

     <td><input name="name" value="[% HTML.escape(name) %]"></td>

    </tr>

    <tr>

     <td align="right">[% 'Variable Description' | $T8 %]<sup><span class="small">(2)</span></sup></td>

     <td><input name="description" value="[% HTML.escape(description) %]"></td>

    </tr>

    <tr>

     <td align="right">[% 'Type' | $T8 %]<sup><span class="small">(3)</span></sup></td>

     <td>

      <select name="type">

       [%- FOREACH row = TYPES %]

       <option value="[% HTML.escape(row.type) %]"[% IF row.type == type %] selected[% END %]>[% HTML.escape(row.type_tr) %]</option>

       [%- END %]

      </select>

     </td>

    </tr>

    <tr>

     <td align="right">[% 'Default value' | $T8 %]<sup><span class="small">(4)</span></sup></td>

     <td><input name="default_value" value="[% HTML.escape(default_value) %]"></td>

    </tr>

    <tr>

     <td align="right">[% 'Options' | $T8 %]<sup><span class="small">(5)</span></sup></td>

     <td><input name="options" value="[% HTML.escape(options) %]"></td>

    </tr>

    <tr>

     <td align="right">[% 'Is Searchable' | $T8 %]<sup><span class="small"></span></sup></td>

     <td>

      <input type="radio" name="searchable" id="searchable_1" value="1"[% IF searchable %] checked[% END %]>

      <label for="searchable_1">[% 'Yes' | $T8 %]</label>

      <input type="radio" name="searchable" id="searchable_0" value="0"[% UNLESS searchable %] checked[% END %]>

      <label for="searchable_0">[% 'No' | $T8 %]</label>

     </td>

    </tr>

    <tr>

     <td align="right">[% 'Includeable in reports' | $T8 %]<sup><span class="small"></span></sup></td>

     <td>

      <select name="inclusion">

       <option value="no"[% UNLESS includeable %] selected[% END %]>[% 'No' | $T8 %]</option>

       <option value="yes"[% IF includeable && !included_by_default %] selected[% END %]>[% 'Yes' | $T8 %]</option>

       <option value="yes_default_on"[% IF included_by_default %] selected[% END %]>[% 'Yes, included by default' | $T8 %]</option>

      </select>

     </td>

    </tr>

    [%- IF module == 'IC' %]

    <tr>

     <td align="right">[% 'Editable' | $T8 %]<sup><span class="small">(5)</span></sup></td>

     <td>

      <input type="radio" name="flag_editable" id="flag_editable_1" value="1"[% IF flag_editable %] checked[% END %]>

      <label for="flag_editable_1">[% 'Yes' | $T8 %]</label>

      <input type="radio" name="flag_editable" id="flag_editable_0" value="0"[% UNLESS flag_editable %] checked[% END %]>

      <label for="flag_editable_0">[% 'No' | $T8 %]</label>

     </td>

    </tr>

    [%- END %]

   </table>

  </p>

  <input type="hidden" name="id" value="[% HTML.escape(id) %]">

  <p>

   <input type="submit" name="action" id="update_button" value="[% 'Update' | $T8 %]">

   <input type="submit" name="action" value="[% 'Save' | $T8 %]">

   [%- IF id %]

   <input type="submit" name="action" value="[% 'Delete' | $T8 %]">

   [%- END %]

  </p>

  <hr>

  <h3>[% 'Annotations' | $T8 %]</h3>

  <p>

   (1) [% 'The variable name must only consist of letters, numbers and underscores. It must begin with a letter. Example: send_christmas_present' | $T8 %]

  </p>

  <p>

   (2) [% 'The description is shown on the form. Chose something short and descriptive.' | $T8 %]

  </p>

  <p>

   (3) [% 'For type "customer" the perl module JSON is required. Please check this on system level: $ ./scripts/installation_check.pl' | $T8 %]

  </p>

  <p>

   (4) [% 'The default value depends on the variable type:' | $T8 %]

   <br>

   <ul>

    <li>[%- 'Text, text field and number variables: The default value will be used as-is.' | $T8 %]</li>

    <li>[%- 'Boolean variables: If the default value is non-empty then the checkbox will be checked by default and unchecked otherwise.' | $T8 %]</li>

    <li>[%- 'Date and timestamp variables: If the default value equals \'NOW\' then the current date/current timestamp will be used. Otherwise the default value is copied as-is.' | $T8 %]</li>

   </ul>

  </p>

  <p>

   (5) [% 'The available options depend on the varibale type:' | $T8 %]

   <br>

   <ul>

    <li>[%- 'Text variables: \'MAXLENGTH=n\' sets the maximum entry length to \'n\'.' | $T8 %]</li>

    <li>[%- 'Text field variables: \'WIDTH=w HEIGHT=h\' sets the width and height of the text field. They default to 30 and 5 respectively.' | $T8 %]</li>

    <li>[%- 'Number variables: \'PRECISION=n\' forces numbers to be shown with exactly n decimal places.' | $T8 %]</li>

    <li>[%- 'Selection fields: The option field must contain the available options for the selection. Options are separated by \'##\', for example \'Early##Normal##Late\'.' | $T8 %]</li>

   </ul>

   <br>

   [% 'Other values are ignored.' | $T8 %]

  </p>

  [%- IF module == 'IC' %]

  <p>

   (6)

   [%- 'A variable marked as \'editable\' can be changed in each quotation, order, invoice etc.' | $T8 %]

   [% 'Otherwise the variable is only available for printing.' | $T8 %]

  </p>

  [%- END %]

 </form>

[%- USE T8 %][% USE LxERP %][% USE L %]

[% USE HTML %]

 [% IF MESSAGE %]<p>[% MESSAGE %]</p>[% END %]

 <div class="listtop">[% title %]</div>

 <form method="post" action="amcvar.pl">

  <input type="hidden" name="action" value="dispatcher">

  <input type="hidden" name="callback" value="[% HTML.escape(callback) %]">

  <p>

   [% 'Custom variables for module' | $T8 %]

   [%- INCLUDE generic/multibox.html

         name      = 'module',

         id_key    = 'module',

         label_key = 'description',

         DATA      = MODULES %]

   <input type="submit" class="submit" name="action_list_cvar_configs" value="[% 'Show' | $T8 %]">

  </p>

  <p>

   <table width="100%" id="cvarcfg_list">

    <thead>

    <tr class="listheading">

     <th align="center"><img src="image/updown.png" alt="[ LxERP.t8('reorder item') %]"></th>

     <th width="20%">[% 'Name' | $T8 %]</th>

     <th width="20%">[% 'Description' | $T8 %]</th>

     <th width="20%">[% 'Type' | $T8 %]</th>

     <th width="20%">[% 'Searchable' | $T8 %]</th>

     <th width="20%">[% 'Includeable in reports' | $T8 %]</th>

     [%- IF module == 'IC' %]

     <th width="20%">[% 'Editable' | $T8 %]</th>

     [%- END %]

    </tr>

    </thead>

    <tbody>

    [%- FOREACH cfg = CONFIGS %]

    <tr class="listrow[% loop.count % 2 %]" id="cvarcfg_id_[% cfg.id %]">

     <td align="center" class="dragdrop"><img src="image/updown.png" alt="[ LxERP.t8('reorder item') %]"></td>

     <td>

      <a href="amcvar.pl?action=edit_cvar_config&module=[% HTML.url(module) %]&id=[% HTML.url(cfg.id) %]&callback=[% HTML.url(callback) %]">

       [% HTML.escape(cfg.name) %]

      </a>

     </td>

     <td>[% HTML.escape(cfg.description) %]</td>

     <td>[% HTML.escape(cfg.type_tr) %]</td>

     <td>

      [%- IF cfg.searchable %]

      [% 'Yes' | $T8 %]

      [%- ELSE %]

      [% 'No' | $T8 %]

      [%- END %]

     </td>

     <td>

      [%- IF cfg.included_by_default %]

      [% 'Yes, included by default' | $T8 %]

      [%- ELSIF cfg.includeable %]

      [% 'Yes' | $T8 %]

      [%- ELSE %]

      [% 'No' | $T8 %]

      [%- END %]

     </td>

     [%- IF module == 'IC' %]

     <td>

      [%- IF cfg.flag_editable %]

      [% 'Yes' | $T8 %]

      [%- ELSE %]

      [% 'No' | $T8 %]

      [%- END %]

     </td>

     [%- END %]

    </tr>

    [%- END %]

    </tbody>

   </table>

  </p>

  <hr height="3">

  <p>

   <a href="amcvar.pl?action=add_cvar_config&callback=[% HTML.url(callback) %]">[%- 'Add' | $T8 %]</a>

  </p>

 </form>

 [% L.sortable_element('#cvarcfg_list tbody', url => 'controller.pl?action=CustomVariableConfig/reorder', with => 'cvarcfg_id') %]