version 1.98, 2002/10/21 20:31:06
|
version 1.100, 2002/11/10 15:39:37
|
Line 220 sub check_access {
|
Line 220 sub check_access {
|
|
|
sub showhash { |
sub showhash { |
my (%hash) = @_; |
my (%hash) = @_; |
&showhashsubset(\%hash,''); |
&showhashsubset(\%hash,'.'); |
return ''; |
return ''; |
} |
} |
|
|
Line 382 sub renderpage {
|
Line 382 sub renderpage {
|
&Apache::outputtags::initialize_outputtags(); |
&Apache::outputtags::initialize_outputtags(); |
&Apache::edit::initialize_edit(); |
&Apache::edit::initialize_edit(); |
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } |
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } |
if ($target eq 'web') { |
|
my ($symb)=&Apache::lonxml::whichuser(); |
|
if ($symb eq '') { |
|
if ($ENV{'request.state'} eq "construct") { |
|
} else { |
|
my $help = Apache::loncommon::help_open_topic("Ambiguous_Reference"); |
|
$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored $help<br />"); |
|
} |
|
} |
|
#if ($Apache::lonhomework::viewgrades eq 'F') {&createmenu('grade',$request); } |
|
} |
|
if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); } |
if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); } |
if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');} |
if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%ENV,'^form');} |
|
|