version 1.134, 2003/04/30 19:07:29
|
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 1524 my @paperSize = ("Letter [8 1/2x11 in]",
|
Line 1525 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 1587 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__ |