[BACK]Return to structuretags.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/structuretags.pm between versions 1.181 and 1.184

version 1.181, 2003/06/07 04:08:43 version 1.184, 2003/06/13 14:35:24
Line 43  BEGIN { Line 43  BEGIN {
   
 sub start_web {  sub start_web {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my $bodytext=&Apache::lonxml::get_all_text("/web",$parser);      if (!($target eq 'web' || $target eq 'edit' || $target eq 'modified' ||
     if ($target eq 'web') {    $target eq 'answer' || $target eq 'grade' || $target eq 'meta' )) {
  return $bodytext;   my $bodytext=&Apache::lonxml::get_all_text("/web",$parser);
     }      }
     return '';      return '';
 }  }
Line 56  sub end_web { Line 56  sub end_web {
   
 sub start_tex {  sub start_tex {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my $bodytext=&Apache::lonxml::get_all_text("/tex",$parser);      if (!($target eq 'tex' || $target eq 'edit' || $target eq 'modified' ||
     if ($target eq 'tex') {    $target eq 'answer' || $target eq 'grade' || $target eq 'meta' )) {
  return $bodytext.' ';   &Apache::lonxml::debug("tex 1");
    my $bodytext=&Apache::lonxml::get_all_text("/tex",$parser);
     }      }
     return '';      return '';
 }  }
Line 265  ENDCHECKOUT Line 266  ENDCHECKOUT
 sub start_problem {  sub start_problem {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   
     $Apache::lonhomework::parsing_a_problem=1;      if ( $Apache::inputtags::part ne '' ||
     # meta is called from lonpublisher, which doesn't uses the normal   $Apache::lonhomework::parsing_a_problem) {
     # lonhomework method of parsing the file which means that inputtags    &Apache::lonxml::error('Only one <problem> allowed in a .problem file');
     # won't get reset   #my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser);
     if ( $Apache::inputtags::part ne '' && $target != 'meta' ) {  
  &Apache::lonxml::error('Only one problem allowed in a .problem file');  
  my $bodytext=&Apache::lonxml::get_all_text("/problem",$parser);  
  return '';   return '';
     }      }
   
       $Apache::lonhomework::parsing_a_problem=1;
 #initialize globals  #initialize globals
     $Apache::inputtags::part='0';      $Apache::inputtags::part='0';
     @Apache::inputtags::partlist=('0');      @Apache::inputtags::partlist=('0');
Removed from v.1.181  
changed lines
  Added in v.1.184

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>