--- loncom/interface/lonrss.pm 2006/03/15 21:43:20 1.8
+++ loncom/interface/lonrss.pm 2006/03/23 22:32:11 1.13
@@ -1,7 +1,7 @@
# The LearningOnline Network
# RSS Feeder
#
-# $Id: lonrss.pm,v 1.8 2006/03/15 21:43:20 albertel Exp $
+# $Id: lonrss.pm,v 1.13 2006/03/23 22:32:11 albertel 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);
@@ -98,6 +97,12 @@ sub advertisefeeds {
}
}
+sub rss_link {
+ my ($url) = @_;
+ return qq||;
+
+}
+
{
my $feedcounter;
sub addentry {
@@ -140,14 +145,13 @@ sub changestatus {
}
sub changed_js {
-
return <
function changed(tform,id) {
tform.elements[id+"_modified"].checked=true;
}
-ENDSCRIPT
+ENDSCRIPT
}
sub handler {
@@ -177,10 +181,10 @@ sub handler {
my $feedname=&feedname($filename);
my $displayfeedname=&displayfeedname($filename,$uname,$udom);
if ($html) {
- $r->print(&Apache::lonxml::xmlbegin().
- &Apache::loncommon::head($displayfeedname).
- &Apache::loncommon::bodytag($displayfeedname,'','','',$udom,
- $env{'form.register'}).
+ $r->print(&Apache::loncommon::start_page($displayfeedname,undef,
+ {'domain' => $udom,
+ 'force_register' =>
+ $env{'form.register'}}).
&changed_js());
} else {