version 1.15, 2006/04/13 17:57:17
|
version 1.16, 2006/04/13 18:12:49
|
Line 36 use Apache::lontexconvert;
|
Line 36 use Apache::lontexconvert;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
|
|
my $feedcounter; |
|
|
|
sub filterfeedname { |
sub filterfeedname { |
my $filename=shift; |
my $filename=shift; |
Line 106 sub rss_link {
|
Line 105 sub rss_link {
|
return qq|<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$url" />|; |
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 { |
sub addentry { |
$feedcounter++; |
my $id=&get_new_feed_id(); |
my $id=time.'00000'.$$.'00000'.$feedcounter; |
|
return &editentry($id,@_); |
return &editentry($id,@_); |
} |
} |
|
|
Line 213 sub handler {
|
Line 219 sub handler {
|
} |
} |
} |
} |
} |
} |
$feedcounter++; |
my $newid = &get_new_feed_id(); |
my $newid=time.'00000'.$$.'00000'.$feedcounter; |
|
# Is this user for real? |
# Is this user for real? |
my $homeserver=&Apache::lonnet::homeserver($uname,$udom); |
my $homeserver=&Apache::lonnet::homeserver($uname,$udom); |
if ($html) { |
if ($html) { |