version 1.10, 2006/03/16 19:56:21
|
version 1.14, 2006/04/13 16:23:03
|
Line 83 sub advertisefeeds {
|
Line 83 sub advertisefeeds {
|
} |
} |
foreach my $feed (sort(keys(%feednames))) { |
foreach my $feed (sort(keys(%feednames))) { |
if ($feed!~/^error\:/) { |
if ($feed!~/^error\:/) { |
my $feedurl='feed://'.$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss'; |
my $feedurl='http://'.$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss'; |
my $htmlurl='http://'.$ENV{'HTTP_HOST'}.'/'.$mode.'/'.$udom.'/'.$uname.'/'.$feed.'_rss.html'; |
my $htmlurl='http://'.$ENV{'HTTP_HOST'}.'/'.$mode.'/'.$udom.'/'.$uname.'/'.$feed.'_rss.html'; |
$feeds.='<li>'.$feednames{$feed}. |
$feeds.='<li>'.$feednames{$feed}. |
'<br />'.($edit?&mt('Edit'):'HTML').': <a href="'.$htmlurl.'"><tt>'.$htmlurl.'</tt></a>'. |
'<br />'.($edit?&mt('Edit'):'HTML').': <a href="'.$htmlurl.'"><tt>'.$htmlurl.'</tt></a>'. |
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 145 sub changed_js {
|
Line 151 sub changed_js {
|
tform.elements[id+"_modified"].checked=true; |
tform.elements[id+"_modified"].checked=true; |
} |
} |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
} |
} |
|
|
sub handler { |
sub handler { |
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 { |