version 1.78, 2002/05/23 21:12:44
|
version 1.79, 2002/05/24 18:55:23
|
Line 192 sub check_access {
|
Line 192 sub check_access {
|
|
|
sub showhash { |
sub showhash { |
my (%hash) = @_; |
my (%hash) = @_; |
|
&showhashsubset(\%hash,''); |
|
return ''; |
|
} |
|
|
|
sub showhashsubset { |
|
my ($hash,$keyre) = @_; |
my $resultkey; |
my $resultkey; |
foreach $resultkey (sort keys %hash) { |
foreach $resultkey (sort keys %$hash) { |
if (ref($hash{$resultkey})) { |
if ($resultkey =~ /$keyre/) { |
if ($hash{$resultkey} =~ /ARRAY/ ) { |
if (ref($$hash{$resultkey})) { |
my $string="$resultkey ---- ("; |
if ($$hash{$resultkey} =~ /ARRAY/ ) { |
foreach my $elm (@{ $hash{$resultkey} }) { |
my $string="$resultkey ---- ("; |
$string.="$elm,"; |
foreach my $elm (@{ $$hash{$resultkey} }) { |
|
$string.="$elm,"; |
|
} |
|
chop($string); |
|
&Apache::lonxml::debug("$string)"); |
|
} else { |
|
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
} |
} |
chop($string); |
|
&Apache::lonxml::debug("$string)"); |
|
} else { |
} else { |
&Apache::lonxml::debug("$resultkey ---- $hash{$resultkey}"); |
&Apache::lonxml::debug("$resultkey ---- $$hash{$resultkey}"); |
} |
} |
} else { |
|
&Apache::lonxml::debug("$resultkey ---- $hash{$resultkey}"); |
|
} |
} |
} |
} |
&Apache::lonxml::debug("\n<br />restored values^</br>\n"); |
&Apache::lonxml::debug("\n<br />restored values^</br>\n"); |
Line 344 sub renderpage {
|
Line 352 sub renderpage {
|
#if ($Apache::lonhomework::viewgrades eq 'F') {&createmenu('grade',$request); } |
#if ($Apache::lonhomework::viewgrades eq 'F') {&createmenu('grade',$request); } |
} |
} |
#if ($target eq 'grade') { &showhash(%Apache::lonhomework::history); } |
#if ($target eq 'grade') { &showhash(%Apache::lonhomework::history); } |
|
#if ($target eq 'web') { &showhash(%ENV); } |
|
|
my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm'); |
my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm'); |
if ($default == -1) { |
if ($default == -1) { |