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

Diff for /loncom/xml/scripttag.pm between versions 1.84 and 1.85

version 1.84, 2003/01/13 22:18:34 version 1.85, 2003/02/07 22:03:21
Line 90  sub start_script { Line 90  sub start_script {
   } else {    } else {
     if ($target ne "meta") {      if ($target ne "meta") {
       $result = $token->[4];        $result = $token->[4];
       my $bodytext=&Apache::lonxml::get_all_text("/script",$$parser[$#$parser]);        my $bodytext=&Apache::lonxml::get_all_text("/script",$parser);
       $result.=$bodytext;        $result.=$bodytext;
     }      }
   }    }
Line 365  sub start_standalone { Line 365  sub start_standalone {
   my $result='';    my $result='';
   if ($target eq 'web' ) {    if ($target eq 'web' ) {
     if ( $ENV{'request.course.id'} ) {      if ( $ENV{'request.course.id'} ) {
       my $inside = &Apache::lonxml::get_all_text("/standalone",$$parser[-1]);        my $inside = &Apache::lonxml::get_all_text("/standalone",$parser);
     } else {      } else {
       $result='<table bgcolor="#E1E1E1" border="2"><tr><td>';        $result='<table bgcolor="#E1E1E1" border="2"><tr><td>';
     }      }
Line 390  sub start_comment { Line 390  sub start_comment {
   my $result='';    my $result='';
   if ($target eq 'edit') {    if ($target eq 'edit') {
     $result=&Apache::edit::tag_start($target,$token);      $result=&Apache::edit::tag_start($target,$token);
     my $bodytext=&Apache::lonxml::get_all_text("/comment",$$parser[$#$parser]);      my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser);
     $result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4)      $result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4)
   } elsif ( $target eq 'modified') {    } elsif ( $target eq 'modified') {
     $result=$token->[4].&Apache::edit::modifiedfield($token);      $result=$token->[4].&Apache::edit::modifiedfield($token);
   } elsif ( $target eq 'web' || $target eq 'tex' || $target eq 'grade' ||    } elsif ( $target eq 'web' || $target eq 'tex' || $target eq 'grade' ||
     $target eq 'answer' || $target eq 'meta' || $target eq 'analyze') {      $target eq 'answer' || $target eq 'meta' || $target eq 'analyze') {
     #normally throw away comments      #normally throw away comments
     my $bodytext=&Apache::lonxml::get_all_text("/comment",$$parser[$#$parser]);      my $bodytext=&Apache::lonxml::get_all_text("/comment",$parser);
   }    }
   return $result;    return $result;
 }  }
Removed from v.1.84  
changed lines
  Added in v.1.85

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