Revision d1c335e9
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 38 | 38 |
package Form; |
| 39 | 39 |
|
| 40 | 40 |
use HTML::Template; |
| 41 |
use SL::Menu; |
|
| 41 | 42 |
|
| 42 | 43 |
sub _input_to_hash {
|
| 43 | 44 |
$main::lxdebug->enter_sub(2); |
| ... | ... | |
| 242 | 243 |
|
| 243 | 244 |
if ($ENV{HTTP_USER_AGENT}) {
|
| 244 | 245 |
$msg =~ s/\n/<br>/g; |
| 245 |
|
|
| 246 |
$self->header; |
|
| 247 | 246 |
$self->show_generic_error($msg); |
| 248 | 247 |
|
| 249 |
die "Error: $msg\n"; |
|
| 250 |
|
|
| 251 | 248 |
} else {
|
| 252 | 249 |
|
| 253 | 250 |
if ($self->{error_function}) {
|
| ... | ... | |
| 373 | 370 |
} |
| 374 | 371 |
|
| 375 | 372 |
#Set Calendar |
| 376 |
$jsscript = ""; |
|
| 373 |
my $jsscript = "";
|
|
| 377 | 374 |
if ($self->{jsscript} == 1) {
|
| 378 | 375 |
|
| 379 | 376 |
$jsscript = qq| |
| ... | ... | |
| 410 | 407 |
$main::lxdebug->leave_sub(); |
| 411 | 408 |
} |
| 412 | 409 |
|
| 413 |
use Data::Dumper; |
|
| 414 | 410 |
sub parse_html_template {
|
| 415 | 411 |
$main::lxdebug->enter_sub(); |
| 416 | 412 |
|
| ... | ... | |
| 461 | 457 |
"<br><em>DEBUG INFORMATION:</em><pre>" . $additional_params->{"DEBUG"} . "</pre>";
|
| 462 | 458 |
} |
| 463 | 459 |
|
| 460 |
if (%main::myconfig) {
|
|
| 461 |
map({ $additional_params->{"myconfig_${_}"} = $main::myconfig{$_}; } keys(%main::myconfig));
|
|
| 462 |
my $jsc_dateformat = $main::myconfig{"dateformat"};
|
|
| 463 |
$jsc_dateformat =~ s/d+/\%d/gi; |
|
| 464 |
$jsc_dateformat =~ s/m+/\%m/gi; |
|
| 465 |
$jsc_dateformat =~ s/y+/\%Y/gi; |
|
| 466 |
$additional_params->{"myconfig_jsc_dateformat"} = $jsc_dateformat;
|
|
| 467 |
} |
|
| 468 |
|
|
| 469 |
$additional_params->{"conf_jscalendar"} = $main::jscalendar;
|
|
| 470 |
$additional_params->{"conf_lizenzen"} = $main::lizenzen;
|
|
| 471 |
$additional_params->{"conf_latex_templates"} = $main::latex;
|
|
| 472 |
$additional_params->{"conf_opendocument_templates"} = $main::opendocument_templates;
|
|
| 473 |
|
|
| 474 |
my $menu; |
|
| 475 |
if (-f $self->{"login"} . "_menu.ini") {
|
|
| 476 |
$menu = Menu->new($self->{"login"} . "_menu.ini");
|
|
| 477 |
} else {
|
|
| 478 |
$menu = Menu->new("menu.ini");
|
|
| 479 |
} |
|
| 480 |
$menu->generate_acl("", $additional_params);
|
|
| 481 |
|
|
| 464 | 482 |
my @additional_param_names = keys(%{$additional_params});
|
| 465 | 483 |
|
| 466 | 484 |
foreach my $key ($template->param()) {
|
| ... | ... | |
| 485 | 503 |
$add_params->{"title"} = $title if ($title);
|
| 486 | 504 |
$self->{"label_error"} = $error;
|
| 487 | 505 |
|
| 506 |
$self->header(); |
|
| 488 | 507 |
print($self->parse_html_template("generic/error", $add_params));
|
| 508 |
|
|
| 509 |
die("Error: $error\n");
|
|
| 510 |
} |
|
| 511 |
|
|
| 512 |
sub show_generic_information {
|
|
| 513 |
my ($self, $error, $title) = @_; |
|
| 514 |
|
|
| 515 |
my $add_params = {};
|
|
| 516 |
$add_params->{"title"} = $title if ($title);
|
|
| 517 |
$self->{"label_information"} = $error;
|
|
| 518 |
|
|
| 519 |
$self->header(); |
|
| 520 |
print($self->parse_html_template("generic/information", $add_params));
|
|
| 521 |
|
|
| 522 |
die("Information: $error\n");
|
|
| 489 | 523 |
} |
| 490 | 524 |
|
| 491 | 525 |
# write Trigger JavaScript-Code ($qty = quantity of Triggers) |
| ... | ... | |
| 536 | 570 |
); |
| 537 | 571 |
|; |
| 538 | 572 |
} |
| 539 |
$jsscript = qq| |
|
| 573 |
my $jsscript = qq|
|
|
| 540 | 574 |
<script type="text/javascript"> |
| 541 | 575 |
<!--| . join("", @triggers) . qq|//-->
|
| 542 | 576 |
</script> |
| ... | ... | |
| 715 | 749 |
my ($current_page, $current_line, $current_row) = (1, 1, 0); |
| 716 | 750 |
my $pagebreak = ""; |
| 717 | 751 |
my $sum = 0; |
| 718 |
|
|
| 719 | 752 |
# } Moritz Bunkus |
| 720 | 753 |
|
| 721 | 754 |
# Make sure that all *notes* (intnotes, partnotes_*, notes etc) are converted to markup correctly. |
| ... | ... | |
| 1073 | 1106 |
close(IN); |
| 1074 | 1107 |
} |
| 1075 | 1108 |
|
| 1076 |
$self->cleanup; |
|
| 1077 |
|
|
| 1078 | 1109 |
} |
| 1079 | 1110 |
|
| 1111 |
$self->cleanup; |
|
| 1112 |
|
|
| 1080 | 1113 |
chdir("$self->{cwd}");
|
| 1081 | 1114 |
$main::lxdebug->leave_sub(); |
| 1082 | 1115 |
} |
| ... | ... | |
| 1730 | 1763 |
$query = qq| SELECT * FROM tax t|; |
| 1731 | 1764 |
$sth = $dbh->prepare($query); |
| 1732 | 1765 |
$sth->execute || $self->dberror($query); |
| 1733 |
$form->{TAX} = ();
|
|
| 1766 |
$self->{TAX} = ();
|
|
| 1734 | 1767 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| 1735 | 1768 |
push @{ $self->{TAX} }, $ref;
|
| 1736 | 1769 |
} |
| ... | ... | |
| 2105 | 2138 |
|
| 2106 | 2139 |
$query = qq|UPDATE defaults |
| 2107 | 2140 |
SET $fld = '$var'|; |
| 2108 |
$dbh->do($query) || $form->dberror($query);
|
|
| 2141 |
$dbh->do($query) || $self->dberror($query);
|
|
| 2109 | 2142 |
|
| 2110 | 2143 |
$dbh->commit; |
| 2111 | 2144 |
$dbh->disconnect; |
| ... | ... | |
| 2133 | 2166 |
} |
| 2134 | 2167 |
$query = qq|UPDATE business |
| 2135 | 2168 |
SET customernumberinit = '$var' WHERE id=$business_id|; |
| 2136 |
$dbh->do($query) || $form->dberror($query);
|
|
| 2169 |
$dbh->do($query) || $self->dberror($query);
|
|
| 2137 | 2170 |
|
| 2138 | 2171 |
$dbh->commit; |
| 2139 | 2172 |
$dbh->disconnect; |
Auch abrufbar als: Unified diff
HTML-Vorlagen:
Die globale Konfigurationsvariable $latex in $latex_templates umbenannt. Einige globale Konfigurationsvariablen in allen HTML-Vorlagen unter dem Namen "conf_<variablenname>" bekannt gemacht.
Zwei Variablen lokal zur aktuellen Funktion gemacht.
Automatisch in HTML-Vorlagen die Zugriffsberechtigungen als Variablen der Form "access_menu_name" verfuegbar machen.
Alle Variablen aus %myconfig in HTML-Webseitenvorlagen verfuegbar gemacht. Ausserdem aus das Datumsformat fuer den Javascript-Kalendar aus dem Datenbankdatumsformat ableiten und zur Verfuegung stellen.
Beim Aufruf von $form->show_generic_error() auf jeden Fall $form->header() aufrufen und danach das Script beenden.
[Merge der Revisionen 876 883 902 987 1093 aus dem LINET prog Repo]