loncom/xml/scripttag.pm - diff

Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.73, 2002/05/03 22:28:36
+version 1.74, 2002/07/17 18:00:03
  Line 43  BEGIN {
    &Apache::lonxml::register('Apache::scripttag',
  			    ('script','scriptlib','parserlib','import',
  			     'window','display','storetc','physnet',
- 			     'standalone'));
+ 			     'standalone','comment'));
  }
  sub start_script {
  Line 348  sub end_standalone {
    return '';
  }
+ sub start_comment {
+   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+   my $result='';
+   if ($target eq 'edit') {
+     $result=&Apache::edit::tag_start($target,$token);
+     my $bodytext=&Apache::lonxml::get_all_text("/comment",$$parser[$#$parser]);
+     $result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,4)
+   } elsif ( $target eq 'modified') {
+     $result=$token->[4].&Apache::edit::modifiedfield($token);
+   } elsif ( $target eq 'web' || $target eq 'tex' ||
+ 	    $target eq 'grade' || $target eq 'answer' || $target eq 'meta') {
+     #normally throw away comments
+     my $bodytext=&Apache::lonxml::get_all_text("/comment",$$parser[$#$parser]);
+   }
+   return $result;
+ }
+ sub end_comment {
+   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
+   if ($target eq 'edit' ) { return &Apache::edit::end_table(); }
+   return '';
+ }
  sub xmlparse {
    my ($string) = @_;