loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.304, 2005/10/07 13:56:19	version 1.306, 2005/10/18 21:46:42
Line 74 sub body_tag_start {	Line 74 sub body_tag_start {
'onunload="'.&Apache::lonmenu::unloadevents().'" ';	'onunload="'.&Apache::lonmenu::unloadevents().'" ';
if ($env{'browser.imagesuppress'} eq 'on') { $background=''; }	if ($env{'browser.imagesuppress'} eq 'on') { $background=''; }
if ($background) {	if ($background) {
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=	&Apache::lonxml::extlink($background);
$background;
$body_tag_start.='background="'.$background.'" ';	$body_tag_start.='background="'.$background.'" ';
} else {	} else {
if (($bgcolor) && ($env{'browser.blackwhite'} ne 'on')) {	if (($bgcolor) && ($env{'browser.blackwhite'} ne 'on')) {
Line 1063 sub start_randomlist {	Line 1062 sub start_randomlist {
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);	my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
my $b_parser= HTML::TokeParser->new(\$body);	my $b_parser= HTML::LCParser->new(\$body);
	$b_parser->xml_mode(1);
	$b_parser->marked_sections(1);
my $b_tok;	my $b_tok;
my @randomlist;	my @randomlist;
my $list_item;	my $list_item;