version 1.295, 2005/11/27 23:57:15
|
version 1.297, 2005/11/28 22:37:41
|
Line 48 use Apache::lonmenu();
|
Line 48 use Apache::lonmenu();
|
use Apache::lonmeta(); |
use Apache::lonmeta(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use File::Basename; |
use File::Basename; |
use Data::Dumper; |
#use Data::Dumper; |
|
|
BEGIN { |
BEGIN { |
|
|
Line 61 BEGIN {
|
Line 61 BEGIN {
|
# Need this 'cause evidently when given an array, Data::Dumper only seems |
# Need this 'cause evidently when given an array, Data::Dumper only seems |
# to dump element 0. |
# to dump element 0. |
# |
# |
sub debug_dump_table { |
#sub debug_dump_table { |
my $lastrow = $#Apache::londefdef::table; |
# my $lastrow = $#Apache::londefdef::table; |
&Apache::lonnet::logthis("Dumping table: Last row index: $lastrow"); |
# &Apache::lonnet::logthis("Dumping table: Last row index: $lastrow"); |
my $row; |
# my $row; |
for ($row =0; $row <= $lastrow; $row++ ) { |
# for ($row =0; $row <= $lastrow; $row++ ) { |
my $text = Dumper($Apache::londefdef::table[$row]); |
# my $text = Dumper($Apache::londefdef::table[$row]); |
&Apache::lonnet::logthis("table [ $row ]".$text); |
# &Apache::lonnet::logthis("table [ $row ]".$text); |
|
# |
} |
# } |
} |
#} |
|
|
sub initialize_londefdef { |
sub initialize_londefdef { |
$Apache::londefdef::TD_redirection=0; |
$Apache::londefdef::TD_redirection=0; |