loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.296, 2005/11/28 21:58:24	version 1.297, 2005/11/28 22:37:41
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;