--- loncom/interface/lonwhatsnew.pm	2005/04/07 04:12:31	1.3
+++ loncom/interface/lonwhatsnew.pm	2005/04/07 04:22:03	1.4
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.3 2005/04/07 04:12:31 albertel Exp $
+# $Id: lonwhatsnew.pm,v 1.4 2005/04/07 04:22:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -251,12 +251,7 @@ END
         my $rowNum = 0;
         foreach my $ressymb (@newdiscussions) {
             my $forum_title = $unread{$ressymb}{'title'};
-            my ($map,$ind,$url)=&Apache::lonnet::decode_symb($ressymb);
-            my $feedurl = &Apache::lonnet::clutter($url);
-# backward compatibility (bulletin boards used to be 'wrapped')
-            if ($feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) {
-                $feedurl=~s|^/adm/wrapper||;
-            }
+	    my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb);
             my $unreadnum = keys(%{$unread{$ressymb}});
             $unreadnum = $unreadnum - 2;
             if ($unreadnum > 0) {
@@ -431,10 +426,8 @@ sub getitems {
         my $title = $resource->compTitle();
         my $ressymb = $symb;
         if ($ressymb =~ m-(___adm/\w+/\w+)/(\d+)/bulletinboard$-) {
-            $ressymb = 'bulletin___'.$2.$1.'/'.$2.'/bulletinboard';
-            unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) {
-                 $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper/|;
-            }
+            $ressymb = &Apache::lonfeedback::wrap_symb('bulletin___'.$2.$1.'/'.
+						       $2.'/bulletinboard');
         }
 
 # Check for unread discussion postings