--- loncom/interface/lonprintout.pm 2003/04/30 19:07:29 1.134 +++ 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.134 2003/04/30 19:07:29 bowersj2 Exp $ +# $Id: lonprintout.pm,v 1.135 2003/04/30 19:18:37 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1524,10 +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(); - my $paramHash = Apache::lonhelper::getParamHash(); - $helper->declareVar($paramHash->{'variable'}); + $helper->declareVar($self->{'variable'}); bless($self); return $self; } @@ -1585,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__