Revision ed944ca3
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
|
use SL::DBUtils;
|
||
|
use SL::MoreCommon;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
sub post_transaction {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| SL/DBUtils.pm | ||
|---|---|---|
|
package SL::DBUtils;
|
||
|
|
||
|
require Exporter;
|
||
|
@ISA = qw(Exporter);
|
||
|
our @ISA = qw(Exporter);
|
||
|
|
||
|
@EXPORT = qw(conv_i conv_date conv_dateq do_query selectrow_query do_statement
|
||
|
our @EXPORT = qw(conv_i conv_date conv_dateq do_query selectrow_query do_statement
|
||
|
dump_query quote_db_date
|
||
|
selectfirst_hashref_query selectfirst_array_query
|
||
|
selectall_hashref_query selectall_array_query
|
||
| ... | ... | |
|
|
||
|
my ($form, $dbh, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
dump_query(LXDebug::QUERY, '', $query, @_);
|
||
|
dump_query(LXDebug->QUERY(), '', $query, @_);
|
||
|
|
||
|
my $result;
|
||
|
if (0 == scalar(@_)) {
|
||
| ... | ... | |
|
|
||
|
my ($form, $sth, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
dump_query(LXDebug::QUERY, '', $query, @_);
|
||
|
dump_query(LXDebug->QUERY(), '', $query, @_);
|
||
|
|
||
|
my $result;
|
||
|
if (0 == scalar(@_)) {
|
||
| ... | ... | |
|
sub dump_query {
|
||
|
my ($level, $msg, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
my $filename = $self_filename = 'SL/DBUtils.pm';
|
||
|
my $caller_level;
|
||
|
my $self_filename = 'SL/DBUtils.pm';
|
||
|
my $filename = $self_filename;
|
||
|
my ($caller_level, $line, $subroutine);
|
||
|
while ($filename eq $self_filename) {
|
||
|
(undef, $filename, $line, $subroutine) = caller $caller_level++;
|
||
|
}
|
||
| ... | ... | |
|
|
||
|
my ($form, $dbh, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
dump_query(LXDebug::QUERY, '', $query, @_);
|
||
|
dump_query(LXDebug->QUERY(), '', $query, @_);
|
||
|
|
||
|
my $sth = $dbh->prepare($query) || $form->dberror($query);
|
||
|
|
||
| ... | ... | |
|
|
||
|
my ($form, $dbh, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
dump_query(LXDebug::QUERY, '', $query, @_);
|
||
|
dump_query(LXDebug->QUERY(), '', $query, @_);
|
||
|
|
||
|
my $sth = $dbh->prepare($query) || $form->dberror($query);
|
||
|
if (scalar(@_) != 0) {
|
||
| SL/DN.pm | ||
|---|---|---|
|
use SL::MoreCommon;
|
||
|
use SL::Template;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
sub get_config {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| SL/GenericTranslations.pm | ||
|---|---|---|
|
|
||
|
use SL::DBUtils;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
sub get {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| SL/LXDebug.pm | ||
|---|---|---|
|
|
||
|
use YAML;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
my $data_dumper_available;
|
||
|
|
||
|
our $global_level;
|
||
| SL/Menu.pm | ||
|---|---|---|
|
|
||
|
$self->{ORDER} = [ grep { $self->{$_}->{VISIBLE} } @{ $self->{ORDER} } ];
|
||
|
|
||
|
{ no strict 'refs';
|
||
|
# ToDO: fix this. nuke and pave algorithm without type checking screams for problems.
|
||
|
map { delete @{$self->{$_}}{qw(GRANTED IS_MENU NUM_VISIBLE_CHILDREN VISIBLE ACCESS)} if ($_ ne 'ORDER') } keys %{ $self };
|
||
|
}
|
||
|
}
|
||
|
|
||
|
sub dump_visible {
|
||
Auch abrufbar als: Unified diff
Bugfix in SL/Menu und weitere stricts.