loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.103, 2003/06/06 02:24:49	version 1.105, 2003/06/18 16:22:53
Line 1358 sub display_languages {	Line 1358 sub display_languages {
$languages{$_}=1;	$languages{$_}=1;
}	}
}	}
	if ($ENV{'course.'.$ENV{'request.course.id'}.'.languages'}) {
	foreach (split(/\s(\,\|\;\|\:)\s/,
	$ENV{'course.'.$ENV{'request.course.id'}.'.languages'})) {
	$languages{$_}=1;
	}
	}
&get_unprocessed_cgi($ENV{'QUERY_STRING'},['displaylanguage']);	&get_unprocessed_cgi($ENV{'QUERY_STRING'},['displaylanguage']);
if ($ENV{'form.displaylanguage'}) {	if ($ENV{'form.displaylanguage'}) {
foreach (split(/\s(\,\|\;\|\:)\s/,$ENV{'form.displaylanguage'})) {	foreach (split(/\s(\,\|\;\|\:)\s/,$ENV{'form.displaylanguage'})) {
Line 1496 sub get_student_view {	Line 1502 sub get_student_view {
}	}
if ($target eq 'tex') {$moreenv{'form.grade_target'} = 'tex';}	if ($target eq 'tex') {$moreenv{'form.grade_target'} = 'tex';}
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
my $userview=&Apache::lonnet::ssi('/res/'.$feedurl);	my $userview=&Apache::lonnet::ssi_body(&Apache::lonnet::clutter($feedurl));
&Apache::lonnet::delenv('form.grade_');	&Apache::lonnet::delenv('form.grade_');
foreach my $element (@elements) {	foreach my $element (@elements) {
$ENV{'form.grade_'.$element}=$old{$element};	$ENV{'form.grade_'.$element}=$old{$element};