loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.138, 2003/05/01 15:01:04	version 1.139, 2003/05/01 17:19:25
Line 1437 CHOOSE_STUDENTS	Line 1437 CHOOSE_STUDENTS
push @{$printChoices}, ["Problems from <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];	push @{$printChoices}, ["Problems from <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];

my $f = '$filename';	my $f = '$filename';
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_SUBDIR);	my $xmlfrag = <<CHOOSE_FROM_SUBDIR;
<state name="CHOOSE_FROM_SUBDIR" title="Select Files">	<state name="CHOOSE_FROM_SUBDIR" title="Select Files">
<message>Select problems you wish to print from <b>$subdir</b></message>	<message>Select problems you wish to print from <b>$subdir</b></message>
<files variable="FILES" multichoice='1'>	<files variable="FILES" multichoice='1'>
<nextstate>FINAL</nextstate>	<nextstate>FINAL</nextstate>
<filechoice>return '$subdir';</filechoice>	<filechoice>return '$subdir';</filechoice>
<filefilter>return $f =~	CHOOSE_FROM_SUBDIR
m/^[^\\.]+\\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/;
	$xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
	<filefilter>return $filename =~
	m/^[^\.]+\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/;
</filefilter>	</filefilter>
</files>	</files>
</state>	</state>
CHOOSE_FROM_SUBDIR	CHOOSE_FROM_SUBDIR
	&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
}	}

# Generate the first state, to select which resources get printed.	# Generate the first state, to select which resources get printed.