loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.97 and 1.98

version 1.97, 2002/12/11 21:33:16	version 1.98, 2002/12/11 22:04:44
Line 193 ENDMENUOUT1	Line 193 ENDMENUOUT1
my $inc=0;	my $inc=0;
for (my $i=0;$i<=$#master_seq_view;$i++) {	for (my $i=0;$i<=$#master_seq_view;$i++) {
if ($key_to==1 && $master_seq_view[$i]=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/) {	if ($key_to==1 && $master_seq_view[$i]=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/) {
$r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '.	$r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '."\n".
$master_seq_view[$i]);	$master_seq_view[$i]);
$inc++;	$inc++;
} elsif ($key_to==0 && $master_seq_view[$i]=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|xml\|htm\|html\|page)$/) {	} elsif ($key_to==0 && $master_seq_view[$i]=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|xml\|htm\|html\|page)$/) {
Line 498 ENDPART	Line 498 ENDPART
$moreenv{'form.grade_target'}='tex';	$moreenv{'form.grade_target'}='tex';
$moreenv{'form.textwidth'}=$LaTeXwidth;	$moreenv{'form.textwidth'}=$LaTeXwidth;
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
&Apache::lonnet::logthis("Trying to get $urlp with symb $symb");	#&Apache::lonnet::logthis("Trying to get $urlp with symb $symb");
my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));	my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));
&Apache::lonnet::delenv('form.grade_target','form.textwidth');	&Apache::lonnet::delenv('form.grade_target','form.textwidth');
if ($urlp =~ m/\.page/) {	if ($urlp =~ m/\.page/) {
Line 725 sub coming_from_hash {	Line 725 sub coming_from_hash {
my $mapid = $hash{'map_pc_'.$mainsequence};	my $mapid = $hash{'map_pc_'.$mainsequence};
my $mapstart = $hash{'map_start_'.$mainsequence};	my $mapstart = $hash{'map_start_'.$mainsequence};
my $mapfinish = $hash{'map_finish_'.$mainsequence};	my $mapfinish = $hash{'map_finish_'.$mainsequence};
my ($presymb) = split(/___/,$symb);	my ($presymb);
	if ($symb) {
	($presymb)=split(/___/,$symb);
	} else {
	$presymb=$mainsequence;
	$presymb=~s\|^/res/\|\|;
	}
$presymb = $presymb.'___';	$presymb = $presymb.'___';
my $current_resource = $mapstart;	my $current_resource = $mapstart;
while ($current_resource ne $mapfinish) {	while ($current_resource ne $mapfinish) {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.97
changed lines
	Added in v.1.98