loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.134, 2003/04/30 19:07:29	version 1.136, 2003/04/30 19:25:47
Line 1524 my @paperSize = ("Letter [8 1/2x11 in]",	Line 1524 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();	my $helper = Apache::lonhelper::getHelper();
my $paramHash = Apache::lonhelper::getParamHash();	$helper->declareVar($self->{'variable'});
$helper->declareVar($paramHash->{'variable'});
bless($self);	bless($self);
return $self;	return $self;
}	}
Line 1585 STATEHTML	Line 1586 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__