loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.120, 2003/09/17 18:15:54	version 1.123, 2003/09/21 20:06:36
Line 1661 sub preferred_languages {	Line 1661 sub preferred_languages {
push (@genlanguages,(split(/(\-\|\_)/,$_))[0]);	push (@genlanguages,(split(/(\-\|\_)/,$_))[0]);
}	}
}	}
&Apache::lonnet::logthis('Lang: '.join(',',@genlanguages));
return @genlanguages;	return @genlanguages;
}	}

sub current_language {
return (&preferred_languages)[0];
}

###############################################################	###############################################################
## Student Answer Attempts ##	## Student Answer Attempts ##
###############################################################	###############################################################
Line 2326 sub no_cache {	Line 2321 sub no_cache {
#$r->header_out("Expires" => $date);	#$r->header_out("Expires" => $date);
}	}

	sub content_type {
	my ($r,$type,$charset) = @_;
	unless ($charset) {
	$charset=&Apache::lonlocal::current_encoding;
	}
	$r->content_type($type.($charset?'; charset='.$charset:''));
	}

=pod	=pod

=item * add_to_env($name,$value)	=item * add_to_env($name,$value)