version 1.151, 2002/01/30 16:04:04
|
version 1.154, 2002/02/26 21:00:38
|
Line 538 sub inner_xmlparse {
|
Line 538 sub inner_xmlparse {
|
&Apache::lonxml::warning('Using tag </'.$token->[1].'> as end tag to <'.$$stack[-1].'>'); |
&Apache::lonxml::warning('Using tag </'.$token->[1].'> as end tag to <'.$$stack[-1].'>'); |
last; |
last; |
} else { |
} else { |
&Apache::lonxml::warning('Found tag </'.$$stack[-1].'> when looking for </'.$token->[1].'> in file'); |
&Apache::lonxml::warning('Found tag </'.$token->[1].'> when looking for </'.$$stack[-1].'> in file'); |
&end_tag($stack,$parstack,$token); |
&end_tag($stack,$parstack,$token); |
} |
} |
} |
} |
Line 626 sub recurse {
|
Line 626 sub recurse {
|
&Apache::lonxml::warning('Using tag </'.$tokenpat->[1].'> as end tag to <'.$innerstack[-1].'>'); |
&Apache::lonxml::warning('Using tag </'.$tokenpat->[1].'> as end tag to <'.$innerstack[-1].'>'); |
last; |
last; |
} else { |
} else { |
&Apache::lonxml::warning('Found tag </'.$innerstack[-1].'> when looking for </'.$tokenpat->[1].'> in file'); |
&Apache::lonxml::warning('Found tag </'.$tokenpat->[1].'> when looking for </'.$innerstack[-1].'> in file'); |
&end_tag(\@innerstack,\@innerparstack,$tokenpat); |
&end_tag(\@innerstack,\@innerparstack,$tokenpat); |
} |
} |
} |
} |
Line 689 sub callsub {
|
Line 689 sub callsub {
|
} |
} |
if (!$deleted) { |
if (!$deleted) { |
if ($space) { |
if ($space) { |
#&Apache::lonxml::debug("Calling sub $sub in $space $metamode<br />\n"); |
#&Apache::lonxml::debug("Calling sub $sub in $space $metamode"); |
$sub1="$space\:\:$sub"; |
$sub1="$space\:\:$sub"; |
($currentstring,$nodefault) = &$sub1($target,$token,$tagstack, |
($currentstring,$nodefault) = &$sub1($target,$token,$tagstack, |
$parstack,$parser,$safeeval, |
$parstack,$parser,$safeeval, |
$style); |
$style); |
} else { |
} else { |
#&Apache::lonxml::debug("NOT Calling sub $sub in $space $metamode<br />\n"); |
#&Apache::lonxml::debug("NOT Calling sub $sub in $space $metamode"); |
if ($metamode <1) { |
if ($metamode <1) { |
if (defined($token->[4]) && ($metamode < 1)) { |
if (defined($token->[4]) && ($metamode < 1)) { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
Line 978 sub writeallows {
|
Line 978 sub writeallows {
|
# |
# |
sub afterburn { |
sub afterburn { |
my $result=shift; |
my $result=shift; |
foreach (split(/&/,$ENV{'QUERY_STRING'})) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
my ($name, $value) = split(/=/,$_); |
['highlight','anchor','link']); |
$value =~ tr/+/ /; |
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
if (($name eq 'highlight')||($name eq 'anchor')||($name eq 'link')) { |
|
unless ($ENV{'form.'.$name}) { |
|
$ENV{'form.'.$name}=$value; |
|
} |
|
} |
|
} |
|
if ($ENV{'form.highlight'}) { |
if ($ENV{'form.highlight'}) { |
foreach (split(/\,/,$ENV{'form.highlight'})) { |
foreach (split(/\,/,$ENV{'form.highlight'})) { |
my $anchorname=$_; |
my $anchorname=$_; |
Line 1069 ENDFOOTER
|
Line 1061 ENDFOOTER
|
return $result; |
return $result; |
} |
} |
|
|
|
sub get_target { |
|
my $viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); |
|
if ( $ENV{'request.state'} eq 'published') { |
|
if ( defined($ENV{'form.grade_target'}) |
|
&& ($viewgrades == 'F' )) { |
|
return ($ENV{'form.grade_target'}); |
|
} elsif (defined($ENV{'form.grade_target'})) { |
|
if (($ENV{'form.grade_target'} eq 'web') || |
|
($ENV{'form.grade_target'} eq 'tex') ) { |
|
return $ENV{'form.grade_target'} |
|
} else { |
|
return 'web'; |
|
} |
|
} else { |
|
return 'web'; |
|
} |
|
} elsif ($ENV{'request.state'} eq 'construct') { |
|
if ( defined($ENV{'form.grade_target'})) { |
|
return ($ENV{'form.grade_target'}); |
|
} else { |
|
return 'web'; |
|
} |
|
} else { |
|
return 'web'; |
|
} |
|
} |
|
|
sub handler { |
sub handler { |
my $request=shift; |
my $request=shift; |
|
|
my $target='web'; |
my $target=&get_target(); |
|
|
$Apache::lonxml::debug=0; |
$Apache::lonxml::debug=0; |
|
|