loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.152, 2002/02/21 04:11:25	version 1.154, 2002/02/26 21:00:38
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 1075 sub get_target {	Line 1067 sub get_target {
if ( defined($ENV{'form.grade_target'})	if ( defined($ENV{'form.grade_target'})
&& ($viewgrades == 'F' )) {	&& ($viewgrades == 'F' )) {
return ($ENV{'form.grade_target'});	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 {	} else {
return 'web';	return 'web';
}	}