Diff for /loncom/homework/structuretags.pm between versions 1.398 and 1.399

version 1.398, 2007/09/12 07:59:51 version 1.399, 2007/09/12 08:35:44
Line 1149  sub start_languageblock { Line 1149  sub start_languageblock {
 # Now loop over all languages in order of preference  # Now loop over all languages in order of preference
         foreach my $preferred_language (@preferred_languages) {          foreach my $preferred_language (@preferred_languages) {
 # If the languageblock has no arguments, show the contents  # If the languageblock has no arguments, show the contents
            $result='1';             $result=1;
              my $found=0;
 # Do we have an include argument?  # Do we have an include argument?
    if ($include) {     if ($include) {
 # If include is specified, by default, don't render the block  # If include is specified, by default, don't render the block
               $result='';                $result=0;
               foreach my $included_language (split(/\,/,$include)) {                foreach my $included_language (split(/\,/,$include)) {
 # ... but if my preferred language is included, render it  # ... but if my preferred language is included, render it
                  if ($included_language eq $preferred_language) {                   if ($included_language eq $preferred_language) {
                     $result='1';                       $result=1; 
                     last;                       $found=1; 
                  }                   }
               }                }
    }     }
 # Do we have an exclude argument?  # Do we have an exclude argument?
            if ($exclude) {             if ($exclude) {
               $result='1';                $result=1;
               foreach my $excluded_language (split(/\,/,$exclude)) {                foreach my $excluded_language (split(/\,/,$exclude)) {
                  if ($excluded_language eq $preferred_language) {                   if ($excluded_language eq $preferred_language) {
                     $result='0';                      $result=0;
                     last;                       $found=1;
                  }                   }
               }                }
    }     }
              if ($found) { last; }
         }          }
  if ( ! $result ) {   if ( ! $result ) {
     my $skip=&Apache::lonxml::get_all_text("/languageblock",$parser,      my $skip=&Apache::lonxml::get_all_text("/languageblock",$parser,

Removed from v.1.398  
changed lines
  Added in v.1.399


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