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.162, 2005/04/11 15:33:46
Line 2866 sub has_discussion {	Line 2866 sub has_discussion {
my @allres=$navmap->retrieveResources();	my @allres=$navmap->retrieveResources();
foreach my $resource (@allres) {	foreach my $resource (@allres) {
if ($resource->hasDiscussion()) {	if ($resource->hasDiscussion()) {
my $ressymb = $resource->symb();	my $ressymb = $resource->wrap_symb();
if ($resource->symb() =~ m-(___adm/\w+/\w+/)(\d+)(/bulletinboard)$-) {
$ressymb = 'bulletin___'.$2.$1.$2.$3;
} else {
$ressymb = $resource->symb();
}
push @{$resourcesref}, $ressymb;	push @{$resourcesref}, $ressymb;
}	}
}	}
Line 3032 END	Line 3027 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'};
}	}