my @header_sort = qw(partnumber description);
my %header_title = ( "partnumber" => $locale->text("Part Number"),
- "description" => $locale->text("Part description"),
+ "description" => $locale->text("Part Description"),
);
my @header =
# -------------------------------------------------------------------------
-my %_called_subs = ();
-
sub call_sub {
$main::lxdebug->enter_sub();
$form->error(sprintf($locale->text("Attempt to call an undefined sub named '%s'"), $name));
}
- $_called_subs{$name}++;
-# confess "RECURSION DETECTION: call_sub($name) called " . $_called_subs{$name} . " time(s)" if $_called_subs{$name} > 10;
+ $::called_subs{$name}++;
+ confess "RECURSION DETECTION: call_sub($name) called " . $::called_subs{$name} . " time(s)" if $::called_subs{$name} > 10;
{
no strict "refs";
$main::lxdebug->leave_sub();
}
+if ($::use_rdbo) {
+ eval {
+ require SL::DB::Helpers::Mappings;
+ sub db {
+ goto &SL::DB::Helpers::Mappings::db;
+ }
+ } or die $@;
+}
+
1;