projekt kivitendo

package SL::Controller::PartsGroup;

use strict;

use parent qw(SL::Controller::Base);

use SL::DB::PartsGroup;

use SL::Helper::Flash;

use SL::Locale::String;

use List::MoreUtils qw(any);

use Rose::Object::MakeMethods::Generic (

  scalar                  => [ qw(partsgroup) ],

  # 'scalar --get_set_init' => [ qw(defaults) ],

);

__PACKAGE__->run_before('check_auth');

__PACKAGE__->run_before('load_partsgroup', only => [ qw(edit update delete) ]);

sub check_auth {

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

}

#

# actions

#

sub action_list {

  my ($self, %params) = @_;

  $self->setup_list_action_bar;

  $self->render('partsgroup/list',

                 title => $::locale->text('Partsgroups'),

                 PARTSGROUPS => SL::DB::Manager::PartsGroup->get_hierarchy,

               );

}

sub action_sort_roots {

  my ($self) = @_;

  # Only for sorting the root partsgroup, and adding new ones.

  # The simple arrows don't work on the main hierarchy view, if all subgroups

  # are also shown. You would need a proper drag&drop Module for this.

  my @root_partsgroups = grep { $_->{level} == 0 } @{ SL::DB::Manager::PartsGroup->get_hierarchy };

  $self->setup_show_sort_action_bar;

  $self->render(

    'partsgroup/sort_roots',

    title       => t8('Edit partsgroups'),

    PARTSGROUPS => \@root_partsgroups,

  );

}

sub action_new {

  my ($self) = @_;

  $self->partsgroup(SL::DB::PartsGroup->new());

  $self->show_form(title => t8('Add partsgroup'));

}

sub action_edit {

  my ($self) = @_;

  $self->show_form(title       => t8('Edit partsgroup'),

                   PARTSGROUPS => SL::DB::Manager::PartsGroup->get_hierarchy, # for dropsdown to move parts

                   PARTS       => $self->partsgroup->parts,

                  );

}

sub action_create {

  my ($self) = @_;

  $self->partsgroup(SL::DB::PartsGroup->new());

  $self->create_or_update;

}

sub action_update {

  my ($self) = @_;

  $self->create_or_update;

}

sub action_delete {

  my ($self) = @_;

  $self->partsgroup->db->with_transaction(sub {

    $self->partsgroup->delete();

    flash_later('info',  $::locale->text('The partsgroup has been deleted.'));

    1;

  }) || flash_later('error', $::locale->text('The partsgroup is in use and cannot be deleted.'));

  $self->redirect_to(action => 'list');

}

#

# ajax actions

#

sub action_reorder {

  my ($self) = @_;

  SL::DB::PartsGroup->reorder_list(@{ $::form->{partsgroup_id} || [] });

  $self->render(\'', { type => 'json' });

}

sub action_add_partsgroup {

  my ($self) = @_;

  unless ( $::form->{partsgroup_name} ) {

    return $self->js->flash('error', t8("The name must not be empty."))

                    ->render;

  };

  # check that name doesn't already exist in this grouping, catch before db constraint

  if ( SL::DB::Manager::PartsGroup->get_all_count(

    where => [ parent_id  => $::form->{parent_id} // undef,

               partsgroup => $::form->{partsgroup_name},

             ]) ) {

    return $self->js->flash('error', t8("A partsgroup with this name already exists."))

                    ->focus('#new_partsgroup')

                    ->render;

  };

  my %partsgroup_params = (

    partsgroup => $::form->{partsgroup_name},

  );

  $partsgroup_params{parent_id} = $::form->{parent_id} if $::form->{parent_id};

  my $new_partsgroup = SL::DB::PartsGroup->new(%partsgroup_params);

  $new_partsgroup->add_to_list(position => 'last');

  $self->_render_subgroups_table_body;

  return $self->js->val('#new_partsgroup', '')

                  ->flash('info', t8("Added partsgroup."))

                  ->focus('#new_partsgroup')

                  ->render;

}

sub action_add_part {

  my ($self) = @_;

  $main::lxdebug->dump(0, "add_part form", $::form );

  return $self->js->flash('error', t8("No part was selected."))->render

    unless $::form->{part_id};

  my $number_of_updated_parts = SL::DB::Manager::Part->update_all (

    set   => { partsgroup_id => $::form->{partsgroup_id} },

    where => [ id => $::form->{part_id},

               '!partsgroup_id' => $::form->{partsgroup_id}, # ignore updating to same partsgroup_id

             ]

  );

  if ( $number_of_updated_parts == 1 ) {

    $self->_render_parts_table_body; # needs $::form->{partsgroup_id}

    return $self->js->val('#add_part_id', undef)

                    ->val('#add_part_id_name', '')

                    ->flash('info', t8("Added part to partsgroup."))

                    ->render;

  } else {

    return $self->js->flash('error', t8("Part wasn't added to partsgroup!"))->render;

  }

}

sub action_update_partsgroup_for_parts{

  my ($self) = @_;

  $main::lxdebug->dump(0, "update_partsgroup", $::form );

  # change type and design of existing parts to an existing part_variant

  # updates part_variant_map entries and lemper_part.type_id and lemper_part.design

  # the id of the partsgroup we are moving parts from is $::form->{current_partsgroup_id}

  return $self->js->flash('error', t8("No parts selected."))->render      unless $::form->{part_ids};

  return $self->js->flash('error', t8("No partsgroup selected."))->render unless $::form->{selected_partsgroup_id};

  # don't delete partsgroup ids from form, needed by _render_parts_table_body

  # TODO: better error handling than die, use flash?

  my $partsgroup = SL::DB::Manager::PartsGroup->find_by(         id => $::form->{selected_partsgroup_id} ) // die 'selected partsgroup id not valid';

  my $current_partsgroup = SL::DB::Manager::PartsGroup->find_by( id => $::form->{current_partsgroup_id} )  // die 'not a valid partsgroup id';

  my $part_ids = $::form->{part_ids} // undef;

  if ( scalar @{ $part_ids } ) {

    my $parts_updated_count = 0;

    $current_partsgroup->db->with_transaction(sub {

      $parts_updated_count = SL::DB::Manager::Part->update_all (

        set   => { partsgroup_id => $partsgroup->id },

        where => [ id => $part_ids,

                   # partsgroup_id => $current_partsgroup->id

                 ], # what if one of them has changed in the meantime due to concurrent edits? should it fail? Currently

      );

      1;

    }) or return $self->js->error(t8('The parts couldn\'t be updated!') . ' ' . $current_partsgroup->db->error )->render;

    if ( $parts_updated_count == 1 ) {

      $self->js->flash('info', t8("Moved #1 part.", $parts_updated_count));

    } else {

      $self->js->flash('info', t8("Moved #1 parts.", $parts_updated_count));

    }

  } else {

    $self->js->flash('error', t8("No parts selected"));

  }

  $self->_render_parts_table_body; # needs $::form->{current_partsgroup_id}

  return $self->js->render;

}

#

# action bars

#

sub setup_show_form_action_bar {

  my ($self) = @_;

  my $is_new = !$self->partsgroup->id;

  for my $bar ($::request->layout->get('actionbar')) {

    $bar->add(

      action => [

        t8('Save'),

        submit    => [ '#form', { action => 'PartsGroup/' . ($is_new ? 'create' : 'update') } ],

        checks    => [ 'kivi.validate_form' ],

        accesskey => 'enter',

      ],

      action => [

        t8('Delete'),

        submit   => [ '#form', { action => 'PartsGroup/delete' } ],

        confirm  => t8('Do you really want to delete this partsgroup?'),

        disabled => $is_new                      ? t8('This partsgroup has not been saved yet.')

                  : !$self->partsgroup->orphaned ? t8('The partsgroup is in use and cannot be deleted.')

                  :                            undef,

      ],

      link => [

        t8('Abort'),

        link => $self->url_for(action => 'list'),

      ],

    );

  }

  $::request->layout->add_javascripts('kivi.Validator.js');

}

sub setup_list_action_bar {

  my ($self) = @_;

  for my $bar ($::request->layout->get('actionbar')) {

    $bar->add(

      link => [

        t8('Add'),

        link => $self->url_for(action => 'new'),

      ],

      link => [

        t8('Sort'),

        link => $self->url_for(action => 'sort_roots'),

      ],

    );

  }

}

sub setup_show_sort_action_bar {

  my ($self) = @_;

  for my $bar ($::request->layout->get('actionbar')) {

    $bar->add(

      link => [

        t8('Partsgroups'),

        link => $self->url_for(action => 'list'),

      ],

    );

  }

}

#

# helpers

#

sub _render_subgroups_table_body {

  my ($self) = @_;

  my ($partsgroup, $partsgroups);

  if ( $::form->{parent_id} ) {

    $partsgroup  = SL::DB::PartsGroup->new(id => $::form->{parent_id})->load;

    $partsgroups = $partsgroup->children_sorted;

  } else {

    $partsgroups = SL::DB::Manager::PartsGroup->get_all(where => [ parent_id => undef ], sort_by => ('sortkey'));

    $main::lxdebug->message(0, "found " . scalar @{ $partsgroups } . " roots");

  }

  my $html      = $self->render('partsgroup/_subgroups_table_body', { output => 0 }, CHILDREN => $partsgroups);

  $self->js->html('#subgroups_table_body', $html);

}

sub _render_parts_table_body {

  my ($self) = @_;

  # May be called when items are added to the current partsgroup

  #   (action_add_part with $::form->{partsgroup_id}

  # or after items are moved away to other partsgroups

  #   (action_update_partsgroup_for_parts with $::form->{current_partsgroup_id})

  my $parts = SL::DB::Manager::Part->get_all(

    where => [ partsgroup_id =>    $::form->{current_partsgroup_id}

                                // $::form->{partsgroup_id}

             ]

  );

  my $html      = $self->render('partsgroup/_parts_table_body', { output => 0 }, PARTS => $parts);

  $self->js->html('#parts_table_body', $html);

}

sub create_or_update {

  my ($self) = @_;

  my $is_new = !$self->partsgroup->id;

  my $params = delete($::form->{partsgroup}) || { };

  delete $params->{id};

  # parent_id needs additional checks

  # If the parent_id was changed the new parent_id mustn't have the current

  # parent_id as its ancestor, otherwise this would introdouce cycles in the

  # tree.

  # run this to prevent $params->{parent_id} to be used for assign_attributes

  my $old_parent_id = $self->partsgroup->parent_id; # may be undef

  my $new_parent_id = delete $params->{parent_id} || undef; # empty string/select will become undef

  my @errors;

  my $db = $self->partsgroup->db;

  if (!$db->with_transaction(sub {

    # assign attributes and validate

    $self->partsgroup->assign_attributes( %{$params} ) ;

    push(@errors, $self->partsgroup->validate); # check for description

    if (@errors) {

      die @errors . "\n";

    };

    if (    ( $old_parent_id == $new_parent_id )

         or ( !defined $old_parent_id && ! defined $new_parent_id )

       ) {

      # parent_id didn't change

      $self->partsgroup->save;

    } elsif (    ( $old_parent_id != $new_parent_id )

              or ( not defined $old_parent_id && $new_parent_id )

              or ( $old_parent_id && not defined $new_parent_id) # setting parent to undef is always allowed!

            ) {

      # parent_id has changed, check for cycles

      my $ancestor_ids = SL::DB::PartsGroup->new(id => $new_parent_id)->ancestor_ids;

      if ( any { $self->partsgroup->id == $_ } @{$ancestor_ids} ) {

        die "Error: This would introduce a cycle, new parent must not be a subparent\n";

      };

      $self->partsgroup->remove_from_list;

      $self->partsgroup->parent_id($new_parent_id);

      $self->partsgroup->add_to_list(position => 'last');

    }

    1;

  })) {

    die @errors ? join("\n", @errors) . "\n" : $db->error . "\n";

  }

  flash_later('info', $is_new ? t8('The partsgroup has been created.') : t8('The partsgroup has been saved.'));

  $self->redirect_to(action => 'list');

}

sub show_form {

  my ($self, %params) = @_;

  $self->setup_show_form_action_bar;

  $self->render('partsgroup/form', %params,

               );

}

sub load_partsgroup {

  my ($self) = @_;

  $self->partsgroup(SL::DB::PartsGroup->new(id => $::form->{id})->load);

}

1;

sub get_hierarchy {

  my (%params) = @_;

  # print params is only used for debugging in console

  my @list;

  foreach my $root_pg ( @{ SL::DB::Manager::PartsGroup->get_all( where => [ parent_id => undef ],

                                                                 sort_by => ('sortkey'),

                                                               ) } ) {

    $root_pg->{partscount} = $root_pg->parts_count;

    $root_pg->{level} = 0;

    push(@list, $root_pg);

    $root_pg->printable if $params{print}; # only for debugging

    next unless scalar @{ $root_pg->children };

    my $iterator = $root_pg->partsgroup_iterator_dfs;

    while ( my $pg = $iterator->() ) {

      push(@list, $pg);

      $pg->{level} = $pg->get_level;

      $pg->{partscount} = $pg->parts_count // 0; # probably better to call this separately. Also it doesn't need to be calculated each time for dropdown

      # $pg->{padded_partsgroup} = '  ' x $pg->{level} . $pg->partsgroup; # this is probably redundant now, using css

			$pg->printable if $params{print};

      # $pg->print_report_charts if $params{charts};

      # code $pg->printable if $params{tail};

    };

    # $root_pg->printable if $params{tail};

  };

  return \@list;

}

  parent_id   => { type => 'integer' },

__PACKAGE__->meta->foreign_keys(

  parent => {

    class       => 'SL::DB::PartsGroup',

    key_columns => { parent_id => 'id' },

  },

);

use SL::DB::Helper::AttrSorted;

use SL::DBUtils qw(selectall_array_query);

__PACKAGE__->configure_acts_as_list(group_by => [qw(parent_id)]);

__PACKAGE__->attr_sorted({ unsorted => 'children', position => 'sortkey' });

    add_methods  => ['count'],

 children  => {

   type         => 'one to many',

   class        => 'SL::DB::PartsGroup',

   column_map   => { id => 'parent_id' },

   add_methods  => ['count'],

 }

  return $self->partsgroup;

}

sub indented_name {

  my $self = shift;

  # used for label in select_tag

  return '  -  ' x $self->get_level . $self->partsgroup;

  return 0 if SL::DB::Manager::PartsGroup->get_all_count(query => [ parent_id => $self->id ]);

sub ancestors {

  my ($self) = @_;

  my @ancestors = ();

  my $pg = $self;

  return \@ancestors unless defined $self->parent;

  while ( $pg->parent_id ) {

    $pg = $pg->parent;

    unshift(@ancestors, $pg);

  };

  return \@ancestors;

}

sub ancestor_ids {

  my ($self) = @_;

  my $query = <<SQL;

WITH RECURSIVE rec (id) as

(

  SELECT partsgroup.id, partsgroup.parent_id from partsgroup where partsgroup.id = ?

  UNION ALL

  SELECT partsgroup.id, partsgroup.parent_id from rec, partsgroup where partsgroup.id = rec.parent_id

)

SELECT id as ancestors

  FROM rec

SQL

  my @ids = selectall_array_query($::form, $self->dbh, $query, $self->id);

  return \@ids;

}

sub partsgroup_iterator_dfs {

  # partsgroup iterator that starts with a partsgroup, using depth first search

  # to iterate over partsgroups you have to first find the roots (level 0) and

  # then use this method to recursively dig down and find all the children

  my ($self) = @_;

  my @queue ;

  @queue = @{ $self->children_sorted } if $self->children_count;

  return sub {

    while ( @queue ) {

      my $pg = shift @queue;

      if ( scalar @{ $pg->children_sorted } ) {

        unshift @queue, @{ $pg->children_sorted };

      };

      return $pg;

    };

    return;

  };

}

sub get_level {

  my ($self) = @_;

  # iterate through parents to calculate the level

  return 0 unless defined $self->parent;

  return $self->{cached_level} if exists $self->{cached_level};

  my $level = 1;

  my $parent = $self->parent;

  while ( $parent->parent ) {

    $level++;

    $parent = $parent->parent;

  };

  return $self->{cached_level} = $level;

}

<<<<<<< HEAD

 - Warengruppen können nun verschachtelt angelegt werden, d.h. Warengruppen

   können Untergruppen enthalten

  'A partsgroup with this name already exists.' => 'Eine Warengruppe mit diesem Namen existiert bereits.',

  'Added part to partsgroup.'   => 'Der Artikel wurde der Warengruppe hinzugefügt.',

  'Added partsgroup.'           => 'Die Warengruppe wurde hinzugefügt.',

  'Do you really want to delete this partsgroup?' => 'Möchten Sie diese Warengruppe wirklich löschen?',

  'Edit partsgroups'            => 'Warengruppen bearbeiten',

  'Move selected parts to partsgroup' => 'Ausgewählte Artikel nach Warengruppe verschieben',

  'Moved #1 part.'              => '#1 Artikel wurde verschoben.',

  'Moved #1 parts.'             => '#1 Artikel wurden verschoben',

  'No part was selected.'       => 'Es wurde kein Artikel ausgewählt.',

  'No parts selected.'          => 'Es wurden keine Artikel ausgewählt.',

  'No partsgroup selected.'     => 'Es wurde keine Warengruppen ausgewählt.',

  'Number of parts'             => 'Anzahl Artikel',

  'Parents'                     => 'Obergruppen',

  'Part wasn\'t added to partsgroup!' => 'Der Artikel wurde nicht der Warengruppe hinzugefügt!',

  'Sort & Save'                 => '',

  'Subgroups'                   => 'Untergruppen',

  'The partsgroup has been created.' => 'Die Warengruppe wurde erstellt.',

  'The partsgroup has been deleted.' => 'Die Warengruppe wurde gelöscht.',

  'The partsgroup has been saved.' => 'Die Warengruppe wurde gespeichert.',

  'The partsgroup is in use and cannot be deleted.' => 'Die Warengruppe wird verwendet und kann nicht gelöscht werden.',

  'This partsgroup has not been saved yet.' => 'Die Warengruppe wurde noch nicht gespeichert.',

  'A partsgroup with this name already exists.' => '',

  'Added part to partsgroup.'   => '',

  'Added partsgroup.'           => '',

  'Do you really want to delete this partsgroup?' => '',

  'Edit partsgroups'            => '',

  'Move selected parts to partsgroup' => '',

  'Moved #1 part.'              => '',

  'Moved #1 parts.'             => '',

  'No partsgroup selected.'     => '',

  'Number of parts'             => '',

  'Parents'                     => '',

  'Subgroups'                   => '',

  'The partsgroup has been created.' => '',

  'The partsgroup has been deleted.' => '',

  'The partsgroup has been saved.' => '',

  'The partsgroup is in use and cannot be deleted.' => '',

  'This partsgroup has not been saved yet.' => '',

    action: PartsGroup/list

-- @tag: partsgroup_adjacency

-- @description: Warengruppe um parent_id erweitern

-- @depends: release_3_5_5 partsgroup_description

-- There is no specific code for upgrading from older versions, all existing

-- partsgroups start with parent_id NULL, which makes them top level

-- partsgroups

ALTER TABLE partsgroup ADD COLUMN parent_id INT REFERENCES partsgroup(id);

ALTER TABLE partsgroup ADD CONSTRAINT partsgroup_zero_cycle_check CHECK (id <> parent_id);

-- need to check during upgrade if they are unique, otherwise allow user to edit them (like upgrade for parts)

ALTER TABLE partsgroup ADD CONSTRAINT partsgroup_unique UNIQUE (partsgroup, parent_id);

-- this doesn't work for parent_id is null, allows all top level partsgroups to have the same sortkey

-- also doesn't seem to work for certain add_to_list / remove_from_list method

-- ALTER TABLE partsgroup ADD CONSTRAINT partsgroup_sortkey_unique UNIQUE (sortkey, parent_id);

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

[% FOREACH part = PARTS %]

  <tr>

   <td>[% L.checkbox_tag('part_ids[]', value=part.id, checked=part.selected, "data-checkall"=1) %]</td>

   <td><a href="[% SELF.url_for(controller = 'Part', action = 'edit', 'part.id' = part.id) %]">[% part.displayable_name | html %]</a></td>

  </tr>

[% END %]

[% # L.dump(PARTS) %]

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

[% FOREACH child = CHILDREN %]

    <tr class="listrow" id="partsgroup_id_[% child.id %]">

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

     <td><a href="[% SELF.url_for(action='edit', id=child.id) %]">[% HTML.escape(child.partsgroup) %]</a></td>

     <td>[% IF child.obsolete %][% 'Yes' | $T8 %][% ELSE %][% 'No' | $T8 %][% END %]</td>

  </tr>

[% END %]

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

[% INCLUDE 'common/flash.html' %]

<h1>[% HTML.escape(title) %]</h1>

[% SET style="width: 400px" %]

<form action="controller.pl" method="post" id="form">

[%- L.hidden_tag("id", SELF.partsgroup.id) %]

<table>

  <tr>

    <th align="right">[% 'Partsgroup' | $T8 %]</th>

    <td>[%- L.input_tag("partsgroup.partsgroup", SELF.partsgroup.partsgroup, "data-validate"="required", "data-title"=LxERP.t8("Description")) %]</td>

  </tr>

  <tr>

    <th align="right">[% 'Description' | $T8 %]</th>

    <td>[%- L.textarea_tag("partsgroup.description", SELF.partsgroup.description, cols = 50 rows = 2, "data-title"=LxERP.t8("Description")) %]</td>

  </tr>

  <tr>

    <th align="right">[% 'Obsolete' | $T8 %]</th>

    <td>[% L.checkbox_tag('partsgroup.obsolete', checked = SELF.partsgroup.obsolete, for_submit=1) %]</td>

  </tr>

  [% IF SELF.partsgroup.id %]

  <tr>

    <th align="right">[% 'Parents' | $T8 %]</th>

    <td>

    [% FOREACH ancestor = SELF.partsgroup.ancestors %]

      [% IF loop.last %]

      [%- L.select_tag('partsgroup.parent_id', PARTSGROUPS, default=SELF.partsgroup.parent_id, title_key='indented_name', value_key='id', with_empty=1 style='width: 200px') %]

      [% ELSE %]

    <a href="[% SELF.url_for(action='edit', id=ancestor.id) %]">[% HTML.escape(ancestor.partsgroup) %]</a> ->

      [% END %]

    [% END %]

    [% IF SELF.partsgroup.ancestors.size == 0 %]

      [%- L.select_tag('partsgroup.parent_id', PARTSGROUPS, title_key='indented_name', value_key='id', with_empty=1 style='width: 200px') %]

    [% END %]

    </td>

  </tr>

  [% END %]

 </table>

</form>

  [% IF SELF.partsgroup.id %]

<h2>[% 'Subgroups' | $T8 %]</h2>

<table id="subgroups">

 <thead>

  <tr>

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

    <th align="left">[% 'Subgroups' | $T8 %]</th>

    <th align="left">[% 'Obsolete'  | $T8 %]</th>

  </tr>

 </thead>

 <tbody id="subgroups_table_body">

  [% PROCESS 'partsgroup/_subgroups_table_body.html', CHILDREN = SELF.partsgroup.children_sorted %]

  </tbody>

</table>

[% L.sortable_element('#subgroups tbody', url=SELF.url_for(action='reorder'), with='partsgroup_id') %]

[%- L.input_tag("new_partsgroup", '', "data-title"=LxERP.t8("Partsgroup")) %] [% L.button_tag("add_partsgroup()", LxERP.t8('Insert new')) %]

<h2>[% 'Parts' | $T8 %]</h2>

<form id="parts_form" name="parts_form">

<table id="parts_in_partsgroup">

 <table>

  <thead>

   <tr class="listheading">

    <th>[% L.checkbox_tag("", id="check_all", checkall="[data-checkall=1]") %]</th>

    <th>[% LxERP.t8("Part Number") %]</th>

   </tr>

  </thead>

  <tbody id="parts_table_body">

  [% PROCESS 'partsgroup/_parts_table_body.html', PARTS = SELF.partsgroup.parts %]

  </tbody>

</table>

</form>

<table>

<body>

<tr>

 <th align="right">[% 'Partsgroup' | $T8 %]</th>

 <td>[%- L.select_tag('selected_partsgroup', PARTSGROUPS, title_key='indented_name', value_key='id', with_empty=1 style='width: 200px') %]</td>

 <td>[% L.button_tag('move_parts_to_partsgroup()', LxERP.t8('Move selected parts to partsgroup')) %]</td>

</tr>

</body>

</table>

<table>

<tr>

 <th align="right">[% 'Part' | $T8 %]</th>

 <td>[% P.part.picker('add_part_id', '', style='width: 300px') %]</td>

 <td>[% L.button_tag("add_part()", LxERP.t8('Insert new')) %]</td>

</tr>

</table>

[% END %]

<script type='text/javascript'>

  function move_parts_to_partsgroup() {

    var data = $('#parts_form').serializeArray();

    data.push({ name: 'current_partsgroup_id',  value: '[% SELF.partsgroup.id %]' });

    data.push({ name: 'selected_partsgroup_id', value: $("#selected_partsgroup").val() });

    data.push({ name: 'action',                   value: 'PartsGroup/update_partsgroup_for_parts' });

    $.post("controller.pl", data, kivi.eval_json_result);

  }

  function add_part() {

    var data = {

      action:        'PartsGroup/add_part',

      part_id:       $('#add_part_id').val(),

      partsgroup_id: $('#id').val()

    };

    $.post("controller.pl", data, kivi.eval_json_result);

  }

  function add_partsgroup() {

    var data = {

      action:          'PartsGroup/add_partsgroup',

      parent_id:       $('#id').val(),

      partsgroup_name: $('#new_partsgroup').val()

    };

    $.post("controller.pl", data, kivi.eval_json_result);

  }

</script>

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

[%- INCLUDE 'common/flash.html' %]

<h1>[% title %]</h1>

<p>

 <table id="partsgroup_list">

  <thead>

   <tr class="listheading">

    <th>[% 'Partsgroup'      | $T8 %]</th>

    <th>[% 'Number of parts' | $T8 %]</th>

    <th>[% 'Obsolete'        | $T8 %]</th>

   </tr>

  </thead>

  <tbody>

   [%- FOREACH pg = PARTSGROUPS %]

    <tr class="listrow" id="pg_id_[% pg.id %]">

     <td style="padding-left:[% (pg.level) * 2 %]em"><a href="[% SELF.url_for(action='edit', id=pg.id) %]">[% HTML.escape(pg.partsgroup) %]

[% # pg.level %]</a></td>

    <td>[% pg.partscount | html %]</td>

    <td>[% IF pg.obsolete %][% 'Yes' | $T8 %][% ELSE %][% 'No' | $T8 %][% END %]</td>

   [%- END %]

  </tbody>

 </table>

</p>

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

[% INCLUDE 'common/flash.html' %]

<h1>[% HTML.escape(title) %]</h1>

[% SET style="width: 400px" %]

<table id="subgroups">

 <thead>

  <tr>

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

    <th align="left">[% 'Partsgroups' | $T8 %]</th>

    <th align="left">[% 'Obsolete'    | $T8 %]</th>

  </tr>

 </thead>

 <tbody id="subgroups_table_body">

  [% PROCESS 'partsgroup/_subgroups_table_body.html', CHILDREN = PARTSGROUPS %]

  </tbody>

</table>

</div>

[% L.sortable_element('#subgroups tbody', url=SELF.url_for(action='reorder'), with='partsgroup_id') %]

[%- L.input_tag("new_partsgroup", '', "data-title"=LxERP.t8("Partsgroup")) %] [% L.button_tag("add_partsgroup()", LxERP.t8('Add')) %]

<script type='text/javascript'>

  function add_partsgroup() {

    console.log('called add_part');

    var data = {

      action:          'PartsGroup/add_partsgroup',

      // parent_id:       $('#id').val(),

      partsgroup_name: $('#new_partsgroup').val()

    };

    $.post("controller.pl", data, kivi.eval_json_result);

  }

</script>