-
-sub pricegroup_report {
- $::lxdebug->enter_sub;
- $::auth->assert('config');
-
- $::form->{$_} = $::form->unescape($::form->{$_}) for qw(pricegroup);
- PE->pricegroups(\%::myconfig, $::form);
-
- my $callback = build_std_url('action=pricegroup_report', qw(type status));
-
- my $option = '';
- $option .= $::locale->text('All') if $::form->{status} eq 'all';
- $option .= $::locale->text('Orphaned') if $::form->{status} eq 'orphaned';
-
- if ($::form->{pricegroup}) {
- $callback .= "&pricegroup=$::form->{pricegroup}";
- $option .= ", " . $::locale->text('Pricegroup') . " : $::form->{pricegroup}";
- }
-
- # escape callback
- $::form->{callback} = $callback;
-
- $::form->header;
- print $::form->parse_html_template('pe/pricegroup_report', {
- option => $option,
- callback => $callback,
- editlink => build_std_url('action=edit', qw(type status callback)),
- });
-
- $::lxdebug->leave_sub;
-}
-
-sub form_pricegroup {
- $::lxdebug->enter_sub;
- $::auth->assert('config');
-
- # $locale->text('Add Pricegroup')
- # $locale->text('Edit Pricegroup')
- $::form->{title} = $::locale->text("$::form->{title} Pricegroup");
-
- $::form->header;
- print $::form->parse_html_template('pe/pricegroup_form');
-
- $::lxdebug->leave_sub;
-}