--- loncom/interface/lonrss.pm 2005/11/22 16:16:53 1.7
+++ loncom/interface/lonrss.pm 2006/04/13 16:23:03 1.14
@@ -1,7 +1,7 @@
# The LearningOnline Network
# RSS Feeder
#
-# $Id: lonrss.pm,v 1.7 2005/11/22 16:16:53 albertel Exp $
+# $Id: lonrss.pm,v 1.14 2006/04/13 16:23:03 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -74,7 +74,6 @@ sub renamefeed {
}
sub advertisefeeds {
- return;
my ($uname,$udom,$edit)=@_;
my $feeds='';
my %feednames=&Apache::lonnet::dump('nohist_all_rss_feeds',$udom,$uname);
@@ -84,7 +83,7 @@ sub advertisefeeds {
}
foreach my $feed (sort(keys(%feednames))) {
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';
$feeds.='
'.$feednames{$feed}.
'
'.($edit?&mt('Edit'):'HTML').': '.$htmlurl.''.
@@ -98,6 +97,12 @@ sub advertisefeeds {
}
}
+sub rss_link {
+ my ($url) = @_;
+ return qq||;
+
+}
+
{
my $feedcounter;
sub addentry {
@@ -139,8 +144,18 @@ sub changestatus {
}
}
+sub changed_js {
+ return <
+ function changed(tform,id) {
+ tform.elements[id+"_modified"].checked=true;
+ }
+
+ENDSCRIPT
+}
+
sub handler {
- my $r = shift;
+ my ($r) = @_;
my $edit=0;
my $html=0;
@@ -166,15 +181,12 @@ sub handler {
my $feedname=&feedname($filename);
my $displayfeedname=&displayfeedname($filename,$uname,$udom);
if ($html) {
- $r->print(&Apache::lonxml::xmlbegin().&Apache::loncommon::bodytag
- ($displayfeedname,'','','',$udom,
- $env{'form.register'}).<
- function changed(tform,id) {
- tform.elements[id+"_modified"].checked=true;
- }
-
-ENDSCRIPT
+ $r->print(&Apache::loncommon::start_page($displayfeedname,undef,
+ {'domain' => $udom,
+ 'force_register' =>
+ $env{'form.register'}}).
+ &changed_js());
+
} else {
$r->print("\n".
"\nhttp://".$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.
@@ -265,7 +277,7 @@ ENDEDIT
}
}
}
- $r->print("\n".($html?''.($edit?'':'').'