[BACK]Return to lonrss.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonrss.pm between versions 1.8 and 1.13

version 1.8, 2006/03/15 21:43:20 version 1.13, 2006/03/23 22:32:11
Line 74  sub renamefeed { Line 74  sub renamefeed {
 }  }
   
 sub advertisefeeds {  sub advertisefeeds {
     return;  
     my ($uname,$udom,$edit)=@_;      my ($uname,$udom,$edit)=@_;
     my $feeds='';      my $feeds='';
     my %feednames=&Apache::lonnet::dump('nohist_all_rss_feeds',$udom,$uname);      my %feednames=&Apache::lonnet::dump('nohist_all_rss_feeds',$udom,$uname);
Line 98  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 140  sub changestatus { Line 145  sub changestatus {
 }  }
   
 sub changed_js {  sub changed_js {
   
     return <<ENDSCRIPT;      return <<ENDSCRIPT;
 <script type="text/javascript">  <script type="text/javascript">
     function changed(tform,id) {      function changed(tform,id) {
         tform.elements[id+"_modified"].checked=true;          tform.elements[id+"_modified"].checked=true;
     }      }
 </script>  </script>
 ENDSCRIPT      ENDSCRIPT
 }  }
   
 sub handler {  sub handler {
Line 177  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 {
Removed from v.1.8  
changed lines
  Added in v.1.13

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>