version 1.339, 2004/10/05 18:51:50
|
version 1.340, 2004/10/05 18:54:49
|
Line 824 sub increasedepth {
|
Line 824 sub increasedepth {
|
if ($Apache::lonxml::depthcounter[$Apache::lonxml::depth]==1) { |
if ($Apache::lonxml::depthcounter[$Apache::lonxml::depth]==1) { |
$Apache::lonxml::olddepth=$Apache::lonxml::depth; |
$Apache::lonxml::olddepth=$Apache::lonxml::depth; |
} |
} |
push(@timers,[&gettimeofday()]); |
my $time; |
my $time=&tv_interval($lasttime); |
if ($Apache::lonxml::debug eq "1") { |
$lasttime=[&gettimeofday()]; |
push(@timers,[&gettimeofday()]); |
|
$time=&tv_interval($lasttime); |
|
$lasttime=[&gettimeofday()]; |
|
} |
my $spacing=' 'x($Apache::lonxml::depth-1); |
my $spacing=' 'x($Apache::lonxml::depth-1); |
my $curdepth=join('_',@Apache::lonxml::depthcounter); |
my $curdepth=join('_',@Apache::lonxml::depthcounter); |
&Apache::lonxml::debug("s$spacing$Apache::lonxml::depth : $Apache::lonxml::olddepth : $curdepth : $token->[1] : $time : \n"); |
&Apache::lonxml::debug("s$spacing$Apache::lonxml::depth : $Apache::lonxml::olddepth : $curdepth : $token->[1] : $time : \n"); |
Line 844 sub decreasedepth {
|
Line 847 sub decreasedepth {
|
&Apache::lonxml::warning(&mt("Missing tags, unable to properly run file.")); |
&Apache::lonxml::warning(&mt("Missing tags, unable to properly run file.")); |
$Apache::lonxml::depth='-1'; |
$Apache::lonxml::depth='-1'; |
} |
} |
my $timer=pop(@timers); |
my ($timer,$time); |
my $time=&tv_interval($lasttime); |
if ($Apache::lonxml::debug eq "1") { |
$lasttime=[&gettimeofday()]; |
$timer=pop(@timers); |
|
$time=&tv_interval($lasttime); |
|
$lasttime=[&gettimeofday()]; |
|
} |
my $spacing=' 'x$Apache::lonxml::depth; |
my $spacing=' 'x$Apache::lonxml::depth; |
my $curdepth=join('_',@Apache::lonxml::depthcounter); |
my $curdepth=join('_',@Apache::lonxml::depthcounter); |
&Apache::lonxml::debug("e$spacing$Apache::lonxml::depth : $Apache::lonxml::olddepth : $curdepth : $token->[1] : $time : ".&tv_interval($timer)."\n"); |
&Apache::lonxml::debug("e$spacing$Apache::lonxml::depth : $Apache::lonxml::olddepth : $curdepth : $token->[1] : $time : ".&tv_interval($timer)."\n"); |