loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.137, 2004/11/15 22:48:51	version 1.138, 2004/11/15 23:02:45
Line 132 sub list_discussion {	Line 132 sub list_discussion {
$prevread = $dischash{$lastkey};	$prevread = $dischash{$lastkey};
}	}
}	}
&Apache::lonnet::logthis("\n last read r symb ".$lastkey);

# Get information about students and non-students in course for filtering display of posts	# Get information about students and non-students in course for filtering display of posts
my %roleshash = ();	my %roleshash = ();
Line 2901 ENDREDIR	Line 2900 ENDREDIR
my ($symb,$feedurl)=&get_feedurl_and_clean_symb($ENV{'form.symb'});	my ($symb,$feedurl)=&get_feedurl_and_clean_symb($ENV{'form.symb'});
my %discinfo;	my %discinfo;
# ------------------------ Modify setting for read/unread toggle for each post	# ------------------------ Modify setting for read/unread toggle for each post
if ($ENV{'form.toggoff'}) { $discinfo{$symb.'_readtoggle'}=1; }	if ($ENV{'form.toggoff'}) { $discinfo{$symb.'_readtoggle'}=0; }
if ($ENV{'form.toggon'}) { $discinfo{$symb.'_readtoggle'}=0; }	if ($ENV{'form.toggon'}) { $discinfo{$symb.'_readtoggle'}=1; }
# --------- Modify setting for identification of 'NEW' posts in this discussion	# --------- Modify setting for identification of 'NEW' posts in this discussion
if ($ENV{'form.markondisp'}) {	if ($ENV{'form.markondisp'}) {
$discinfo{$symb.'_lastread'} = time;	$discinfo{$symb.'_lastread'} = time;