Revision ed944ca3
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 37 | 37 |
use SL::DBUtils; |
| 38 | 38 |
use SL::MoreCommon; |
| 39 | 39 |
|
| 40 |
use strict; |
|
| 41 |
|
|
| 40 | 42 |
sub post_transaction {
|
| 41 | 43 |
$main::lxdebug->enter_sub(); |
| 42 | 44 |
|
| SL/DBUtils.pm | ||
|---|---|---|
| 1 | 1 |
package SL::DBUtils; |
| 2 | 2 |
|
| 3 | 3 |
require Exporter; |
| 4 |
@ISA = qw(Exporter); |
|
| 4 |
our @ISA = qw(Exporter);
|
|
| 5 | 5 |
|
| 6 |
@EXPORT = qw(conv_i conv_date conv_dateq do_query selectrow_query do_statement |
|
| 6 |
our @EXPORT = qw(conv_i conv_date conv_dateq do_query selectrow_query do_statement
|
|
| 7 | 7 |
dump_query quote_db_date |
| 8 | 8 |
selectfirst_hashref_query selectfirst_array_query |
| 9 | 9 |
selectall_hashref_query selectall_array_query |
| ... | ... | |
| 36 | 36 |
|
| 37 | 37 |
my ($form, $dbh, $query) = splice(@_, 0, 3); |
| 38 | 38 |
|
| 39 |
dump_query(LXDebug::QUERY, '', $query, @_);
|
|
| 39 |
dump_query(LXDebug->QUERY(), '', $query, @_);
|
|
| 40 | 40 |
|
| 41 | 41 |
my $result; |
| 42 | 42 |
if (0 == scalar(@_)) {
|
| ... | ... | |
| 57 | 57 |
|
| 58 | 58 |
my ($form, $sth, $query) = splice(@_, 0, 3); |
| 59 | 59 |
|
| 60 |
dump_query(LXDebug::QUERY, '', $query, @_);
|
|
| 60 |
dump_query(LXDebug->QUERY(), '', $query, @_);
|
|
| 61 | 61 |
|
| 62 | 62 |
my $result; |
| 63 | 63 |
if (0 == scalar(@_)) {
|
| ... | ... | |
| 74 | 74 |
sub dump_query {
|
| 75 | 75 |
my ($level, $msg, $query) = splice(@_, 0, 3); |
| 76 | 76 |
|
| 77 |
my $filename = $self_filename = 'SL/DBUtils.pm'; |
|
| 78 |
my $caller_level; |
|
| 77 |
my $self_filename = 'SL/DBUtils.pm'; |
|
| 78 |
my $filename = $self_filename; |
|
| 79 |
my ($caller_level, $line, $subroutine); |
|
| 79 | 80 |
while ($filename eq $self_filename) {
|
| 80 | 81 |
(undef, $filename, $line, $subroutine) = caller $caller_level++; |
| 81 | 82 |
} |
| ... | ... | |
| 111 | 112 |
|
| 112 | 113 |
my ($form, $dbh, $query) = splice(@_, 0, 3); |
| 113 | 114 |
|
| 114 |
dump_query(LXDebug::QUERY, '', $query, @_);
|
|
| 115 |
dump_query(LXDebug->QUERY(), '', $query, @_);
|
|
| 115 | 116 |
|
| 116 | 117 |
my $sth = $dbh->prepare($query) || $form->dberror($query); |
| 117 | 118 |
|
| ... | ... | |
| 125 | 126 |
|
| 126 | 127 |
my ($form, $dbh, $query) = splice(@_, 0, 3); |
| 127 | 128 |
|
| 128 |
dump_query(LXDebug::QUERY, '', $query, @_);
|
|
| 129 |
dump_query(LXDebug->QUERY(), '', $query, @_);
|
|
| 129 | 130 |
|
| 130 | 131 |
my $sth = $dbh->prepare($query) || $form->dberror($query); |
| 131 | 132 |
if (scalar(@_) != 0) {
|
| SL/DN.pm | ||
|---|---|---|
| 41 | 41 |
use SL::MoreCommon; |
| 42 | 42 |
use SL::Template; |
| 43 | 43 |
|
| 44 |
use strict; |
|
| 45 |
|
|
| 44 | 46 |
sub get_config {
|
| 45 | 47 |
$main::lxdebug->enter_sub(); |
| 46 | 48 |
|
| SL/GenericTranslations.pm | ||
|---|---|---|
| 2 | 2 |
|
| 3 | 3 |
use SL::DBUtils; |
| 4 | 4 |
|
| 5 |
use strict; |
|
| 6 |
|
|
| 5 | 7 |
sub get {
|
| 6 | 8 |
$main::lxdebug->enter_sub(); |
| 7 | 9 |
|
| SL/LXDebug.pm | ||
|---|---|---|
| 17 | 17 |
|
| 18 | 18 |
use YAML; |
| 19 | 19 |
|
| 20 |
use strict; |
|
| 21 |
|
|
| 20 | 22 |
my $data_dumper_available; |
| 21 | 23 |
|
| 22 | 24 |
our $global_level; |
| SL/Menu.pm | ||
|---|---|---|
| 400 | 400 |
|
| 401 | 401 |
$self->{ORDER} = [ grep { $self->{$_}->{VISIBLE} } @{ $self->{ORDER} } ];
|
| 402 | 402 |
|
| 403 |
{ no strict 'refs';
|
|
| 404 |
# ToDO: fix this. nuke and pave algorithm without type checking screams for problems. |
|
| 403 | 405 |
map { delete @{$self->{$_}}{qw(GRANTED IS_MENU NUM_VISIBLE_CHILDREN VISIBLE ACCESS)} if ($_ ne 'ORDER') } keys %{ $self };
|
| 406 |
} |
|
| 404 | 407 |
} |
| 405 | 408 |
|
| 406 | 409 |
sub dump_visible {
|
Auch abrufbar als: Unified diff
Bugfix in SL/Menu und weitere stricts.