loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.132, 2003/04/30 16:29:07	version 1.135, 2003/04/30 19:18:37
Line 1415 HELPERFRAGMENT	Line 1415 HELPERFRAGMENT
my $isProblemOrMap = '$res->is_problem() \|\| $res->is_map()';	my $isProblemOrMap = '$res->is_problem() \|\| $res->is_map()';
my $symb = '$res->symb();';	my $symb = '$res->symb();';
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);	&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);
<state name="All_PROBLEMS" title="Select Problems">	<state name="ALL_PROBLEMS" title="Select Problems">
<message>Select problems to print:</message>	<message>Select problems to print:</message>
<resource variable="RESOURCES" multichoice="1">	<resource variable="RESOURCES" multichoice="1">
<nextstate>FINAL</nextstate>	<nextstate>FINAL</nextstate>
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();
	$helper->declareVar($self->{'variable'});
bless($self);	bless($self);
return $self;	return $self;
}	}
Line 1582 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__