loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.135, 2003/04/30 19:18:37	version 1.137, 2003/04/30 20:03:14
Line 1457 CHOOSE_FROM_SUBDIR	Line 1457 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 1591 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;
}	}