--- loncom/interface/lonfeedback.pm 2005/04/11 01:07:26 1.159 +++ loncom/interface/lonfeedback.pm 2005/04/11 12:20:22 1.160 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.159 2005/04/11 01:07:26 raeburn Exp $ +# $Id: lonfeedback.pm,v 1.160 2005/04/11 12:20:22 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2867,10 +2867,8 @@ sub has_discussion { foreach my $resource (@allres) { if ($resource->hasDiscussion()) { my $ressymb = $resource->symb(); - if ($resource->symb() =~ m-(___adm/\w+/\w+/)(\d+)(/bulletinboard)$-) { - $ressymb = 'bulletin___'.$2.$1.$2.$3; - } else { - $ressymb = $resource->symb(); + if ($ressymb =~ m-___adm/\w+/\w+/\d+/bulletinboard$-) { + $ressymb = $resource->ressymb(); } push @{$resourcesref}, $ressymb; } @@ -3032,10 +3030,6 @@ END foreach (@resources) { my $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'; $discinfo{$lastkey} = $env{'form.navtime'}; }