loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.160, 2003/05/08 19:16:42	version 1.162, 2003/05/12 18:47:07
Line 1582 sub handler {	Line 1582 sub handler {
$helper = $result;	$helper = $result;


# my $key;
# foreach $key (keys %{$helper->{'VARS'}}) {	my $key;
# $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />');	foreach $key (keys %{$helper->{'VARS'}}) {
# }	$r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />');
# return OK;	}
	return OK;


&output_data_new($r,$helper);	&output_data_new($r,$helper);
Line 1883 CHOOSE_FROM_SUBDIR	Line 1884 CHOOSE_FROM_SUBDIR
$helper->declareVar('PRINT_TYPE');	$helper->declareVar('PRINT_TYPE');
$paramHash->{CHOICES} = $printChoices;	$paramHash->{CHOICES} = $printChoices;
Apache::lonhelper::choices->new();	Apache::lonhelper::choices->new();

	if ($ENV{'request.role.adv'}) {
	$paramHash = Apache::lonhelper::getParamHash();
	$paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next option is available only for advanced users:</i></b></big><br />";
	Apache::lonhelper::message->new();
	$paramHash = Apache::lonhelper::getParamHash();
	$paramHash->{'variable'} = 'ANSWER_TYPE';
	$helper->declareVar('ANSWER_TYPE');
	$paramHash->{CHOICES} = [
	['Print without answer', '1'],
	['Print with answers', '0'] ];
	Apache::lonhelper::choices->new();
	}

Apache::lonprintout::page_format_state->new("FORMAT");	Apache::lonprintout::page_format_state->new("FORMAT");

# Generate the PAGESIZE state which will offer the user the margin	# Generate the PAGESIZE state which will offer the user the margin