|
version 1.11, 2006/03/16 20:03:11
|
version 1.13, 2006/03/23 22:32:11
|
|
Line 97 sub advertisefeeds {
|
Line 97 sub advertisefeeds {
|
| } |
} |
| } |
} |
| |
|
| |
sub rss_link { |
| |
my ($url) = @_; |
| |
return qq|<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$url" />|; |
| |
|
| |
} |
| |
|
| { |
{ |
| my $feedcounter; |
my $feedcounter; |
| sub addentry { |
sub addentry { |
|
Line 175 sub handler {
|
Line 181 sub handler {
|
| my $feedname=&feedname($filename); |
my $feedname=&feedname($filename); |
| my $displayfeedname=&displayfeedname($filename,$uname,$udom); |
my $displayfeedname=&displayfeedname($filename,$uname,$udom); |
| if ($html) { |
if ($html) { |
| $r->print(&Apache::lonxml::xmlbegin(). |
$r->print(&Apache::loncommon::start_page($displayfeedname,undef, |
| &Apache::loncommon::head($displayfeedname). |
{'domain' => $udom, |
| &Apache::loncommon::bodytag($displayfeedname,'','','',$udom, |
'force_register' => |
| $env{'form.register'}). |
$env{'form.register'}}). |
| &changed_js()); |
&changed_js()); |
| |
|
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonrss.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface