Revision c510d88b
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 37 | 37 |
|
| 38 | 38 |
package Form; |
| 39 | 39 |
|
| 40 |
#use strict; |
|
| 41 |
|
|
| 42 | 40 |
use Data::Dumper; |
| 43 | 41 |
|
| 44 | 42 |
use CGI; |
| ... | ... | |
| 59 | 57 |
use List::Util qw(first max min sum); |
| 60 | 58 |
use List::MoreUtils qw(any); |
| 61 | 59 |
|
| 60 |
use strict; |
|
| 61 |
|
|
| 62 | 62 |
my $standard_dbh; |
| 63 | 63 |
|
| 64 | 64 |
END {
|
| ... | ... | |
| 314 | 314 |
_recode_recursively($iconv, $self); |
| 315 | 315 |
} |
| 316 | 316 |
|
| 317 |
delete $self{INPUT_ENCODING};
|
|
| 317 |
delete $self->{INPUT_ENCODING};
|
|
| 318 | 318 |
} |
| 319 | 319 |
|
| 320 | 320 |
$self->{action} = lc $self->{action};
|
| ... | ... | |
| 1588 | 1588 |
my ($self, $myconfig) = @_; |
| 1589 | 1589 |
|
| 1590 | 1590 |
if ($standard_dbh && !$standard_dbh->{Active}) {
|
| 1591 |
$main::lxdebug->message(LXDebug::INFO, "get_standard_dbh: \$standard_dbh is defined but not Active anymore");
|
|
| 1591 |
$main::lxdebug->message(LXDebug->INFO(), "get_standard_dbh: \$standard_dbh is defined but not Active anymore");
|
|
| 1592 | 1592 |
undef $standard_dbh; |
| 1593 | 1593 |
} |
| 1594 | 1594 |
|
Auch abrufbar als: Unified diff
und die restlichen .pm Module.