version 1.42, 2001/05/04 21:20:31
|
version 1.46, 2001/06/12 22:42:55
|
Line 15 use Apache::hint;
|
Line 15 use Apache::hint;
|
use Apache::outputtags; |
use Apache::outputtags; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
|
|
|
|
sub BEGIN { |
|
&Apache::lonxml::register_insert(); |
|
} |
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if ( $ENV{'request.state'} eq "published") { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined $ENV{'form.submitted'}) { |
Line 181 sub renderpage {
|
Line 186 sub renderpage {
|
my %mystyle; |
my %mystyle; |
my $result = ''; |
my $result = ''; |
&Apache::inputtags::initialize_inputtags; |
&Apache::inputtags::initialize_inputtags; |
|
&Apache::edit::initialize_edit; |
%Apache::lonhomework::results=(); |
%Apache::lonhomework::results=(); |
%Apache::lonhomework::history=&Apache::lonnet::restore(); |
%Apache::lonhomework::history=&Apache::lonnet::restore(); |
#ignore error conditions |
#ignore error conditions |
Line 194 sub renderpage {
|
Line 200 sub renderpage {
|
$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored<br />"); |
$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored<br />"); |
} |
} |
} |
} |
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); } |
|
|
Line 294 EDITMENU
|
Line 300 EDITMENU
|
sub handler { |
sub handler { |
my $request=$_[0]; |
my $request=$_[0]; |
|
|
if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} |
#if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} |
|
|
if (&setupheader($request)) { return OK; } |
if (&setupheader($request)) { return OK; } |
$ENV{'request.uri'}=$request->uri; |
$ENV{'request.uri'}=$request->uri; |
Line 333 sub handler {
|
Line 339 sub handler {
|
&renderpage($request,$file); |
&renderpage($request,$file); |
} |
} |
|
|
&Apache::lonhomework::send_footer($request); |
# &Apache::lonhomework::send_footer($request); |
# always turn off debug messages |
# always turn off debug messages |
$Apache::lonxml::debug=0; |
$Apache::lonxml::debug=0; |
return OK; |
return OK; |