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

Diff for /loncom/interface/lonprintout.pm between versions 1.218 and 1.220

version 1.218, 2003/08/18 19:57:36 version 1.220, 2003/08/19 16:02:13
Line 687  ENDPART Line 687  ENDPART
     if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {      if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
  $texversion=&IndexCreation($texversion,$currentURL);   $texversion=&IndexCreation($texversion,$currentURL);
     }      }
       if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
    $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$currentURL| \\strut\\\\\\strut /;
   
       }
     $result .= $texversion;      $result .= $texversion;
     if ($currentURL=~m/\.page\s*$/) {      if ($currentURL=~m/\.page\s*$/) {
  ($result,$number_of_columns) = &page_cleanup($result);   ($result,$number_of_columns) = &page_cleanup($result);
Line 886  ENDPART Line 890  ENDPART
  if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {   if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
     $texversion=&IndexCreation($texversion,$urlp);      $texversion=&IndexCreation($texversion,$urlp);
  }   }
    if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
       $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /;
       
    }
  $result .= $texversion;   $result .= $texversion;
     }      }
     $flag_latex_header_remove = 'YES';        $flag_latex_header_remove = 'YES';  
Line 1243  CHOOSE_FROM_SUBDIR Line 1251  CHOOSE_FROM_SUBDIR
                                    ['Print with Table of Contents', 'yes'] ];                                     ['Print with Table of Contents', 'yes'] ];
         Apache::lonhelper::dropdown->new();          Apache::lonhelper::dropdown->new();
                   
         $paramHash = Apache::lonhelper::getParamHash();   if (not $helper->{VARS}->{'construction'}) {
         $paramHash->{MESSAGE_TEXT} = "</td></tr><tr><td>&nbsp;</td><td>";      $paramHash = Apache::lonhelper::getParamHash();
         Apache::lonhelper::message->new();      $paramHash->{MESSAGE_TEXT} = "</td></tr><tr><td>&nbsp;</td><td>";
         $paramHash = Apache::lonhelper::getParamHash();      Apache::lonhelper::message->new();
  $paramHash->{'variable'} = 'TABLE_INDEX';         $paramHash = Apache::lonhelper::getParamHash();
  $helper->declareVar('TABLE_INDEX');               $paramHash->{'variable'} = 'TABLE_INDEX';   
         $paramHash->{CHOICES} = [      $helper->declareVar('TABLE_INDEX');         
                                    ['Print without Index', 'no'],      $paramHash->{CHOICES} = [
                                    ['Print with Index', 'yes'] ];       ['Print without Index', 'no'],
         Apache::lonhelper::dropdown->new();       ['Print with Index', 'yes'] ];
       Apache::lonhelper::dropdown->new();
    }
   
    if ($helper->{VARS}->{'construction'}) {
       $paramHash = Apache::lonhelper::getParamHash();
       $paramHash->{MESSAGE_TEXT} = "</td></tr><tr><td>&nbsp;</td><td>";
       Apache::lonhelper::message->new();
       $paramHash = Apache::lonhelper::getParamHash();
       $paramHash->{'variable'} = 'CONSTR_RESOURSE_URL';   
       $helper->declareVar('CONSTR_RESOURSE_URL');         
       $paramHash->{CHOICES} = [
        ['Print without URL', 'no'],
        ['Print with UTL', 'yes'] ];
       Apache::lonhelper::dropdown->new();
    }
   
         $paramHash = Apache::lonhelper::getParamHash();          $paramHash = Apache::lonhelper::getParamHash();
         $paramHash->{MESSAGE_TEXT} = "</td></tr><table>";          $paramHash->{MESSAGE_TEXT} = "</td></tr><table>";
Removed from v.1.218  
changed lines
  Added in v.1.220

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