version 1.134, 2003/04/30 19:07:29
|
version 1.135, 2003/04/30 19:18:37
|
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'}; |
|
$helper->{VARS}->{$var} = |
|
$ENV{'form.$var.layout'} . '|' . $ENV{'form.$var.cols'} . '|' . |
|
$ENV{'form.$var.paper'}; |
|
return 1; |
|
} |
|
|
1; |
1; |
|
|
__END__ |
__END__ |