loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.395, 2007/09/10 17:02:32
+version 1.396, 2007/09/11 23:36:39
  Line 1070  sub start_definetag {
      my $name = $token->[2]->{'name'};
      my $skip=&Apache::lonxml::get_all_text("/definetag",$parser,$style);
-     if ($name=~/^\//) {
+     if ($target eq 'web') {
- 	$result=
+ 	if ($name=~/^\//) {
-  '<br /><table bgcolor="#FFBBBB"><tr><th>END <tt>'.$name.'</tt></th></tr>';
+ 	    $result=
-     } else {
+ 		'<br /><table class="LC_sty_end"><tr><th>'.
- 	$result=
+ 		&mt('END [_1]'.'<tt>'.$name.'</tt>').'</th></tr>';
-  '<br /><table bgcolor="#BBFFBB"><tr><th>BEGIN <tt>'.$name.'</tt></th></tr>';
+ 	} else {
+ 	    $result=
+ 		'<br /><table class="LC_sty_begin"><tr><th>'.
+ 		&mt('BEGIN [_1]'.'<tt>'.$name.'</tt>').'</th></tr>';
+ 	}
+ 	$skip = &HTML::Entities::encode($skip, '<>&"');
+ 	$result.='<tr><td><pre>'.$skip.'</pre></td></tr></table>';
      }
-     $skip=~s/\</\&lt\;/gs;
-     $skip=~s/\>/\&gt\;/gs;
-     $result.='<tr><td><pre>'.$skip.'</pre></td></tr></table>';
      return $result;
  }