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

Diff for /loncom/xml/londefdef.pm between versions 1.415.4.4 and 1.415.4.6

version 1.415.4.4, 2011/09/15 19:10:45 version 1.415.4.6, 2011/11/15 17:34:19
Line 3312  sub start_applet { Line 3312  sub start_applet {
     my $currentstring = '';      my $currentstring = '';
     if ($target eq 'web' || $target eq 'webgrade') {      if ($target eq 'web' || $target eq 'webgrade') {
  if ($env{'browser.appletsuppress'} ne 'on') {   if ($env{'browser.appletsuppress'} ne 'on') {
     $currentstring = &Apache::lonenc::encrypt_ref($token,              $currentstring = $token->[4];
   {'code'=>$code,  
    'archive'=>$archive}  
   );  
  } else {   } else {
     my $alttag= &Apache::lonxml::get_param('alt',$parstack,      my $alttag= &Apache::lonxml::get_param('alt',$parstack,
    $safeeval,undef,1);     $safeeval,undef,1);
Line 3833  sub end_col { Line 3830  sub end_col {
   
 #-- <colgroup> tag (end tag optional)  #-- <colgroup> tag (end tag optional)
 sub start_colgroup {  sub start_colgroup {
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
     my $currentstring = '';      my $currentstring = '';
     if ($target eq 'web' || $target eq 'webgrade') {      if ($target eq 'web' || $target eq 'webgrade') {
  $currentstring = $token->[4];        $currentstring = $token->[4];     
     }       }
       if ($target eq 'tex') {
           # TODO: Ensure this tag is in a table:
   
           # Fetch the attributes and build the hash for the
           # call to define_colgroup.
   
           my $span    = &Apache::lonxml::get_param('span',   $parstack, $safeeval);
           my $halign  = &Apache::lonxml::get_param('halign', $parstack, $safeeval);
   
           my %colgroup_params;
           if ($span ne '') {
               $colgroup_params{'span'} = $span;
           }
           if ($halign ne '') {
               $colgroup_params{'halign'} = $halign;
           }
   
           my $table = $Apache::londefdef::table[-1];
           $table->define_colgroup(\%colgroup_params);
   
       }
     return $currentstring;      return $currentstring;
 }  }
   
Line 4323  sub start_tbody { Line 4341  sub start_tbody {
     my $currentstring = '';      my $currentstring = '';
     if ($target eq 'web' || $target eq 'webgrade') {      if ($target eq 'web' || $target eq 'webgrade') {
  $currentstring = $token->[4];        $currentstring = $token->[4];     
       }
       if ($target eq 'tex') {
           # TODO: Ensure this tag is within a table:
   
           my $table = $Apache::londefdef::table[-1];
           $table->start_body();
     }       } 
     return $currentstring;      return $currentstring;
 }  }
Line 4332  sub end_tbody { Line 4356  sub end_tbody {
     my $currentstring = '';      my $currentstring = '';
     if ($target eq 'web' || $target eq 'webgrade') {      if ($target eq 'web' || $target eq 'webgrade') {
  $currentstring = $token->[2];       $currentstring = $token->[2];    
       }
       if($target eq 'tex') {
           # TODO: Ensure this tag is within a table:
   
           my $table = $Apache::londefdef::table[-1];
           $table->end_body();
     }       } 
     return $currentstring;      return $currentstring;
 }  }
Line 4342  sub start_tfoot { Line 4372  sub start_tfoot {
     my $currentstring = '';      my $currentstring = '';
     if ($target eq 'web' || $target eq 'webgrade') {      if ($target eq 'web' || $target eq 'webgrade') {
  $currentstring = $token->[4];        $currentstring = $token->[4];     
       }
       if ($target eq 'tex') {
           # TODO: ensure this is within a table tag.
           my $table = $Apache::londefdef::table[-1];
           $table->start_foot();
     }       } 
     return $currentstring;      return $currentstring;
 }  }
Line 4351  sub end_tfoot { Line 4386  sub end_tfoot {
     my $currentstring = '';      my $currentstring = '';
     if ($target eq 'web' || $target eq 'webgrade') {      if ($target eq 'web' || $target eq 'webgrade') {
  $currentstring = $token->[2];       $currentstring = $token->[2];    
       }
       if ($target eq 'tex') {
           #  TODO: Ensure this is in side a table
           my $table = $Apache::londefdef::table[-1];
           $table->end_foot();
     }       } 
     return $currentstring;      return $currentstring;
 }  }
Line 4361  sub start_thead { Line 4401  sub start_thead {
     my $currentstring = '';      my $currentstring = '';
     if ($target eq 'web' || $target eq 'webgrade') {      if ($target eq 'web' || $target eq 'webgrade') {
  $currentstring = $token->[4];        $currentstring = $token->[4];     
       }
       if ($target eq 'tex') {
           # Assume we're in a table... TODO: Verify that and ignore tag if not.
           my $table = $Apache::londefdef::table[-1];
           $table->start_head();
     }       } 
     return $currentstring;      return $currentstring;
 }  }
Line 4370  sub end_thead { Line 4415  sub end_thead {
     my $currentstring = '';      my $currentstring = '';
     if ($target eq 'web' || $target eq 'webgrade') {      if ($target eq 'web' || $target eq 'webgrade') {
  $currentstring = $token->[2];       $currentstring = $token->[2];    
       }
       if ($target eq 'tex') {
           # TODO: Verify we are in a table and ignore tag if not.
   
           my $table = $Apache::londefdef::table[-1];
           $table->end_head();
     }       } 
     return $currentstring;      return $currentstring;
 }  }
Removed from v.1.415.4.4  
changed lines
  Added in v.1.415.4.6

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