$form->{lastsort} = ""; # memory for which table was sort at last time
$form->{ndxs_counter} = 0; # counter for added entries to top100
- # for seach all possibibilities, is_service only used as UNLESS so == 0
- my %is_xyz = ("is_part" => 1, "is_service" => 0, "is_assembly" =>1 );
-
$form->{title} = (ucfirst $form->{searchitems}) . "s";
$form->{title} =~ s/ys$/ies/;
$form->{title} = $locale->text($form->{title});
'include_prefix' => 'l_',
'include_value' => 'Y');
+ setup_ic_search_action_bar();
$form->header;
$form->get_lists('partsgroup' => 'ALL_PARTSGROUPS');
- print $form->parse_html_template('ic/search', { %is_xyz, });
+ print $form->parse_html_template('ic/search');
$lxdebug->leave_sub();
} #end search()
-sub search_update_prices {
- $lxdebug->enter_sub();
-
- $auth->assert('part_service_assembly_edit');
-
- my $pricegroups = IC->get_pricegroups(\%myconfig, \%$form);
-
- $form->{title} = $locale->text('Update Prices');
-
- $form->header;
-
- print $form->parse_html_template('ic/search_update_prices', { PRICE_ROWS => $pricegroups });
-
- $lxdebug->leave_sub();
-} #end search()
-
-sub confirm_price_update {
- $lxdebug->enter_sub();
-
- $auth->assert('part_service_assembly_edit');
-
- my @errors = ();
- my $value_found = undef;
-
- foreach my $idx (qw(sellprice listprice), (1..$form->{price_rows})) {
- my $name = $idx =~ m/\d/ ? $form->{"pricegroup_${idx}"} : $idx eq 'sellprice' ? $locale->text('Sell Price') : $locale->text('List Price');
- my $type = $idx =~ m/\d/ ? $form->{"pricegroup_type_${idx}"} : $form->{"${idx}_type"};
- my $value_idx = $idx =~ m/\d/ ? "price_${idx}" : $idx;
- my $value = $form->parse_amount(\%myconfig, $form->{$value_idx});
-
- if ((0 > $value) && ($type eq 'percent')) {
- push @errors, $locale->text('You cannot adjust the price for pricegroup "#1" by a negative percentage.', $name);
-
- } elsif (!$value && ($form->{$value_idx} ne '')) {
- push @errors, $locale->text('No valid number entered for pricegroup "#1".', $name);
-
- } elsif (0 < $value) {
- $value_found = 1;
- }
- }
-
- push @errors, $locale->text('No prices will be updated because no prices have been entered.') if (!$value_found);
-
- my $num_matches = IC->get_num_matches_for_priceupdate();
-
- $form->header();
-
- if (@errors) {
- $form->show_generic_error(join('<br>', @errors), 'back_button' => 1);
- }
-
- $form->{nextsub} = "update_prices";
-
- map { delete $form->{$_} } qw(action header);
-
- print $form->parse_html_template('ic/confirm_price_update', { HIDDENS => [ map { name => $_, value => $form->{$_} }, keys %$form ],
- num_matches => $num_matches });
-
- $lxdebug->leave_sub();
-}
-
-sub update_prices {
- $lxdebug->enter_sub();
-
- $auth->assert('part_service_assembly_edit');
-
- my $num_updated = IC->update_prices(\%myconfig, \%$form);
-
- if (-1 != $num_updated) {
- $form->redirect($locale->text('#1 prices were updated.', $num_updated));
- } else {
- $form->error($locale->text('Could not update prices!'));
- }
-
- $lxdebug->leave_sub();
-}
-
sub top100 {
$::lxdebug->enter_sub();
$report->add_data($row);
}
- $report->generate_with_headers();
+ setup_ic_generate_report_action_bar();
+ $report->generate_with_headers(action_bar => 1);
$lxdebug->leave_sub();
} #end generate_report
-sub ajax_autocomplete {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- $form->{column} = 'description' unless $form->{column} =~ /^partnumber|description$/;
- $form->{$form->{column}} = $form->{q} || '';
- $form->{limit} = ($form->{limit} * 1) || 10;
- $form->{searchitems} ||= '';
-
- my @results = IC->all_parts(\%myconfig, $form);
-
- print $form->ajax_response_header(),
- $form->parse_html_template('ic/ajax_autocomplete');
-
- $main::lxdebug->leave_sub();
-}
-
-sub back_to_record {
- _check_io_auth();
-
-
- delete @{$::form}{qw(action action_add action_back_to_record back_sub description item notes partnumber sellprice taxaccount2 unit vc)};
-
- $::auth->restore_form_from_session($::form->{previousform}, clobber => 1);
- $::form->{rowcount}--;
- $::form->{action} = 'display_form';
- $::form->{callback} = $::form->{script} . '?' . join('&', map { $::form->escape($_) . '=' . $::form->escape($::form->{$_}) } sort keys %{ $::form });
- $::form->redirect;
+sub setup_ic_search_action_bar {
+ my %params = @_;
+
+ for my $bar ($::request->layout->get('actionbar')) {
+ $bar->add(
+ action => [
+ t8('Continue'),
+ submit => [ '#form', { action => 'generate_report' } ],
+ accesskey => 'enter',
+ ],
+
+ action => [
+ t8('TOP100'),
+ submit => [ '#form', { action => 'top100' } ],
+ ],
+ );
+ }
}
-sub continue { call_sub($form->{"nextsub"}); }
-
-sub dispatcher {
- my $action = first { $::form->{"action_${_}"} } qw(add back_to_record);
- $::form->error($::locale->text('No action defined.')) unless $action;
-
- $::form->{dispatched_action} = $action;
- call_sub($action);
+sub setup_ic_generate_report_action_bar {
+ my %params = @_;
+
+ for my $bar ($::request->layout->get('actionbar')) {
+ $bar->add(
+ combobox => [
+ action => [
+ t8('Add'),
+ ],
+ action => [
+ t8('Add Part'),
+ submit => [ '#new_form', { action => 'Part/add_part' } ],
+ accesskey => 'enter',
+ ],
+ action => [
+ t8('Add Service'),
+ submit => [ '#new_form', { action => 'Part/add_service' } ],
+ ],
+ action => [
+ t8('Add Assembly'),
+ submit => [ '#new_form', { action => 'Part/add_assembly' } ],
+ ],
+ action => [
+ t8('Add Assortment'),
+ submit => [ '#new_form', { action => 'Part/add_assortment' } ],
+ ],
+ ], # end of combobox "Add part"
+ );
+ }
}
projects / kivitendo-erp.git / blobdiff