version 1.76, 2002/04/09 04:46:33
|
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) { |
Line 351 sub renderpage {
|
Line 360 sub renderpage {
|
$default=''; |
$default=''; |
} |
} |
&Apache::lonxml::debug("Should be parsing now"); |
&Apache::lonxml::debug("Should be parsing now"); |
$result = &Apache::lonxml::xmlparse($target, $problem, |
$result = &Apache::lonxml::xmlparse($request, $target, $problem, |
$default.&setup_vars($target),%mystyle); |
$default.&setup_vars($target),%mystyle); |
|
|
#$request->print("Result follows:"); |
#$request->print("Result follows:"); |
Line 472 sub handler {
|
Line 481 sub handler {
|
# some times multiple problemmodes are submitted, need to select |
# some times multiple problemmodes are submitted, need to select |
# the last one |
# the last one |
if ( defined($ENV{'form.problemmode'}) && |
if ( defined($ENV{'form.problemmode'}) && |
defined(@{ $ENV{'form.problemmode'} })) { |
ref($ENV{'form.problemmode'}) ) { |
my $mode=$ENV{'form.problemmode'}->[-1]; |
my $mode=$ENV{'form.problemmode'}->[-1]; |
undef $ENV{'form.problemmode'}; |
undef $ENV{'form.problemmode'}; |
$ENV{'form.problemmode'}=$mode; |
$ENV{'form.problemmode'}=$mode; |