Revision b65a230d
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| bin/mozilla/common.pl | ||
|---|---|---|
| 92 | 92 |
"nextsub" => "select_part_internal", |
| 93 | 93 |
"callback_sub" => $callback_sub, |
| 94 | 94 |
"has_charge" => $has_charge, |
| 95 |
"has_ean" => $has_ean,
|
|
| 95 |
"has_ean" => $has_ean,
|
|
| 96 | 96 |
"remap_parts_id" => $remap_parts_id, |
| 97 | 97 |
"remap_partnumber" => $remap_partnumber }); |
| 98 | 98 |
|
| ... | ... | |
| 477 | 477 |
# ------------------------------------------------------------------------- |
| 478 | 478 |
|
| 479 | 479 |
sub show_history {
|
| 480 |
$main::lxdebug->enter_sub();
|
|
| 480 |
$main::lxdebug->enter_sub();
|
|
| 481 | 481 |
|
| 482 | 482 |
my $form = $main::form; |
| 483 | 483 |
my %myconfig = %main::myconfig; |
| 484 | 484 |
my $locale = $main::locale; |
| 485 | 485 |
|
| 486 |
my $dbh = $form->dbconnect(\%myconfig);
|
|
| 487 |
my ($sort, $sortby) = split(/\-\-/, $form->{order});
|
|
| 486 |
my $dbh = $form->dbconnect(\%myconfig);
|
|
| 487 |
my ($sort, $sortby) = split(/\-\-/, $form->{order});
|
|
| 488 | 488 |
$sort =~ s/.*\.(.*)/$1/; |
| 489 | 489 |
|
| 490 |
$form->{title} = $locale->text("History");
|
|
| 491 |
$form->header();
|
|
| 492 |
print $form->parse_html_template( "common/show_history", {
|
|
| 493 |
"DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
|
|
| 494 |
"SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
|
|
| 495 |
uc($sort) => 1,
|
|
| 496 |
uc($sort)."BY" => $sortby
|
|
| 497 |
} );
|
|
| 498 |
|
|
| 499 |
$dbh->disconnect();
|
|
| 500 |
$main::lxdebug->leave_sub();
|
|
| 490 |
$form->{title} = $locale->text("History");
|
|
| 491 |
$form->header(); |
|
| 492 |
print $form->parse_html_template( "common/show_history", {
|
|
| 493 |
"DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
|
|
| 494 |
"SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
|
|
| 495 |
uc($sort) => 1,
|
|
| 496 |
uc($sort)."BY" => $sortby |
|
| 497 |
} ); |
|
| 498 |
|
|
| 499 |
$dbh->disconnect();
|
|
| 500 |
$main::lxdebug->leave_sub();
|
|
| 501 | 501 |
} |
| 502 | 502 |
|
| 503 | 503 |
# ------------------------------------------------------------------------- |
| ... | ... | |
| 531 | 531 |
# ------------------------------------------------------------------------- |
| 532 | 532 |
|
| 533 | 533 |
sub show_vc_details {
|
| 534 |
$main::lxdebug->enter_sub();
|
|
| 534 |
$main::lxdebug->enter_sub();
|
|
| 535 | 535 |
|
| 536 | 536 |
my $form = $main::form; |
| 537 | 537 |
my %myconfig = %main::myconfig; |
| ... | ... | |
| 550 | 550 |
$form->header(); |
| 551 | 551 |
print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });
|
| 552 | 552 |
|
| 553 |
$main::lxdebug->leave_sub();
|
|
| 553 |
$main::lxdebug->leave_sub();
|
|
| 554 | 554 |
} |
| 555 | 555 |
|
| 556 | 556 |
# ------------------------------------------------------------------------- |
Auch abrufbar als: Unified diff
Tabs aus *.pl Dateien entfernt.