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

Diff for /loncom/interface/lonprintout.pm between versions 1.214 and 1.215

version 1.214, 2003/08/14 13:55:19 version 1.215, 2003/08/18 18:12:47
Line 591  sub index_table { Line 591  sub index_table {
 }  }
   
   
   sub IndexCreation {
       my ($texversion,$currentURL)=@_;
       my @key_words=split(/,/,&index_table($currentURL));
       my $chunk='';
       my $st=index $texversion,'\addcontentsline{toc}{subsection}{';
       if ($st>0) {
    for (my $i=0;$i<3;$i++) {$st=(index $texversion,'}',$st+1);}
    $chunk=substr($texversion,0,$st+1);
    substr($texversion,0,$st+1)=' ';
       }
       foreach my $key_word (@key_words) {
    if ($key_word=~/\S+/) {
       $texversion=~s/\b($key_word)\b/$1 \\index{$key_word} /i;
    }
       }
       if ($st>0) {substr($texversion,0,1)=$chunk;}
       return $texversion;
   }
   
   
 sub output_data {  sub output_data {
     my ($r,$helper,$rparmhash) = @_;      my ($r,$helper,$rparmhash) = @_;
     my %parmhash = %$rparmhash;      my %parmhash = %$rparmhash;
Line 665  ENDPART Line 685  ENDPART
  $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;   $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
     }      }
     if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {      if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
 # my $key_words=&index_table($currentURL);   $texversion=&IndexCreation($texversion,$currentURL);
  my @key_words=split(/,/,&index_table($currentURL));  
  foreach my $key_word (@key_words) {  
     if ($key_word=~/\S+/) {  
  $texversion=~s/\b($key_word)\b/$1 \\index{$1} /;  
     }  
  }  
 # $texversion=~s/(\\end{document})/\\strut\\\\\\strut {\\large \\textbf{INDEX}}\\strut\\\\\\strut$key_words\\strut\\\\\\strut$1/;  
     }      }
     $result .= $texversion;      $result .= $texversion;
     if ($currentURL=~m/\.page\s*$/) {      if ($currentURL=~m/\.page\s*$/) {
Line 737  ENDPART Line 750  ENDPART
  my $answer=&Apache::lonnet::ssi($urlp,%form);   my $answer=&Apache::lonnet::ssi($urlp,%form);
  $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;   $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
     }      }
 #    $result .= $texversion;  
       if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
    $texversion=&IndexCreation($texversion,$urlp);
       }
     if (($selectionmade == 4) and ($assignment ne $prevassignment) and ($i>=1)) {      if (($selectionmade == 4) and ($assignment ne $prevassignment) and ($i>=1)) {
  my ($name,$courseidinfo) = &get_name;   my ($name,$courseidinfo) = &get_name;
  my $courseidinfo = &get_course();   my $courseidinfo = &get_course();
Line 1185  CHOOSE_FROM_SUBDIR Line 1201  CHOOSE_FROM_SUBDIR
     if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or       if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or 
  ($helper->{VARS}->{'construction'} eq '1')) {   ($helper->{VARS}->{'construction'} eq '1')) {
         $paramHash = Apache::lonhelper::getParamHash();          $paramHash = Apache::lonhelper::getParamHash();
         $paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next option is available only for advanced users:  </i></b></big>";          $paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next four options are available only for advanced users:  </i></b></big><br />";
         Apache::lonhelper::message->new();          Apache::lonhelper::message->new();
         $paramHash = Apache::lonhelper::getParamHash();          $paramHash = Apache::lonhelper::getParamHash();
  $paramHash->{'variable'} = 'ANSWER_TYPE';      $paramHash->{'variable'} = 'ANSWER_TYPE';   
Line 1198  CHOOSE_FROM_SUBDIR Line 1214  CHOOSE_FROM_SUBDIR
   
     if ($ENV{'request.role.adv'}) {      if ($ENV{'request.role.adv'}) {
         $paramHash = Apache::lonhelper::getParamHash();          $paramHash = Apache::lonhelper::getParamHash();
         $paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Another option available only for advanced users:  </i></b></big>";          $paramHash->{MESSAGE_TEXT} = "<br />";
         Apache::lonhelper::message->new();          Apache::lonhelper::message->new();
         $paramHash = Apache::lonhelper::getParamHash();          $paramHash = Apache::lonhelper::getParamHash();
  $paramHash->{'variable'} = 'LATEX_TYPE';      $paramHash->{'variable'} = 'LATEX_TYPE';   
Line 1215  CHOOSE_FROM_SUBDIR Line 1231  CHOOSE_FROM_SUBDIR
         Apache::lonhelper::dropdown->new();          Apache::lonhelper::dropdown->new();
     }       } 
   
           if ($ENV{'request.role.adv'}) {
         $paramHash = Apache::lonhelper::getParamHash();          $paramHash = Apache::lonhelper::getParamHash();
         $paramHash->{MESSAGE_TEXT} = "<br /><big><i>Print with <b>Table of Contents:  </i></b></big>";          $paramHash->{MESSAGE_TEXT} = "<br />";
         Apache::lonhelper::message->new();          Apache::lonhelper::message->new();
         $paramHash = Apache::lonhelper::getParamHash();          $paramHash = Apache::lonhelper::getParamHash();
  $paramHash->{'variable'} = 'TABLE_CONTENTS';      $paramHash->{'variable'} = 'TABLE_CONTENTS';   
  $helper->declareVar('TABLE_CONTENTS');            $helper->declareVar('TABLE_CONTENTS');         
         $paramHash->{CHOICES} = [          $paramHash->{CHOICES} = [
                                    ['No', 'no'],                                     ['Print without Table of Contents', 'no'],
                                    ['Yes', 'yes'] ];                                     ['Print with Table of Contents', 'yes'] ];
         Apache::lonhelper::dropdown->new();          Apache::lonhelper::dropdown->new();
                   
         $paramHash = Apache::lonhelper::getParamHash();          $paramHash = Apache::lonhelper::getParamHash();
         $paramHash->{MESSAGE_TEXT} = "<br /><big><i>Print with <b>Index:  </i></b></big>";          $paramHash->{MESSAGE_TEXT} = "<br />";
         Apache::lonhelper::message->new();          Apache::lonhelper::message->new();
         $paramHash = Apache::lonhelper::getParamHash();          $paramHash = Apache::lonhelper::getParamHash();
  $paramHash->{'variable'} = 'TABLE_INDEX';      $paramHash->{'variable'} = 'TABLE_INDEX';   
  $helper->declareVar('TABLE_INDEX');            $helper->declareVar('TABLE_INDEX');         
         $paramHash->{CHOICES} = [          $paramHash->{CHOICES} = [
                                    ['No', 'no'],                                     ['Print without Index', 'no'],
                                    ['Yes', 'yes'] ];                                     ['Print with Index', 'yes'] ];
         Apache::lonhelper::dropdown->new();          Apache::lonhelper::dropdown->new();
       }
   
     Apache::lonprintout::page_format_state->new("FORMAT");      Apache::lonprintout::page_format_state->new("FORMAT");
   
Removed from v.1.214  
changed lines
  Added in v.1.215

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