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

Diff for /loncom/homework/structuretags.pm between versions 1.497.2.4 and 1.497.2.5

version 1.497.2.4, 2011/12/14 11:56:08 version 1.497.2.5, 2011/12/26 13:45:10
Line 96  my %languages_required; Line 96  my %languages_required;
 sub select_hyphenation {  sub select_hyphenation {
     my $language  = shift;      my $language  = shift;
   
     $language = &Apache::loncommon::latex_language($language); # Translate -> latex language.      $language = &Apache::loncommon::latexlanguage($language); # Translate -> latex language.
   
     # If there is no latex language there's not much we can do:      # If there is no latex language there's not much we can do:
   
     if ($language) {      if ($language) {
  &require_language($language);   &require_language($language);
  my $babel_hyphenation = "\\select_language{$language}";   my $babel_hyphenation = "\\selectlanguage{$language}";
   
  return $babel_hyphenation;   return $babel_hyphenation;
     } else {      } else {
Line 122  sub clear_required_languages { Line 122  sub clear_required_languages {
 #  #
 sub require_language {  sub require_language {
     my $language = shift;      my $language = shift;
   
     $languages_required{$language} = 1;      $languages_required{$language} = 1;
 }  }
   
Line 133  sub require_language { Line 132  sub require_language {
 # @retval \usepackage[lang1,lang2...]{babel}  # @retval \usepackage[lang1,lang2...]{babel}
 # @retval ''   if there are no languages_required.  # @retval ''   if there are no languages_required.
 sub languages_header {  sub languages_header {
   
     my $header    ='';      my $header    ='';
     my @languages = keys(%languages_required);      my @languages = (keys(%languages_required));
   
     # Only generate the header if there are languages:      # Only generate the header if there are languages:
   
Line 143  sub languages_header { Line 141  sub languages_header {
  my $language_list = join(',', (@languages));   my $language_list = join(',', (@languages));
  $header  = '\usepackage['.$language_list."]{babel}\n";   $header  = '\usepackage['.$language_list."]{babel}\n";
     }      }
   
     return $header;      return $header;
 }  }
   
Line 1345  sub end_problem { Line 1342  sub end_problem {
  }   }
  my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');   my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');
  my $begin_doc=' \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$env{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent ';   my $begin_doc=' \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$env{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent ';
    &clear_required_languages();
  my $toc_line='\vskip 1 mm\noindent '.$startminipage.   my $toc_line='\vskip 1 mm\noindent '.$startminipage.
     '\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';      '\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';
   
Removed from v.1.497.2.4  
changed lines
  Added in v.1.497.2.5

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