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

Diff for /loncom/interface/lonrss.pm between versions 1.21 and 1.23

version 1.21, 2006/05/11 17:38:44 version 1.23, 2006/05/18 22:30:11
Line 29 Line 29
 package Apache::lonrss;  package Apache::lonrss;
   
 use strict;  use strict;
   use LONCAPA;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonnet;  use Apache::lonnet;
Line 92  sub advertisefeeds { Line 93  sub advertisefeeds {
  $mode='adm';   $mode='adm';
     }      }
     foreach my $feed (sort(keys(%feednames))) {      foreach my $feed (sort(keys(%feednames))) {
  if (($feed!~/^error\:/) && ($feed!~/^feed\_display\_option\_/)) {   if ($feed ne '' 
       && ($feed!~/^error\:/) && ($feed!~/^feed\_display\_option\_/)) {
     my $feedurl='http://'.$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';
     if ($feednames{'feed_display_option_'.$feed} eq 'hidden') {      if ($feednames{'feed_display_option_'.$feed} eq 'hidden') {
Line 197  sub course_blog_link { Line 199  sub course_blog_link {
 sub add_blog_entry_link {  sub add_blog_entry_link {
     my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype,$linktext)=@_;      my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype,$linktext)=@_;
     return "<a href='/adm/$udom/$uname/".&filterfeedname($filename).'_rss.html?queryid='.      return "<a href='/adm/$udom/$uname/".&filterfeedname($filename).'_rss.html?queryid='.
  &Apache::lonnet::escape($id).   &escape($id).
  '&title='.&Apache::lonnet::escape($title).   '&title='.&escape($title).
  '&description='.&Apache::lonnet::escape($description).   '&description='.&escape($description).
  '&url='.&Apache::lonnet::escape($url).   '&url='.&escape($url).
  '&status='.&Apache::lonnet::escape($status).   '&status='.&escape($status).
  '&encurl='.&Apache::lonnet::escape($encurl).   '&encurl='.&escape($encurl).
  '&enctype='.&Apache::lonnet::escape($enctype).   '&enctype='.&escape($enctype).
  "'>".$linktext.'</a>';   "'>".$linktext.'</a>';
   
 }  }
Removed from v.1.21  
changed lines
  Added in v.1.23

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