Revision c97d8162
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
|
}
|
||
|
|
||
|
sub delete {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my $form = $main::form;
|
||
|
my $locale = $main::locale;
|
||
|
$::lxdebug->enter_sub;
|
||
|
|
||
|
check_oe_access();
|
||
|
|
||
|
$form->header;
|
||
|
|
||
|
my ($msg, $ordnumber);
|
||
|
if ($form->{type} =~ /_order$/) {
|
||
|
$msg = $locale->text('Are you sure you want to delete Order Number');
|
||
|
$ordnumber = 'ordnumber';
|
||
|
} else {
|
||
|
$msg = $locale->text('Are you sure you want to delete Quotation Number');
|
||
|
$ordnumber = 'quonumber';
|
||
|
}
|
||
|
|
||
|
print qq|
|
||
|
<body>
|
||
|
|
||
|
<form method=post action=$form->{script}>
|
||
|
|;
|
||
|
$::form->header;
|
||
|
|
||
|
# delete action variable
|
||
|
map { delete $form->{$_} } qw(action header);
|
||
|
delete $::form->{$_} for qw(action header);
|
||
|
|
||
|
foreach my $key (keys %$form) {
|
||
|
next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));
|
||
|
$form->{$key} =~ s/\"/"/g;
|
||
|
print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
|
||
|
my @hiddens;
|
||
|
for my $key (keys %$::form) {
|
||
|
next if $key eq 'login' || $key eq 'password' || '' ne ref $::form->{$key};
|
||
|
push @hiddens, { key => $key, value => $::form->{$key} };
|
||
|
}
|
||
|
|
||
|
print qq|
|
||
|
<h2 class=confirm>| . $locale->text('Confirm!') . qq|</h2>
|
||
|
|
||
|
<h4>$msg $form->{$ordnumber}</h4>
|
||
|
<p>
|
||
|
<input type="hidden" name="yes_nextsub" value="delete_order_quotation">
|
||
|
<input name=action class=submit type=submit value="|
|
||
|
. $locale->text('Yes') . qq|">
|
||
|
<button class=submit type=button onclick="history.back()">|
|
||
|
. $locale->text('No') . qq|</button>
|
||
|
</form>
|
||
|
print $::form->parse_html_template('oe/delete', {
|
||
|
hiddens => \@hiddens,
|
||
|
is_order => scalar($::form->{type} =~ /_order$/),
|
||
|
});
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
|
|;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
$::lxdebug->leave_sub;
|
||
|
}
|
||
|
|
||
|
sub delete_order_quotation {
|
||
| templates/webpages/oe/delete.html | ||
|---|---|---|
|
[%- USE T8 %]
|
||
|
[%- USE L %]
|
||
|
[%- USE LxERP %]
|
||
|
|
||
|
<body>
|
||
|
|
||
|
<form method="post" action="[% script %]">
|
||
|
|
||
|
<h2 class="confirm">[% 'Confirm!' | $T8 %]</h2>
|
||
|
|
||
|
[%- IF is_order %]
|
||
|
<h4>[% 'Are you sure you want to delete Order Number' | $T8 %] [% ordnumber %]</h4>
|
||
|
[%- ELSE %]
|
||
|
<h4>[% 'Are you sure you want to delete Quotation Number' | $T8 %] [% quonumber %]</h4>
|
||
|
[%- END %]
|
||
|
|
||
|
<br>
|
||
|
|
||
|
[% L.hidden_tag(row.key, row.value) FOREACH row = hiddens %]
|
||
|
[% L.hidden_tag('yes_nextsub', 'delete_order_quotation') %]
|
||
|
[% L.submit_tag('action', LxERP.t8('Yes')) %]
|
||
|
|
||
|
<button class=submit type=button onclick="history.back()">[% 'No' | $T8 %]</button>
|
||
|
</form>
|
||
|
|
||
|
</body>
|
||
|
</html>
|
||
Auch abrufbar als: Unified diff
delete in oe in templates ausgelgert