Revision 1b83184a
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| bin/mozilla/pe.pl | ||
|---|---|---|
|
# end of main
|
||
|
|
||
|
sub add {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('config');
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
$::form->{title} = "Add";
|
||
|
$::form->{callback} ||= "$::form->{script}?action=add&type=$::form->{type}";
|
||
|
|
||
|
my $form = $main::form;
|
||
|
call_sub("form_$::form->{type}");
|
||
|
|
||
|
$form->{title} = "Add";
|
||
|
|
||
|
# construct callback
|
||
|
$form->{callback} =
|
||
|
"$form->{script}?action=add&type=$form->{type}"
|
||
|
unless $form->{callback};
|
||
|
|
||
|
call_sub("form_$form->{type}_header");
|
||
|
call_sub("form_$form->{type}_footer");
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
|
|
||
|
sub edit {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('config');
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
$::form->{title} = "Edit";
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
|
||
|
# show history button
|
||
|
$form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
|
||
|
#/show hhistory button
|
||
|
$form->{title} = "Edit";
|
||
|
|
||
|
if ($form->{type} eq 'partsgroup') {
|
||
|
PE->get_partsgroup(\%myconfig, \%$form);
|
||
|
if ($::form->{type} eq 'partsgroup') {
|
||
|
PE->get_partsgroup(\%::myconfig, $::form);
|
||
|
}
|
||
|
if ($form->{type} eq 'pricegroup') {
|
||
|
PE->get_pricegroup(\%myconfig, \%$form);
|
||
|
if ($::form->{type} eq 'pricegroup') {
|
||
|
PE->get_pricegroup(\%::myconfig, $::form);
|
||
|
}
|
||
|
call_sub("form_$form->{type}_header");
|
||
|
call_sub("form_$form->{type}_footer");
|
||
|
call_sub("form_$::form->{type}");
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
|
|
||
|
sub search {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
my ($report, $sort, $number);
|
||
|
if ($form->{type} eq 'partsgroup') {
|
||
|
$report = "partsgroup_report";
|
||
|
$sort = 'partsgroup';
|
||
|
$form->{title} = $locale->text('Groups');
|
||
|
|
||
|
$number = qq|
|
||
|
<tr>
|
||
|
<th align=right width=1%>| . $locale->text('Group') . qq|</th>
|
||
|
<td><input name=partsgroup size=20></td>
|
||
|
</tr>
|
||
|
|;
|
||
|
|
||
|
}
|
||
|
|
||
|
# for pricesgroups
|
||
|
if ($form->{type} eq 'pricegroup') {
|
||
|
$report = "pricegroup_report";
|
||
|
$sort = 'pricegroup';
|
||
|
$form->{title} = $locale->text('Pricegroup');
|
||
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('config');
|
||
|
|
||
|
$number = qq|
|
||
|
<tr>
|
||
|
<th align=right width=1%>| . $locale->text('Pricegroup') . qq|</th>
|
||
|
<td><input name=pricegroup size=20></td>
|
||
|
</tr>
|
||
|
|;
|
||
|
$::form->header;
|
||
|
print $::form->parse_html_template('pe/search', {
|
||
|
is_pricegroup => $::form->{type} eq 'pricegroup',
|
||
|
});
|
||
|
|
||
|
}
|
||
|
|
||
|
$form->header;
|
||
|
|
||
|
print qq|
|
||
|
<body>
|
||
|
|
||
|
<form method=post action=$form->{script}>
|
||
|
|
||
|
<input type=hidden name=sort value=$sort>
|
||
|
<input type=hidden name=type value=$form->{type}>
|
||
|
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th class=listtop>$form->{title}</th>
|
||
|
</tr>
|
||
|
<tr height="5"></tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<table width=100%>
|
||
|
$number
|
||
|
<tr>
|
||
|
<td></td>
|
||
|
<td><input name=status class=radio type=radio value=all checked> | . $locale->text('All') . qq|
|
||
|
<input name=status class=radio type=radio value=orphaned> | . $locale->text('Orphaned') . qq|</td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><hr size=3 noshade></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<input type=hidden name=nextsub value=$report>
|
||
|
|
||
|
<br>
|
||
|
<input class=submit type=submit name=action value="|
|
||
|
. $locale->text('Continue') . qq|">
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
|
|;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
|
|
||
|
sub save {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('config');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
if ($form->{type} eq 'partsgroup') {
|
||
|
$form->isblank("partsgroup", $locale->text('Group missing!'));
|
||
|
PE->save_partsgroup(\%myconfig, \%$form);
|
||
|
$form->redirect($locale->text('Group saved!'));
|
||
|
if ($::form->{type} eq 'partsgroup') {
|
||
|
$::form->isblank("partsgroup", $::locale->text('Group missing!'));
|
||
|
PE->save_partsgroup(\%::myconfig, $::form);
|
||
|
$::form->redirect($::locale->text('Group saved!'));
|
||
|
}
|
||
|
|
||
|
# choice pricegroup and save
|
||
|
if ($form->{type} eq 'pricegroup') {
|
||
|
$form->isblank("pricegroup", $locale->text('Pricegroup missing!'));
|
||
|
PE->save_pricegroup(\%myconfig, \%$form);
|
||
|
$form->redirect($locale->text('Pricegroup saved!'));
|
||
|
if ($::form->{type} eq 'pricegroup') {
|
||
|
$::form->isblank("pricegroup", $::locale->text('Pricegroup missing!'));
|
||
|
PE->save_pricegroup(\%::myconfig, $::form);
|
||
|
$::form->redirect($::locale->text('Pricegroup saved!'));
|
||
|
}
|
||
|
# saving the history
|
||
|
if(!exists $form->{addition} && $form->{id} ne "") {
|
||
|
$form->{snumbers} = qq|projectnumber_| . $form->{projectnumber};
|
||
|
$form->{addition} = "SAVED";
|
||
|
$form->save_history;
|
||
|
if(!exists $::form->{addition} && $::form->{id} ne "") {
|
||
|
$::form->{snumbers} = qq|projectnumber_| . $::form->{projectnumber};
|
||
|
$::form->{addition} = "SAVED";
|
||
|
$::form->save_history;
|
||
|
}
|
||
|
# /saving the history
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
|
|
||
|
sub delete {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('config');
|
||
|
|
||
|
PE->delete_tuple(\%myconfig, \%$form);
|
||
|
PE->delete_tuple(\%::myconfig, $::form);
|
||
|
|
||
|
if ($form->{type} eq 'partsgroup') {
|
||
|
$form->redirect($locale->text('Group deleted!'));
|
||
|
if ($::form->{type} eq 'partsgroup') {
|
||
|
$::form->redirect($::locale->text('Group deleted!'));
|
||
|
}
|
||
|
if ($form->{type} eq 'pricegroup') {
|
||
|
$form->redirect($locale->text('Pricegroup deleted!'));
|
||
|
if ($::form->{type} eq 'pricegroup') {
|
||
|
$::form->redirect($::locale->text('Pricegroup deleted!'));
|
||
|
}
|
||
|
# saving the history
|
||
|
if(!exists $form->{addition}) {
|
||
|
$form->{snumbers} = qq|projectnumber_| . $form->{projectnumber};
|
||
|
$form->{addition} = "DELETED";
|
||
|
$form->save_history;
|
||
|
if(!exists $::form->{addition}) {
|
||
|
$::form->{snumbers} = qq|projectnumber_| . $::form->{projectnumber};
|
||
|
$::form->{addition} = "DELETED";
|
||
|
$::form->save_history;
|
||
|
}
|
||
|
# /saving the history
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
|
|
||
|
sub continue { call_sub($main::form->{"nextsub"}); }
|
||
|
sub continue { call_sub($::form->{nextsub}); }
|
||
|
|
||
|
sub partsgroup_report {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('config');
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
$::form->{$_} = $::form->unescape($::form->{$_}) for qw(partsgroup);
|
||
|
PE->partsgroups(\%::myconfig, $::form);
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
my $callback = build_std_url("action=partsgroup_report", qw(type status));
|
||
|
|
||
|
map { $form->{$_} = $form->unescape($form->{$_}) } qw(partsgroup);
|
||
|
PE->partsgroups(\%myconfig, \%$form);
|
||
|
my $option = '';
|
||
|
$option .= $::locale->text('All') if $::form->{status} eq 'all';
|
||
|
$option .= $::locale->text('Orphaned') if $::form->{status} eq 'orphaned';
|
||
|
|
||
|
my $callback =
|
||
|
"$form->{script}?action=partsgroup_report&type=$form->{type}&status=$form->{status}";
|
||
|
|
||
|
my ($option);
|
||
|
if ($form->{status} eq 'all') {
|
||
|
$option = $locale->text('All');
|
||
|
}
|
||
|
if ($form->{status} eq 'orphaned') {
|
||
|
$option .= $locale->text('Orphaned');
|
||
|
}
|
||
|
if ($form->{partsgroup}) {
|
||
|
$callback .= "&partsgroup=$form->{partsgroup}";
|
||
|
$option .= "\n<br>" . $locale->text('Group') . " : $form->{partsgroup}";
|
||
|
if ($::form->{partsgroup}) {
|
||
|
$callback .= "&partsgroup=$::form->{partsgroup}";
|
||
|
$option .= ", " . $::locale->text('Group') . " : $::form->{partsgroup}";
|
||
|
}
|
||
|
|
||
|
my @column_index = $form->sort_columns(qw(partsgroup));
|
||
|
my %column_header;
|
||
|
$column_header{partsgroup} =
|
||
|
qq|<th class=listheading width=90%>| . $locale->text('Group') . qq|</th>|;
|
||
|
|
||
|
$form->{title} = $locale->text('Groups');
|
||
|
|
||
|
$form->header;
|
||
|
|
||
|
print qq|
|
||
|
<body>
|
||
|
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th class=listtop>$form->{title}</th>
|
||
|
</tr>
|
||
|
<tr height="5"></tr>
|
||
|
<tr>
|
||
|
<td>$option</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<table width=100%>
|
||
|
<tr class=listheading>
|
||
|
|;
|
||
|
|
||
|
map { print "$column_header{$_}\n" } @column_index;
|
||
|
|
||
|
print qq|
|
||
|
</tr>
|
||
|
|;
|
||
|
|
||
|
# escape callback
|
||
|
$form->{callback} = $callback;
|
||
|
|
||
|
# escape callback for href
|
||
|
$callback = $form->escape($callback);
|
||
|
|
||
|
my ($i, %column_data);
|
||
|
foreach my $ref (@{ $form->{item_list} }) {
|
||
|
|
||
|
$i++;
|
||
|
$i %= 2;
|
||
|
|
||
|
print qq|
|
||
|
<tr valign=top class=listrow$i>
|
||
|
|;
|
||
|
|
||
|
$column_data{partsgroup} =
|
||
|
qq|<td><a href=$form->{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&callback=$callback>$ref->{partsgroup}</td>|;
|
||
|
map { print "$column_data{$_}\n" } @column_index;
|
||
|
|
||
|
print "
|
||
|
</tr>
|
||
|
";
|
||
|
}
|
||
|
|
||
|
print qq|
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><hr size=3 noshade></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<br>
|
||
|
<form method=post action=$form->{script}>
|
||
|
|
||
|
<input name=callback type=hidden value="$form->{callback}">
|
||
|
|
||
|
<input type=hidden name=type value=$form->{type}>
|
||
|
|
||
|
<input class=submit type=submit name=action value="|
|
||
|
. $locale->text('Add') . qq|">
|
||
|
$::form->{callback} = $callback;
|
||
|
|
||
|
</form>
|
||
|
$::form->header;
|
||
|
print $::form->parse_html_template('pe/partsgroup_report', {
|
||
|
option => $option,
|
||
|
callback => $callback,
|
||
|
editlink => build_std_url('action=edit', qw(type status callback)),
|
||
|
});
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
|
|;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
|
|
||
|
sub form_partsgroup_header {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
$form->{title} = $locale->text("$form->{title} Group");
|
||
|
sub form_partsgroup {
|
||
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('config');
|
||
|
|
||
|
# $locale->text('Add Group')
|
||
|
# $locale->text('Edit Group')
|
||
|
$::form->{title} = $::locale->text("$::form->{title} Group");
|
||
|
|
||
|
$form->{partsgroup} =~ s/\"/"/g;
|
||
|
|
||
|
$form->header;
|
||
|
|
||
|
print qq|
|
||
|
<body>
|
||
|
|
||
|
<form method=post action=$form->{script}>
|
||
|
|
||
|
<input type=hidden name=id value=$form->{id}>
|
||
|
<input type=hidden name=type value=$form->{type}>
|
||
|
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th class=listtop>$form->{title}</th>
|
||
|
</tr>
|
||
|
<tr height="5"></tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th align=right>| . $locale->text('Group') . qq|</th>
|
||
|
<td><input name=partsgroup size=30 value="$form->{partsgroup}"></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td colspan=2><hr size=3 noshade></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
$::form->header;
|
||
|
print $::form->parse_html_template('pe/partsgroup_form');
|
||
|
|
||
|
sub form_partsgroup_footer {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
print qq|
|
||
|
|
||
|
<input name=callback type=hidden value="$form->{callback}">
|
||
|
|
||
|
<br><input type=submit class=submit name=action value="|
|
||
|
. $locale->text('Save') . qq|">
|
||
|
|;
|
||
|
|
||
|
if ($form->{id} && $form->{orphaned}) {
|
||
|
print qq|
|
||
|
<input type=submit class=submit name=action value="|
|
||
|
. $locale->text('Delete') . qq|">|;
|
||
|
}
|
||
|
|
||
|
# button for saving history
|
||
|
print qq|
|
||
|
<input type=button onclick=set_history_window(|
|
||
|
. $form->{id}
|
||
|
. qq|); name=history id=history value=|
|
||
|
. $locale->text('history')
|
||
|
. qq|>|;
|
||
|
# /button for saving history
|
||
|
print qq|
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
|
|;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
|
|
||
|
#################################
|
||
|
# get pricesgroups and build up html-code
|
||
|
#
|
||
|
sub pricegroup_report {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
$::lxdebug->enter_sub;
|
||
|
$::auth->assert('config');
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
$::form->{$_} = $::form->unescape($::form->{$_}) for qw(pricegroup);
|
||
|
PE->pricegroups(\%::myconfig, $::form);
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
my $callback = build_std_url('action=pricegroup_report', qw(type status));
|
||
|
|
||
|
map { $form->{$_} = $form->unescape($form->{$_}) } qw(pricegroup);
|
||
|
PE->pricegroups(\%myconfig, \%$form);
|
||
|
my $option = '';
|
||
|
$option .= $::locale->text('All') if $::form->{status} eq 'all';
|
||
|
$option .= $::locale->text('Orphaned') if $::form->{status} eq 'orphaned';
|
||
|
|
||
|
my $callback =
|
||
|
"$form->{script}?action=pricegroup_report&type=$form->{type}&status=$form->{status}";
|
||
|
|
||
|
my $option;
|
||
|
if ($form->{status} eq 'all') {
|
||
|
$option = $locale->text('All');
|
||
|
}
|
||
|
if ($form->{status} eq 'orphaned') {
|
||
|
$option .= $locale->text('Orphaned');
|
||
|
if ($::form->{pricegroup}) {
|
||
|
$callback .= "&pricegroup=$::form->{pricegroup}";
|
||
|
$option .= ", " . $::locale->text('Pricegroup') . " : $::form->{pricegroup}";
|
||
|
}
|
||
|
if ($form->{pricegroup}) {
|
||
|
$callback .= "&pricegroup=$form->{pricegroup}";
|
||
|
$option .=
|
||
|
"\n<br>" . $locale->text('Pricegroup') . " : $form->{pricegroup}";
|
||
|
}
|
||
|
|
||
|
my @column_index = $form->sort_columns(qw(pricegroup));
|
||
|
my %column_header;
|
||
|
$column_header{pricegroup} =
|
||
|
qq|<th class=listheading width=90%>|
|
||
|
. $locale->text('Pricegroup')
|
||
|
. qq|</th>|;
|
||
|
|
||
|
$form->{title} = $locale->text('Pricegroup');
|
||
|
|
||
|
$form->header;
|
||
|
|
||
|
print qq|
|
||
|
<body>
|
||
|
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th class=listtop>$form->{title}</th>
|
||
|
</tr>
|
||
|
<tr height="5"></tr>
|
||
|
<tr>
|
||
|
<td>$option</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<table width=100%>
|
||
|
<tr class=listheading>
|
||
|
|;
|
||
|
|
||
|
map { print "$column_header{$_}\n" } @column_index;
|
||
|
|
||
|
print qq|
|
||
|
</tr>
|
||
|
|;
|
||
|
|
||
|
# escape callback
|
||
|
$form->{callback} = $callback;
|
||
|
|
||
|
# escape callback for href
|
||
|
$callback = $form->escape($callback);
|
||
|
|
||
|
my ($i, %column_data);
|
||
|
foreach my $ref (@{ $form->{item_list} }) {
|
||
|
|
||
|
$i++;
|
||
|
$i %= 2;
|
||
|
$::form->{callback} = $callback;
|
||
|
|
||
|
print qq|
|
||
|
<tr valign=top class=listrow$i>
|
||
|
|;
|
||
|
$column_data{pricegroup} =
|
||
|
qq|<td><a href=$form->{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&callback=$callback>$ref->{pricegroup}</td>|;
|
||
|
$::form->header;
|
||
|
print $::form->parse_html_template('pe/pricegroup_report', {
|
||
|
option => $option,
|
||
|
callback => $callback,
|
||
|
editlink => build_std_url('action=edit', qw(type status callback)),
|
||
|
});
|
||
|
|
||
|
map { print "$column_data{$_}\n" } @column_index;
|
||
|
|
||
|
print "
|
||
|
</tr>
|
||
|
";
|
||
|
}
|
||
|
|
||
|
print qq|
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><hr size=3 noshade></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<br>
|
||
|
<form method=post action=$form->{script}>
|
||
|
|
||
|
<input name=callback type=hidden value="$form->{callback}">
|
||
|
|
||
|
<input type=hidden name=type value=$form->{type}>
|
||
|
|
||
|
<input class=submit type=submit name=action value="|
|
||
|
. $locale->text('Add') . qq|">
|
||
|
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
|
|;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
|
|
||
|
#######################
|
||
|
#build up pricegroup_header
|
||
|
#
|
||
|
sub form_pricegroup_header {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
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->{title} = $locale->text("$form->{title} Pricegroup");
|
||
|
|
||
|
$form->{pricegroup} =~ s/\"/"/g;
|
||
|
|
||
|
$form->header;
|
||
|
|
||
|
print qq|
|
||
|
<body>
|
||
|
|
||
|
<form method=post action=$form->{script}>
|
||
|
|
||
|
<input type=hidden name=id value=$form->{id}>
|
||
|
<input type=hidden name=type value=$form->{type}>
|
||
|
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th class=listtop>$form->{title}</th>
|
||
|
</tr>
|
||
|
<tr height="5"></tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th align=right>| . $locale->text('Preisgruppe') . qq|</th>
|
||
|
<td><input name=pricegroup size=30 value="$form->{pricegroup}"></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td colspan=2><hr size=3 noshade></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
######################
|
||
|
#build up pricegroup_footer
|
||
|
#
|
||
|
sub form_pricegroup_footer {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
$main::auth->assert('config');
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
print qq|
|
||
|
|
||
|
<input name=callback type=hidden value="$form->{callback}">
|
||
|
|
||
|
<br><input type=submit class=submit name=action value="|
|
||
|
. $locale->text('Save') . qq|">
|
||
|
|;
|
||
|
|
||
|
if ($form->{id} && $form->{orphaned}) {
|
||
|
print qq|
|
||
|
<input type=submit class=submit name=action value="|
|
||
|
. $locale->text('Delete') . qq|">|;
|
||
|
}
|
||
|
$::form->header;
|
||
|
print $::form->parse_html_template('pe/pricegroup_form');
|
||
|
|
||
|
# button for saving history
|
||
|
print qq|
|
||
|
<input type=button onclick=set_history_window(|
|
||
|
. $form->{id}
|
||
|
. qq|); name=history id=history value=|
|
||
|
. $locale->text('history')
|
||
|
. qq|>|;
|
||
|
# /button for saving history
|
||
|
print qq|
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
|
|;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
| templates/webpages/pe/partsgroup_form.html | ||
|---|---|---|
|
[%- USE L %]
|
||
|
[%- USE T8 %]
|
||
|
[%- USE HTML %]
|
||
|
[% L.javascript_tag('show_history.js') %]
|
||
|
<body>
|
||
|
|
||
|
<form method=post action="[% script %]">
|
||
|
|
||
|
<input type=hidden name=id value="[% id %]">
|
||
|
<input type=hidden name=type value="[% type %]">
|
||
|
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th class=listtop>[% title %]</th>
|
||
|
</tr>
|
||
|
<tr height="5"></tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th align=right>[% 'Group' | $T8 %]</th>
|
||
|
<td><input name=partsgroup size=30 value="[% partsgroup | html %]"></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td colspan=2><hr size=3 noshade></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<br>
|
||
|
|
||
|
<input name=callback type=hidden value="[% callback | html %]">
|
||
|
<input type=submit class=submit name=action value="[% 'Save' | $T8 %]">
|
||
|
[%- IF id && orphaned %]
|
||
|
<input type=submit class=submit name=action value="[% 'Delete' | $T8 %]">
|
||
|
[%- END %]
|
||
|
|
||
|
<input type=button onclick="set_history_window([% id %]);" name=history id=history value="[% 'history' | $T8 %]">
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
| templates/webpages/pe/partsgroup_report.html | ||
|---|---|---|
|
[%- USE HTML %]
|
||
|
[%- USE T8 %]
|
||
|
<body>
|
||
|
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th class=listtop>[% 'Groups' | $T8 %]</th>
|
||
|
</tr>
|
||
|
<tr height="5"></tr>
|
||
|
<tr>
|
||
|
<td>[% option %]</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<table width=100%>
|
||
|
<tr class=listheading>
|
||
|
<th class=listheading width=90%>[% 'Group' | $T8 %]</th>
|
||
|
</tr>
|
||
|
[%- FOREACH row = item_list %]
|
||
|
<tr valign=top class="listrow[% loop.count % 2 %]">
|
||
|
<td><a href="[% editlink %]&id=[% row.id %]">[% row.partsgroup %]</a></td>
|
||
|
</tr>
|
||
|
[%- END %]
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><hr size=3 noshade></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<br>
|
||
|
<form method=post action="[% script %]">
|
||
|
<input name=callback type=hidden value="[% callback | html %]">
|
||
|
<input type=hidden name=type value="[% type %]">
|
||
|
<input class=submit type=submit name=action value="[% 'Add' | $T8 %]">
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
|
|
||
| templates/webpages/pe/pricegroup_form.html | ||
|---|---|---|
|
[%- USE L %]
|
||
|
[%- USE T8 %]
|
||
|
[%- USE HTML %]
|
||
|
[% L.javascript_tag('show_history.js') %]
|
||
|
<body>
|
||
|
|
||
|
<form method=post action="[% script %]">
|
||
|
|
||
|
<input type=hidden name=id value="[% id %]"
|
||
|
<input type=hidden name=type value="[% type %]">
|
||
|
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th class=listtop>[% title %]</th>
|
||
|
</tr>
|
||
|
<tr height="5"></tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th align=right>[% 'Pricegroup' | $T8 %]</th>
|
||
|
<td><input name=pricegroup size=30 value="[% pricegroup | html %]"></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td colspan=2><hr size=3 noshade></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<br>
|
||
|
|
||
|
<input name=callback type=hidden value="[% callback | html %]">
|
||
|
<input type=submit class=submit name=action value="[% 'Save' | $T8 %]">
|
||
|
[%- IF id && orphaned %]
|
||
|
<input type=submit class=submit name=action value="[% 'Delete' | $T8 %]">
|
||
|
[%- END %]
|
||
|
|
||
|
<input type=button onclick="set_history_window([% id %]);" name=history id=history value="[% 'history' | $T8 %]">
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
| templates/webpages/pe/pricegroup_report.html | ||
|---|---|---|
|
[%- USE HTML %]
|
||
|
[%- USE T8 %]
|
||
|
<body>
|
||
|
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th class=listtop>[% 'Pricegroup' | $T8 %]</th>
|
||
|
</tr>
|
||
|
<tr height="5"></tr>
|
||
|
<tr>
|
||
|
<td>[% option %]</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<table width=100%>
|
||
|
<tr class=listheading>
|
||
|
<th class=listheading width=90%>[% 'Pricegroup' | $T8 %]</th>
|
||
|
</tr>
|
||
|
[%- FOREACH row = item_list %]
|
||
|
<tr valign=top class="listrow[% loop.count % 2 %]">
|
||
|
<td><a href="[% editlink %]&id=[% row.id %]">[% row.pricegroup %]</a></td>
|
||
|
</tr>
|
||
|
[%- END %]
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><hr size=3 noshade></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<br>
|
||
|
<form method=post action="[% script %]">
|
||
|
<input name=callback type=hidden value="[% callback | html %]">
|
||
|
<input type=hidden name=type value="[% type %]">
|
||
|
<input class=submit type=submit name=action value="[% 'Add' | $T8 %]">
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
|
|
||
| templates/webpages/pe/search.html | ||
|---|---|---|
|
[%- USE T8 %]
|
||
|
[%- USE LxERP %]
|
||
|
<body>
|
||
|
|
||
|
<form method=post action="[% script %]">
|
||
|
|
||
|
<input type=hidden name=sort value="[% is_pricegroup ? 'pricegroup' : 'partsgroup' %]">
|
||
|
<input type=hidden name=type value="[% type %]">
|
||
|
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
<th class=listtop>[% is_pricegroup ? LxERP.t8('Pricegroup') : LxERP.t8('Groups') %]</th>
|
||
|
</tr>
|
||
|
<tr height="5"></tr>
|
||
|
<tr>
|
||
|
<td>
|
||
|
<table width=100%>
|
||
|
<tr>
|
||
|
[%- IF is_pricegroup %]
|
||
|
<th align=right width=1%>[% 'Pricegroup' | $T8 %]</th>
|
||
|
<td><input name=pricegroup size=20></td>
|
||
|
[%- ELSE %]
|
||
|
<th align=right width=1%>[% 'Group' | $T8 %]</th>
|
||
|
<td><input name=partsgroup size=20></td>
|
||
|
[%- END %]
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td></td>
|
||
|
<td><input name=status class=radio type=radio value=all checked> [% 'All' | $T8 %]
|
||
|
<input name=status class=radio type=radio value=orphaned> [% 'Orphaned' | $T8 %]</td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
|
<tr>
|
||
|
<td><hr size=3 noshade></td>
|
||
|
</tr>
|
||
|
</table>
|
||
|
|
||
|
<input type=hidden name=nextsub value="[% is_pricegroup ? 'pricegroup_report' : 'partsgroup_report' %]">
|
||
|
|
||
|
<br>
|
||
|
<input class=submit type=submit name=action value="[% 'Continue' | $T8 %]">
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
|
|
||
Auch abrufbar als: Unified diff
pe -> templates