loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.196, 2003/07/16 19:36:02
+version 1.197, 2003/07/17 13:50:44
  Line 39  use Apache::lonmenu;
  BEGIN {
      &Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext',
- 'simpleeditbutton'));
+ 'simpleeditbutton','definetag'));
  }
  sub start_web {
  Line 596  sub end_library {
      return $result;
  }
+ sub start_definetag {
+     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
+     my $result;
+     my $name = $token->[2]->{'name'};
+     my $skip=&Apache::lonxml::get_all_text("/definetag",$parser);
+     if ($name=~/^\//) {
+ 	$result=
+  '<br /><table bgcolor="#FFBBBB"><tr><th>END <tt>'.$name.'</tt></th></tr>';
+     } else {
+ 	$result=
+  '<br /><table bgcolor="#BBFFBB"><tr><th>BEGIN <tt>'.$name.'</tt></th></tr>';
+     }
+     $skip=~s/\</\&lt\;/gs;
+     $skip=~s/\>/\&gt\;/gs;
+     $result.='<tr><td><pre>'.$skip.'</pre></td></tr></table>';
+     return $result;
+ }
+ sub end_definetag {
+     return '';
+ }
  sub start_block {
      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;