--- loncom/interface/lonprintout.pm 2003/04/30 16:29:07 1.132 +++ loncom/interface/lonprintout.pm 2003/04/30 19:18:37 1.135 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.132 2003/04/30 16:29:07 bowersj2 Exp $ +# $Id: lonprintout.pm,v 1.135 2003/04/30 19:18:37 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1415,7 +1415,7 @@ HELPERFRAGMENT my $isProblemOrMap = '$res->is_problem() || $res->is_map()'; my $symb = '$res->symb();'; &Apache::lonxml::xmlparse($r, 'helper', < + Select problems to print: FINAL @@ -1524,7 +1524,11 @@ my @paperSize = ("Letter [8 1/2x11 in]", sub new { my $self = Apache::lonhelper::element->new(); + shift; + $self->{'variable'} = shift; + my $helper = Apache::lonhelper::getHelper(); + $helper->declareVar($self->{'variable'}); bless($self); return $self; } @@ -1582,6 +1586,16 @@ STATEHTML return $result; } +sub postprocess { + my $self = shift; + + my $var = $self->{'variable'}; + $helper->{VARS}->{$var} = + $ENV{'form.$var.layout'} . '|' . $ENV{'form.$var.cols'} . '|' . + $ENV{'form.$var.paper'}; + return 1; +} + 1; __END__