Diff for /loncom/homework/edit.pm between versions 1.93 and 1.97

version 1.93, 2005/06/07 01:33:19 version 1.97, 2005/12/01 18:46:31
Line 92  sub start_table { Line 92  sub start_table {
     foreach my $namespace (reverse @Apache::lonxml::namespace) {      foreach my $namespace (reverse @Apache::lonxml::namespace) {
  my $testtag=$namespace.'::'.$tag;   my $testtag=$namespace.'::'.$tag;
  $tagnum=$Apache::lonxml::insertlist{"$testtag.num"};   $tagnum=$Apache::lonxml::insertlist{"$testtag.num"};
    &Apache::lonxml::debug(" $testtag ");
  if (defined($tagnum)) { last; }   if (defined($tagnum)) { last; }
     }      }
     if (!defined ($tagnum)) {$tagnum=$Apache::lonxml::insertlist{"$tag.num"};}      if (!defined ($tagnum)) {$tagnum=$Apache::lonxml::insertlist{"$tag.num"};}
     my $color = $Apache::lonxml::insertlist{"$tagnum.color"};      my $color = $Apache::lonxml::insertlist{"$tagnum.color"};
       &Apache::lonxml::debug(" $tagnum -- $color");
     if (!defined($color)) {      if (!defined($color)) {
  $color = $Apache::edit::colorlist[$Apache::edit::colordepth];   $color = $Apache::edit::colorlist[$Apache::edit::colordepth];
     }      }
Line 109  sub start_table { Line 111  sub start_table {
 sub end_table {  sub end_table {
     $Apache::edit::colordepth--;      $Apache::edit::colordepth--;
     my $result='</table></div>';      my $result='</table></div>';
     $result.="<table><tr><td>";      $result.='<div align="left"><table><tr><td>';
   
     my ($tagname,$closingtag);      my ($tagname,$closingtag);
     if (defined($Apache::edit::inserttag[-2])) {      if (defined($Apache::edit::inserttag[-2])) {
Line 119  sub end_table { Line 121  sub end_table {
  $closingtag=$Apache::edit::inserttag[-1];   $closingtag=$Apache::edit::inserttag[-1];
     }      }
     $result.=&innerinsertlist('edit',$tagname,$closingtag).      $result.=&innerinsertlist('edit',$tagname,$closingtag).
  "</td></tr></table>";   "</td></tr></table></div>";
     pop(@Apache::edit::inserttag);      pop(@Apache::edit::inserttag);
     return $result;      return $result;
 }  }
Line 161  sub handle_delete { Line 163  sub handle_delete {
     }      }
     if (!$result) {      if (!$result) {
  my $endtag='/'.$token->[1];   my $endtag='/'.$token->[1];
  my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser);   my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser,$style);
  $$parser['-1']->get_token();   $$parser['-1']->get_token();
  &Apache::lonxml::debug("Deleting :$bodytext: for $token->[1]");   &Apache::lonxml::debug("Deleting :$bodytext: for $token->[1]");
  &Apache::lonxml::end_tag($tagstack,$parstack,$token);   &Apache::lonxml::end_tag($tagstack,$parstack,$token);
Line 309  sub insert_numericalresponse { Line 311  sub insert_numericalresponse {
 </numericalresponse>';  </numericalresponse>';
 }  }
   
   sub insert_customresponse {
       return '
   <customresponse>
       <answer type="loncapa/perl">
       </answer>
       <textline />
       <hintgroup>
       <startouttext /><endouttext />
       </hintgroup>
   </customresponse>';
   }
   
   sub insert_customresponse_answer {
       return '
       <answer type="loncapa/perl">
       </answer>
   ';
   }
   
 sub insert_stringresponse {  sub insert_stringresponse {
     return '      return '
 <stringresponse answer="" type="">  <stringresponse answer="" type="">

Removed from v.1.93  
changed lines
  Added in v.1.97


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