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

Diff for /loncom/interface/lonrss.pm between versions 1.6 and 1.12

version 1.6, 2005/11/20 19:37:44 version 1.12, 2006/03/21 21:25:33
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 138  sub changestatus { Line 144  sub changestatus {
     }      }
 }  }
   
   sub changed_js {
       return <<ENDSCRIPT;
   <script type="text/javascript">
       function changed(tform,id) {
           tform.elements[id+"_modified"].checked=true;
       }
   </script>
   ENDSCRIPT
   }
   
 sub handler {  sub handler {
     my $r = shift;      my ($r) = @_;
   
     my $edit=0;      my $edit=0;
     my $html=0;      my $html=0;
Line 165  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().&Apache::loncommon::bodytag   $r->print(&Apache::lonxml::xmlbegin().
                   ($displayfeedname,'','','',$udom,    &Apache::loncommon::head($displayfeedname).
                    $env{'form.register'}).<<ENDSCRIPT);    &Apache::loncommon::bodytag($displayfeedname,'','','',$udom,
 <script>        $env{'form.register'}).
     function changed(tform,id) {    &changed_js());
         tform.elements[id+"_modified"].checked=true;  
     }  
 </script>  
 ENDSCRIPT  
     } else {      } else {
  $r->print("<rss version='2.0' xmlns:dc='http://purl.org/dc/elements/1.1'>\n<channel>".   $r->print("<rss version='2.0' xmlns:dc='http://purl.org/dc/elements/1.1'>\n<channel>".
   "\n<link>http://".$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.    "\n<link>http://".$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.
Line 264  ENDEDIT Line 277  ENDEDIT
     }      }
  }   }
     }      }
     $r->print("\n".($html?'</ul>'.($edit?'<input type="submit" value="'.&mt('Store Marked Changes').'" /></form>':'').'</body></html>':'</channel></rss>'."\n"));      $r->print("\n".($html?'</ul>'.($edit?'<input type="submit" value="'.&mt('Store Marked Changes').'" /></form>':'').&Apache::loncommon::end_page():'</channel></rss>'."\n"));
     return OK;      return OK;
 }   } 
 1;  1;
Removed from v.1.6  
changed lines
  Added in v.1.12

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