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.200 and 1.201

version 1.200, 2003/06/30 20:24:58	version 1.201, 2003/07/01 20:15:06
Line 628 ENDPART	Line 628 ENDPART
my $rndseed=time;	my $rndseed=time;
$form{'rndseed'}=$rndseed;	$form{'rndseed'}=$rndseed;
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
	&Apache::lonnet::delenv('form.counter');
	&Apache::lonxml::init_counter();
my $texversion=&Apache::lonnet::ssi($currentURL,%form);	my $texversion=&Apache::lonnet::ssi($currentURL,%form);
&Apache::lonnet::delenv('form.counter');	&Apache::lonnet::delenv('form.counter');
&Apache::lonnet::delenv('request.filename');	&Apache::lonnet::delenv('request.filename');
Line 664 ENDPART	Line 666 ENDPART
my $flag_page_in_sequence = 'NO';	my $flag_page_in_sequence = 'NO';
my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};	my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};
my $prevassignment='';	my $prevassignment='';
	&Apache::lonnet::delenv('form.counter');
	&Apache::lonxml::init_counter();
for (my $i=0;$i<=$#master_seq;$i++) {	for (my $i=0;$i<=$#master_seq;$i++) {
$master_seq[$i]=~/___\d+___(.*)$/;	$master_seq[$i]=~/___\d+___(.*)$/;
my $urlp='/res/'.$1;	my $urlp='/res/'.$1;
Line 733 ENDPART	Line 737 ENDPART

if ($parmhash{'anonymous_quiz'}=~/yes/) {$fullname=' ';} #put here something reasonable for anonymous exams or quiz	if ($parmhash{'anonymous_quiz'}=~/yes/) {$fullname=' ';} #put here something reasonable for anonymous exams or quiz
#goes through all resources, checks if they are available for current student, and produces output	#goes through all resources, checks if they are available for current student, and produces output
	&Apache::lonnet::delenv('form.counter');
	&Apache::lonxml::init_counter();
foreach my $curresline (@master_seq) {	foreach my $curresline (@master_seq) {
if ($curresline=~ m/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/) {	if ($curresline=~ m/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/) {
my ($map,$id,$res_url) = split(/___/,$curresline);	my ($map,$id,$res_url) = split(/___/,$curresline);
Line 887 sub handler {	Line 893 sub handler {

my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});	my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});

# my $key;	my $key;
# foreach $key (keys %parmhash) {	# foreach $key (keys %parmhash) {
# $r->print(' '.$key.'->'.$parmhash{$key}.'<-<br />');	# $r->print(' '.$key.'->'.$parmhash{$key}.'<-<br />');
# }	# }

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

Removed from v.1.200
changed lines
	Added in v.1.201