loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.159, 2005/04/11 01:07:26	version 1.160, 2005/04/11 12:20:22
Line 2867 sub has_discussion {	Line 2867 sub has_discussion {
foreach my $resource (@allres) {	foreach my $resource (@allres) {
if ($resource->hasDiscussion()) {	if ($resource->hasDiscussion()) {
my $ressymb = $resource->symb();	my $ressymb = $resource->symb();
if ($resource->symb() =~ m-(___adm/\w+/\w+/)(\d+)(/bulletinboard)$-) {	if ($ressymb =~ m-___adm/\w+/\w+/\d+/bulletinboard$-) {
$ressymb = 'bulletin___'.$2.$1.$2.$3;	$ressymb = $resource->ressymb();
} else {
$ressymb = $resource->symb();
}	}
push @{$resourcesref}, $ressymb;	push @{$resourcesref}, $ressymb;
}	}
Line 3032 END	Line 3030 END
foreach (@resources) {	foreach (@resources) {
my $ressymb=$_;	my $ressymb=$_;
&Apache::lonenc::check_decrypt(\$ressymb);	&Apache::lonenc::check_decrypt(\$ressymb);
# backward compatibility (bulletin boards used to be 'wrapped')
if ($ressymb =~ m/bulletin___\d+___/) {
$ressymb = &wrap_symb($ressymb);
}
my $lastkey = $ressymb.'_lastread';	my $lastkey = $ressymb.'_lastread';
$discinfo{$lastkey} = $env{'form.navtime'};	$discinfo{$lastkey} = $env{'form.navtime'};
}	}