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

Diff for /loncom/xml/scripttag.pm between versions 1.161 and 1.162

version 1.161, 2011/12/19 18:00:27 version 1.162, 2011/12/19 18:18:32
Line 335  sub start_togglebox { Line 335  sub start_togglebox {
         my $heading=&Apache::lonxml::get_param('heading',$parstack,$safeeval);          my $heading=&Apache::lonxml::get_param('heading',$parstack,$safeeval);
         unless ($heading) { $heading=''; } else { $heading.=' '; }          unless ($heading) { $heading=''; } else { $heading.=' '; }
         my $showtext=&Apache::lonxml::get_param('showtext',$parstack,$safeeval);          my $showtext=&Apache::lonxml::get_param('showtext',$parstack,$safeeval);
         unless ($showtext) { $showtext=&mt('show'); }  
         my $hidetext=&Apache::lonxml::get_param('hidetext',$parstack,$safeeval);          my $hidetext=&Apache::lonxml::get_param('hidetext',$parstack,$safeeval);
         unless ($hidetext) { $hidetext=&mt('hide'); }  
         my $headerbg=&Apache::lonxml::get_param('headerbg',$parstack,$safeeval);          my $headerbg=&Apache::lonxml::get_param('headerbg',$parstack,$safeeval);
         unless ($headerbg) { $headerbg='#FFFFFF'; }          $result=&Apache::loncommon::start_togglebox($id,$heading,$headerbg,$hidetext,$showtext);
         $result=&Apache::loncommon::start_data_table().  
                 &Apache::loncommon::start_data_table_header_row().'<td bgcolor="'.$headerbg.'">'.$heading.  
                 '[<a id="'.$id.'link" href="javascript:LCtoggleDisplay(\''.$id.'\',\''.$hidetext.'\',\''.  
                 $showtext.'\')">'.$showtext.'</a>]</td>'.  
                 &Apache::loncommon::end_data_table_header_row().  
                 '<tr id="'.$id.'" style="display:none""><td>';  
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         my $heading=&Apache::lonxml::get_param('heading',$parstack,$safeeval);          my $heading=&Apache::lonxml::get_param('heading',$parstack,$safeeval);
         unless ($heading) { $heading=''; } else { $heading.=' '; }          unless ($heading) { $heading=''; } else { $heading.=' '; }
Line 371  sub end_togglebox { Line 363  sub end_togglebox {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result;    my $result;
   if ($target eq 'web' || $target eq 'webgrade') {    if ($target eq 'web' || $target eq 'webgrade') {
     $result='</td></tr>'.&Apache::loncommon::end_data_table();      $result=&Apache::loncommon::end_togglebox();
   } elsif ($target eq 'tex') {    } elsif ($target eq 'tex') {
       $result = "}\n\n";        $result = "}\n\n";
   } else {    } else {
Removed from v.1.161  
changed lines
  Added in v.1.162

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