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.106 and 1.107

version 1.106, 2003/01/27 16:01:13	version 1.107, 2003/01/28 20:36:17
Line 162 sub sequence_content_menu {	Line 162 sub sequence_content_menu {
my @titles_master_seq = &titles_coming_from_hash($primary_sequence,$sequence[0]);	my @titles_master_seq = &titles_coming_from_hash($primary_sequence,$sequence[0]);
foreach my $entity (@titles_master_seq) {$entity=~/^(.*)&&/; $entity=$1}	foreach my $entity (@titles_master_seq) {$entity=~/^(.*)&&/; $entity=$1}
my @master_seq_view = @master_seq;	my @master_seq_view = @master_seq;
if (not $ENV{'request.role'}=~/^st\./) {	if ($ENV{'user.adv'}) {
for (my $i=0;$i<=$#master_seq_view;$i++) {	for (my $i=0;$i<=$#master_seq_view;$i++) {
$master_seq_view[$i]=~/___\d+___(.+)$/;	$master_seq_view[$i]=~/___\d+___(.+)$/;
$master_seq_view[$i]='/'.$1;	$master_seq_view[$i]='/'.$1;
}	}
} else {	} else {
for (my $i=0;$i<=$#master_seq_view;$i++) {	for (my $i=0;$i<=$#master_seq_view;$i++) {
$master_seq_view[$i]=' ';	$master_seq_view[$i]=' ';
}	}
}	}
$r->print(<<ENDMENUOUT1);	$r->print(<<ENDMENUOUT1);
Line 216 ENDMENUOUT1	Line 216 ENDMENUOUT1
}	}
}	}
$r->print(<<ENDMENUOUT2);	$r->print(<<ENDMENUOUT2);
<br />	<br /><br />
<input type="hidden" name="numberoffiles" value="$inc">	<input type="hidden" name="numberoffiles" value="$inc">
<input type="hidden" name="phase" value="three">	<input type="hidden" name="phase" value="three">
	<input type=button onClick="checkall()" value="Check All">
	<input type=button onClick="uncheckall()" value="Uncheck">
<input type="submit" value="Submit">	<input type="submit" value="Submit">
ENDMENUOUT2	ENDMENUOUT2

Line 277 sub problem_choice_menu {	Line 279 sub problem_choice_menu {
}	}
</script>	</script>
<input type=button onClick="checkall()" value="Check All">	<input type=button onClick="checkall()" value="Check All">
<input type=button onClick="uncheckall()" value="Uncheck">	<input type=button onClick="uncheckall()" value="Uncheck">
	<input type="submit" value="Submit">
<p>	<p>
ENDMENUOUT1	ENDMENUOUT1
my $i=0;	my $i=0;
Line 287 ENDMENUOUT1	Line 290 ENDMENUOUT1
$i++;	$i++;
}	}
$r->print(<<ENDMENUOUT2);	$r->print(<<ENDMENUOUT2);
<br />	<br /><br />
<input type="hidden" name="papersize" value="$ENV{'form.papersize'}">	<input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
<input type="hidden" name="numberofproblems" value="$i">	<input type="hidden" name="numberofproblems" value="$i">
<input type="hidden" name="phase" value="three">	<input type="hidden" name="phase" value="three">
	<input type=button onClick="checkall()" value="Check All">
	<input type=button onClick="uncheckall()" value="Uncheck">
<input type="submit" value="Submit">	<input type="submit" value="Submit">
ENDMENUOUT2	ENDMENUOUT2
}	}

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

Removed from v.1.106
changed lines
	Added in v.1.107