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

Diff for /loncom/homework/structuretags.pm between versions 1.185 and 1.186

version 1.185, 2003/06/17 15:36:11 version 1.186, 2003/06/18 22:12:34
Line 645  sub start_languageblock { Line 645  sub start_languageblock {
   
     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||      if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
  $target eq 'tex' || $target eq 'analyze') {   $target eq 'tex' || $target eq 'analyze') {
  my $include = $token->[2]->{'include'};   &Apache::lonxml::startredirection();
  my $exclude = $token->[2]->{'exclude'};  
         my %languages=&Apache::loncommon::display_languages();  
         $result='1';  
  if ($include) {  
             $result='';  
             foreach (split(/\,/,$include)) {  
                 if ($languages{$_}) { $result='1'; }  
             }  
  }  
         if ($exclude) {  
             foreach (split(/\,/,$exclude)) {  
                 if ($languages{$_}) { $result='0'; }  
             }  
  }  
  if ( ! $result ) {  
     my $skip=&Apache::lonxml::get_all_text("/languageblock",$parser);  
     &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");  
  }  
  $result='';  
     } elsif ($target eq 'edit') {      } elsif ($target eq 'edit') {
  $result .=&Apache::edit::tag_start($target,$token);   $result .=&Apache::edit::tag_start($target,$token);
  $result .=&Apache::edit::text_arg('Include Language:','include',   $result .=&Apache::edit::text_arg('Include Language:','include',
Line 684  sub start_languageblock { Line 665  sub start_languageblock {
 sub end_languageblock {  sub end_languageblock {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my $result;      my $result;
     if ($target eq "edit") {  
       if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
    $target eq 'tex' || $target eq 'analyze') {
    my $text=&Apache::lonxml::endredirection();
    my $include= &Apache::lonxml::get_param('include',$parstack,$safeeval);
    my $exclude= &Apache::lonxml::get_param('exclude',$parstack,$safeeval);
    my %languages=&Apache::loncommon::display_languages();
    $result='1';
    if ($include) {
       $result='';
       foreach (split(/\,/,$include)) {
    if ($languages{$_}) { $result='1'; }
       }
    }
    if ($exclude) {
       foreach (split(/\,/,$exclude)) {
    if ($languages{$_}) { $result='0'; }
       }
    }
    if ( ! $result ) {
       $result='';
    } else {
       $result=$text;
    }
       } elsif ($target eq "edit") {
  $result.= &Apache::edit::tag_end($target,$token,'');   $result.= &Apache::edit::tag_end($target,$token,'');
     }      }
     return $result;      return $result;
Removed from v.1.185  
changed lines
  Added in v.1.186

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