loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.81, 2002/10/22 22:07:50	version 1.82, 2002/10/23 17:38:03
Line 203 sub problem_choice_menu {	Line 203 sub problem_choice_menu {
<input type=button onClick="uncheckall()" value="Uncheck">	<input type=button onClick="uncheckall()" value="Uncheck">
<p>	<p>
ENDMENUOUT1	ENDMENUOUT1
my $i;	my $i=0;
foreach my $file (@list_of_files) {	foreach my $file (@list_of_files) {
$r->print('<br /><input type=checkbox name="whattoprint'.$i.'" value="'.$file.'"> '.	$r->print('<br /><input type=checkbox name="whattoprint'.$i.'" value="'.$file.'"> '.
$file);	$file);
Line 347 ENDPART	Line 347 ENDPART
my $numberofcolumns = $ENV{'form.numberofcolumns'};	my $numberofcolumns = $ENV{'form.numberofcolumns'};
my $papersize = $ENV{'form.papersize'};	my $papersize = $ENV{'form.papersize'};
my $laystyle = 'book';	my $laystyle = 'book';
	if ($choice eq 'Subdirectory print') {
	$layout = 'CAPA';
	$papersize = 'Letter [8 1/2x11 in]';
	$numberofcolumns = 2;
	}
	if (($choice eq 'Standard LaTeX output for current document') && ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./)) {
	$layout = 'CAPA';
	$papersize = 'Letter [8 1/2x11 in]';
	$numberofcolumns = 1;
	}
my $result = '';	my $result = '';
my $number_of_columns = 1; #used only for pages to determine the width of the cell	my $number_of_columns = 1; #used only for pages to determine the width of the cell
my $selectionmade = '';	my $selectionmade = '';