version 1.85, 2002/08/07 18:20:29
|
version 1.98, 2002/10/21 20:31:06
|
Line 59 BEGIN {
|
Line 59 BEGIN {
|
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if ( $ENV{'request.state'} eq "published") { |
if ( defined($ENV{'form.grade_target'}) |
if ( defined($ENV{'form.grade_target'} ) |
|
&& ($ENV{'form.grade_target'} eq 'tex')) { |
|
return ($ENV{'form.grade_target'}); |
|
} elsif ( defined($ENV{'form.grade_target'} ) |
&& ($Apache::lonhomework::viewgrades == 'F' )) { |
&& ($Apache::lonhomework::viewgrades == 'F' )) { |
return ($ENV{'form.grade_target'}); |
return ($ENV{'form.grade_target'}); |
} |
} |
|
|
if ( defined($ENV{'form.submitted'})) { |
if ( defined($ENV{'form.submitted'})) { |
return ('grade', 'web'); |
return ('grade', 'web'); |
} else { |
} else { |
Line 79 sub get_target {
|
Line 83 sub get_target {
|
return ('web'); |
return ('web'); |
} |
} |
} else { |
} else { |
if ( $ENV{'form.problemmode'} eq 'View' ) { |
if ( $ENV{'form.problemmode'} eq 'View' || |
|
$ENV{'form.problemmode'} eq 'Discard Edits and View') { |
if ( defined($ENV{'form.submitted'}) && |
if ( defined($ENV{'form.submitted'}) && |
(!defined($ENV{'form.resetdata'})) ) { |
(!defined($ENV{'form.resetdata'})) ) { |
return ('grade', 'web','answer'); |
return ('grade', 'web','answer'); |
Line 134 sub send_footer {
|
Line 139 sub send_footer {
|
|
|
$Apache::lonxml::browse=''; |
$Apache::lonxml::browse=''; |
|
|
|
# JB, 9/24/2002: Any changes in this function may require a change |
|
# in lonnavmaps::resource::getDateStatus. |
sub check_access { |
sub check_access { |
my ($id) = @_; |
my ($id) = @_; |
my $date =''; |
my $date =''; |
Line 148 sub check_access {
|
Line 155 sub check_access {
|
foreach $temp ("opendate","duedate","answerdate") { |
foreach $temp ("opendate","duedate","answerdate") { |
$lastdate = $date; |
$lastdate = $date; |
$date = &Apache::lonnet::EXT("resource.$id.$temp"); |
$date = &Apache::lonnet::EXT("resource.$id.$temp"); |
|
my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type"); |
|
if ($thistype eq 'date_interval') { |
|
if ($temp eq 'opendate') { |
|
$date=&Apache::lonnet::EXT("resource.$id.duedate")-$date; |
|
} |
|
if ($temp eq 'answerdate') { |
|
$date=&Apache::lonnet::EXT("resource.$id.duedate")+$date; |
|
} |
|
} |
&Apache::lonxml::debug("found :$date: for :$temp:"); |
&Apache::lonxml::debug("found :$date: for :$temp:"); |
if ($date eq '') { |
if ($date eq '') { |
$date = "an unknown date"; $passed = 0; |
$date = "an unknown date"; $passed = 0; |
Line 325 sub editxmlmode {
|
Line 341 sub editxmlmode {
|
my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem); |
my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem); |
my $xml_help = Apache::loncommon::help_open_topic("Problem_Editor_XML_Index"); |
my $xml_help = Apache::loncommon::help_open_topic("Problem_Editor_XML_Index"); |
if ($cols > 80) { $cols = 80; } |
if ($cols > 80) { $cols = 80; } |
|
if ($cols < 70) { $cols = 70; } |
|
if ($rows < 20) { $rows = 20; } |
$result.='<html><body bgcolor="#FFFFFF"> |
$result.='<html><body bgcolor="#FFFFFF"> |
<form name="lonhomework" method="POST" action="'. |
<form name="lonhomework" method="POST" action="'. |
$ENV{'request.uri'}.'"> |
$ENV{'request.uri'}.'"> |
Line 360 sub renderpage {
|
Line 378 sub renderpage {
|
|
|
my %mystyle; |
my %mystyle; |
my $result = ''; |
my $result = ''; |
&Apache::inputtags::initialize_inputtags; |
&Apache::inputtags::initialize_inputtags(); |
&Apache::edit::initialize_edit; |
&Apache::outputtags::initialize_outputtags(); |
|
&Apache::edit::initialize_edit(); |
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } |
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } |
if ($target eq 'web') { |
if ($target eq 'web') { |
my ($symb)=&Apache::lonxml::whichuser(); |
my ($symb)=&Apache::lonxml::whichuser(); |
Line 377 sub renderpage {
|
Line 396 sub renderpage {
|
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');} |
|
|
my $default=&Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_homework.lcpm'); |
|
if ($default == -1) { |
|
&Apache::lonxml::error("<b>Unable to find <i>default_homework.lcpm</i></b>"); |
|
$default=''; |
|
} |
|
&Apache::lonxml::debug("Should be parsing now"); |
&Apache::lonxml::debug("Should be parsing now"); |
$result = &Apache::lonxml::xmlparse($request, $target, $problem, |
$result = &Apache::lonxml::xmlparse($request, $target, $problem, |
$default.&setup_vars($target),%mystyle); |
&setup_vars($target),%mystyle); |
|
|
#$request->print("Result follows:"); |
#$request->print("Result follows:"); |
if ($target eq 'modified') { |
if ($target eq 'modified') { |
Line 422 sub get_template_list {
|
Line 436 sub get_template_list {
|
push (@allnames, $name); |
push (@allnames, $name); |
} |
} |
} |
} |
if (@allnames) { |
if (@allnames && !$result) { |
$result="<option>Select a $extension type</option>\n<option>". |
$result="<option>Select a $extension type</option>\n<option>". |
join('</option><option>',sort(@allnames)).'</option>'; |
join('</option><option>',sort(@allnames)).'</option>'; |
} |
} |
Line 488 sub handler {
|
Line 502 sub handler {
|
#my $t0 = [&gettimeofday()]; |
#my $t0 = [&gettimeofday()]; |
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;} |
|
$Apache::lonxml::debug=$ENV{'user.debug'}; |
|
|
if (&setupheader($request)) { return OK; } |
if (&setupheader($request)) { return OK; } |
$ENV{'request.uri'}=$request->uri; |
$ENV{'request.uri'}=$request->uri; |