--- loncom/interface/lonrss.pm	2006/04/13 17:57:17	1.15
+++ loncom/interface/lonrss.pm	2006/04/13 18:12:49	1.16
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # RSS Feeder
 #
-# $Id: lonrss.pm,v 1.15 2006/04/13 17:57:17 www Exp $
+# $Id: lonrss.pm,v 1.16 2006/04/13 18:12:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -36,7 +36,6 @@ use Apache::lontexconvert;
 use Apache::lonlocal;
 use Apache::lonhtmlcommon;
 
-my $feedcounter;
 
 sub filterfeedname {
     my $filename=shift;
@@ -106,9 +105,16 @@ sub rss_link {
     return qq|<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$url" />|;
 }
 
+{
+    my $feedcounter;
+    sub get_new_feed_id {
+	$feedcounter++;
+	return time().'00000'.$$.'00000'.$feedcounter;
+    }
+}
+
 sub addentry {
-    $feedcounter++;
-    my $id=time.'00000'.$$.'00000'.$feedcounter;
+    my $id=&get_new_feed_id();
     return &editentry($id,@_);
 }
 
@@ -213,8 +219,7 @@ sub handler {
 	    }
 	}
     }
-    $feedcounter++;
-    my $newid=time.'00000'.$$.'00000'.$feedcounter;
+    my $newid = &get_new_feed_id();
 # Is this user for real?
     my $homeserver=&Apache::lonnet::homeserver($uname,$udom);
     if ($html) {