loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.167 and 1.168

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

version 1.167, 2005/06/06 20:40:01	version 1.168, 2005/09/20 07:52:03
Line 97 sub list_discussion {	Line 97 sub list_discussion {
$ressymb=&wrap_symb($ressymb);	$ressymb=&wrap_symb($ressymb);
my $encsymb=&Apache::lonenc::check_encrypt($ressymb);	my $encsymb=&Apache::lonenc::check_encrypt($ressymb);
my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs)	my $viewgrades=(&Apache::lonnet::allowed('vgr',$crs)
&& ($ressymb=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/));	&& ($ressymb=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/));

my %usernamesort = ();	my %usernamesort = ();
my %namesort =();	my %namesort =();
Line 3257 ENDREDIR	Line 3257 ENDREDIR
my $mode='board';	my $mode='board';
my $status='OPEN';	my $status='OPEN';
my $previous=$env{'form.previous'};	my $previous=$env{'form.previous'};
if ($feedurl =~ /\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/) {	if ($feedurl =~ /\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|task)$/) {
$mode='problem';	$mode='problem';
$status=$Apache::inputtags::status[-1];	$status=$Apache::inputtags::status[-1];
}	}
Line 3296 ENDREDIR	Line 3296 ENDREDIR
}	}
&Apache::lonenc::check_decrypt(\$symb);	&Apache::lonenc::check_decrypt(\$symb);
my $goahead=1;	my $goahead=1;
if ($feedurl=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($feedurl=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|task)$/) {
unless ($symb) { $goahead=0; }	unless ($symb) { $goahead=0; }
}	}
# backward compatibility (bulletin boards used to be 'wrapped')	# backward compatibility (bulletin boards used to be 'wrapped')

Removed from v.1.167
changed lines
	Added in v.1.168