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

Diff for /loncom/interface/lonprintout.pm between versions 1.132 and 1.139

version 1.132, 2003/04/30 16:29:07 version 1.139, 2003/05/01 17:19:25
Line 1415  HELPERFRAGMENT Line 1415  HELPERFRAGMENT
         my $isProblemOrMap = '$res->is_problem() || $res->is_map()';          my $isProblemOrMap = '$res->is_problem() || $res->is_map()';
         my $symb = '$res->symb();';          my $symb = '$res->symb();';
         &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);          &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);
   <state name="All_PROBLEMS" title="Select Problems">    <state name="ALL_PROBLEMS" title="Select Problems">
     <message>Select problems to print:</message>      <message>Select problems to print:</message>
     <resource variable="RESOURCES" multichoice="1">      <resource variable="RESOURCES" multichoice="1">
       <nextstate>FINAL</nextstate>        <nextstate>FINAL</nextstate>
Line 1437  CHOOSE_STUDENTS Line 1437  CHOOSE_STUDENTS
         push @{$printChoices}, ["Problems from <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];          push @{$printChoices}, ["Problems from <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];
                   
         my $f = '$filename';          my $f = '$filename';
         &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_SUBDIR);          my $xmlfrag = <<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 =~   CHOOSE_FROM_SUBDIR
           
           $xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
         <filefilter>return $filename =~ 
            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
           &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
     }      }
   
     # Generate the first state, to select which resources get printed.      # Generate the first state, to select which resources get printed.
Line 1457  CHOOSE_FROM_SUBDIR Line 1462  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 1524  my @paperSize = ("Letter [8 1/2x11 in]", Line 1530  my @paperSize = ("Letter [8 1/2x11 in]",
 sub new {   sub new { 
     my $self = Apache::lonhelper::element->new();      my $self = Apache::lonhelper::element->new();
   
       shift;
   
     $self->{'variable'} = shift;      $self->{'variable'} = shift;
       my $helper = Apache::lonhelper::getHelper();
       $helper->declareVar($self->{'variable'});
     bless($self);      bless($self);
     return $self;      return $self;
 }  }
Line 1582  STATEHTML Line 1592  STATEHTML
     return $result;      return $result;
 }  }
   
   sub postprocess {
       my $self = shift;
   
       my $var = $self->{'variable'};
       my $helper = Apache::lonhelper->getHelper();
       $helper->{VARS}->{$var} = 
           $ENV{"form.$var.layout"} . '|' . $ENV{"form.$var.cols"} . '|' .
           $ENV{"form.$var.paper"};
       return 1;
   }
   
 1;  1;
   
 __END__  __END__
Removed from v.1.132  
changed lines
  Added in v.1.139

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