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

Diff for /loncom/homework/structuretags.pm between versions 1.423 and 1.427

version 1.423, 2008/06/11 13:52:35 version 1.427, 2008/08/13 16:56:15
Line 148  sub page_start { Line 148  sub page_start {
   
     $extra_head .= &homework_js();      $extra_head .= &homework_js();
   
       unless ($env{'environment.wysiwygeditor'} eq 'on') {
           $extra_head .= &Apache::lonhtmlcommon::dragmath_js();
       }
   
     my %body_args;      my %body_args;
     if (defined($found{'html'})) {      if (defined($found{'html'})) {
  $body_args{'skip_phases'}{'head'}=1;   $body_args{'skip_phases'}{'head'}=1;
Line 1378  sub end_languageblock { Line 1382  sub end_languageblock {
     my $result = &Apache::lonxml::endredirection();      my $result = &Apache::lonxml::endredirection();
     my $which = &Apache::lonxml::get_param('which',$parstack,      my $which = &Apache::lonxml::get_param('which',$parstack,
    $safeeval);     $safeeval);
     $available_texts{$which} = $result;              foreach my $language (split(/\s*\,\s*/,$which)) {
                  unless ($language=~/\w/) { next; }
                  $available_texts{$language} = $result;
               }
   
  }   }
  return '';   return '';
     }      }
Line 1870  sub end_startouttext { Line 1878  sub end_startouttext {
     my $text='';      my $text='';
   
     if ($target eq 'edit') {      if ($target eq 'edit') {
    my $areaid = 'homework_edit_'.$Apache::lonxml::curdepth;
  $text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);   $text=&Apache::lonxml::get_all_text("endouttext",$parser,$style);
  $result.=&Apache::edit::start_table($token)."<tr><td>".&mt('Text Block')."</td>   $result.=&Apache::edit::start_table($token)."<tr><td>".&mt('Text Block')."</td>
 <td>".&mt('Delete:').  <td>".&mt('Delete:').
                  &Apache::edit::deletelist($target,$token)                   &Apache::edit::deletelist($target,$token)
  ."</td>   ."</td>";
 <td>".          unless ($env{'environment.wysiwygeditor'} eq 'on') {
                  &Apache::edit::insertlist($target,$token).              $result.='<td align="left">'
  '</td><td align="right" valign="top">' .                       .&Apache::lonhtmlcommon::dragmath_button($areaid,1)
                        .'</td>';
           }
    $result.='<td align="right" valign="top">' .
  &Apache::loncommon::helpLatexCheatsheet().   &Apache::loncommon::helpLatexCheatsheet().
  &Apache::edit::end_row().   &Apache::edit::end_row().
                  &Apache::edit::start_spanning_row()."\n".                   &Apache::edit::start_spanning_row()."\n".
Removed from v.1.423  
changed lines
  Added in v.1.427

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