Diff for /loncom/interface/lonrss.pm between versions 1.27 and 1.28

version 1.27, 2006/08/11 20:11:47 version 1.28, 2006/10/02 16:47:57
Line 339  sub handler { Line 339  sub handler {
     &editentry($id,$uname,$udom,$feedname,      &editentry($id,$uname,$udom,$feedname,
        $env{'form.'.$id.'_title'},         $env{'form.'.$id.'_title'},
        $env{'form.'.$id.'_description'},         $env{'form.'.$id.'_description'},
        $env{'form.'.$id.'_url'},         $env{'form.'.$id.'_link'},
        $env{'form.'.$id.'_status'},         $env{'form.'.$id.'_status'},
        $env{'form.'.$id.'_enclosureurl'},         $env{'form.'.$id.'_enclosureurl'},
        $env{'form.'.$id.'_enclosuretype'},         $env{'form.'.$id.'_enclosuretype'},
Line 402  ENDEDIT Line 402  ENDEDIT
     } else { # not in edit mode, just displaying      } else { # not in edit mode, just displaying
  if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { next; }   if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { next; }
  if ($newsfeed{$id.'_status'} eq 'hidden') { next; }   if ($newsfeed{$id.'_status'} eq 'hidden') { next; }
    my $link =  $newsfeed{$id.'_link'};
    if ($link =~ m|^/| ) {
       $link = "http://".$ENV{'HTTP_HOST'}.$link;
    }
  $r->print("\n".($html?"\n<li><b>":"<item>\n<title>").$newsfeed{$id.'_title'}.   $r->print("\n".($html?"\n<li><b>":"<item>\n<title>").$newsfeed{$id.'_title'}.
   ($html?"</b><br />\n":"</title>\n<description>").    ($html?"</b><br />\n":"</title>\n<description>").
   $newsfeed{$id.'_description'}.    $newsfeed{$id.'_description'}.
   ($html?"<br />\n<a href='":"</description>\n<link>").    ($html?"<br />\n<a href='":"</description>\n<link>").
   "http://".$ENV{'HTTP_HOST'}.    
   $newsfeed{$id.'_link'}.    $link.
   ($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"));    ($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"));
 # Enclosure? Get stats  # Enclosure? Get stats
  if ($newsfeed{$id.'_enclosureurl'}) {   if ($newsfeed{$id.'_enclosureurl'}) {

Removed from v.1.27  
changed lines
  Added in v.1.28


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