loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.329, 2006/01/02 22:34:31	version 1.331, 2006/01/18 20:16:43
Line 1166 sub start_randomlist {	Line 1166 sub start_randomlist {
my $result;	my $result;
if ($target eq 'answer' \|\| $target eq 'grade' \|\| $target eq 'web' \|\|	if ($target eq 'answer' \|\| $target eq 'grade' \|\| $target eq 'web' \|\|
$target eq 'tex' \|\| $target eq 'analyze') {	$target eq 'tex' \|\| $target eq 'analyze') {
my $body= &Apache::lonxml::get_all_text("/randomlist",$parser,$style);	my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
my $b_parser= HTML::LCParser->new(\$body);	my $b_parser= HTML::LCParser->new(\$body);
$b_parser->xml_mode(1);	$b_parser->xml_mode(1);
$b_parser->marked_sections(1);	$b_parser->marked_sections(1);
Line 1586 sub start_simpleeditbutton {	Line 1586 sub start_simpleeditbutton {
my $result='';	my $result='';
if (($env{'form.simple_edit_button'} ne 'off') &&	if (($env{'form.simple_edit_button'} ne 'off') &&
($target eq 'web') &&	($target eq 'web') &&
(&Apache::lonnet::allowed('srm',$env{'request.course.id'}))) {	(&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
my $url=$env{'request.noversionuri'};	my $url=$env{'request.noversionuri'};
$url=~s/\?.*$//;	$url=~s/\?.*$//;
my ($symb) = &Apache::lonxml::whichuser();	my ($symb) = &Apache::lonxml::whichuser();