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

Diff for /loncom/interface/lonprintout.pm between versions 1.135 and 1.138

version 1.135, 2003/04/30 19:18:37 version 1.138, 2003/05/01 15:01:04
Line 1440  CHOOSE_STUDENTS Line 1440  CHOOSE_STUDENTS
         &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_SUBDIR);          &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_SUBDIR);
   <state name="CHOOSE_FROM_SUBDIR" title="Select Files">    <state name="CHOOSE_FROM_SUBDIR" title="Select Files">
     <message>Select problems you wish to print from <b>$subdir</b></message>      <message>Select problems you wish to print from <b>$subdir</b></message>
     <files variable="FILES">      <files variable="FILES" multichoice='1'>
       <nextstate>FINAL</nextstate>        <nextstate>FINAL</nextstate>
       <filechoice>$subdir</filechoice>        <filechoice>return '$subdir';</filechoice>
       <filefilter>return $f =~         <filefilter>return $f =~ 
            m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/;             m/^[^\\.]+\\.(problem|exam|quiz|assess|survey|form|library)$/;
       </filefilter>        </filefilter>
         </files>
     </state>      </state>
 CHOOSE_FROM_SUBDIR  CHOOSE_FROM_SUBDIR
     }      }
Line 1457  CHOOSE_FROM_SUBDIR Line 1458  CHOOSE_FROM_SUBDIR
     Apache::lonhelper::message->new();      Apache::lonhelper::message->new();
     $paramHash = Apache::lonhelper::getParamHash();      $paramHash = Apache::lonhelper::getParamHash();
     $paramHash->{'variable'} = 'PRINT_TYPE';      $paramHash->{'variable'} = 'PRINT_TYPE';
       $helper->declareVar('PRINT_TYPE');
     $paramHash->{CHOICES} = $printChoices;      $paramHash->{CHOICES} = $printChoices;
     Apache::lonhelper::choices->new();      Apache::lonhelper::choices->new();
     Apache::lonprintout::page_format_state->new("FORMAT");      Apache::lonprintout::page_format_state->new("FORMAT");
Line 1590  sub postprocess { Line 1592  sub postprocess {
     my $self = shift;      my $self = shift;
   
     my $var = $self->{'variable'};      my $var = $self->{'variable'};
       my $helper = Apache::lonhelper->getHelper();
     $helper->{VARS}->{$var} =       $helper->{VARS}->{$var} = 
         $ENV{'form.$var.layout'} . '|' . $ENV{'form.$var.cols'} . '|' .          $ENV{"form.$var.layout"} . '|' . $ENV{"form.$var.cols"} . '|' .
         $ENV{'form.$var.paper'};          $ENV{"form.$var.paper"};
     return 1;      return 1;
 }  }
   
Removed from v.1.135  
changed lines
  Added in v.1.138

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