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

Diff for /loncom/interface/lonrss.pm between versions 1.2 and 1.52

version 1.2, 2005/11/18 13:35:30 version 1.52, 2013/05/25 21:50:19
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;
 use Apache::lontexconvert;  use Apache::lontexconvert;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
   use Apache::inputtags();
 my $feedcounter=0;  
   
 sub filterfeedname {  sub filterfeedname {
     my $filename=shift;      my $filename=shift;
     $filename=~s/\.rss$//;      $filename=~s/(\_rss\.html|\.rss)$//;
     $filename=~s/\W//g;      $filename=~s/\W//g;
       $filename=~s/\_rssfeed$//;
       $filename=~s/^nohist\_//;
     return $filename;      return $filename;
 }  }
   
Line 53  sub displayfeedname { Line 55  sub displayfeedname {
     my ($rawname,$uname,$udom)=@_;      my ($rawname,$uname,$udom)=@_;
     my $filterfilename=&filterfeedname($rawname);      my $filterfilename=&filterfeedname($rawname);
 # do we have a stored name?  # do we have a stored name?
     my %stored=&Apache::lonnet::get('nohist_all_rss_feeds',[$filterfilename],$udom,$uname);      my %stored=&Apache::lonnet::get('nohist_all_rss_feeds',[$filterfilename,'feed_display_option_'.$filterfilename],$udom,$uname);
     if ($stored{$filterfilename}) { return $stored{$filterfilename}; }      if ($stored{$filterfilename}) { return ($stored{$filterfilename},$stored{'feed_display_option_'.$filterfilename}); }
 # no, construct a name  # no, construct a name
     my $name=$filterfilename;       my $name=$filterfilename; 
     if ($name=~/^CourseBlog/) {      if ($name=~/^CourseBlog/) {
         $name=&mt('Course Blog');          $name=&mt('Course Blog');
           if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Community') {
               $name = &mt('Community Blog'); 
           }
  if ($env{'course.'.$env{'request.course.id'}.'.description'}) {   if ($env{'course.'.$env{'request.course.id'}.'.description'}) {
     $name.=' '.$env{'course.'.$env{'request.course.id'}.'.description'};      $name.=' '.$env{'course.'.$env{'request.course.id'}.'.description'};
  }   }
     } else {      } else {
  $name=~s/\_/ /g;   $name=~s/\_/ /g;
     }      }
     return $name;      return ($name,$stored{'feed_display_option_'.$filterfilename});
 }  }
   
 sub renamefeed {  sub namefeed {
     my ($rawname,$uname,$udom,$newname)=@_;      my ($rawname,$uname,$udom,$newname)=@_;
     return &Apache::lonnet::put('nohist_all_rss_feeds',      return &Apache::lonnet::put('nohist_all_rss_feeds',
  { &filterfeedname($rawname) => $newname },   { &filterfeedname($rawname) => $newname },
  $udom,$uname);   $udom,$uname);
 }  }
   
   sub changefeeddisplay {
       my ($rawname,$uname,$udom,$newstatus)=@_;
       return &Apache::lonnet::put('nohist_all_rss_feeds',
    { 'feed_display_option_'.&filterfeedname($rawname) => $newstatus },
    $udom,$uname);
   }
   
 sub advertisefeeds {  sub advertisefeeds {
     my ($uname,$udom)=@_;      my ($uname,$udom,$edit,$count,$hidden)=@_;
     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);
     foreach (sort keys %feednames) {      my $mode='public';
  if ($_!~/^error\:/) {      if ($edit) {
     my $url='feed://'.$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.$_.'.rss';   $mode='adm';
     $feeds.='<li><a href="'.$url.'">'.      }
  $feednames{$_}.'</a><br /><tt>'.$url.'</tt></li>';      my $server = &Apache::lonnet::absolute_url();
       foreach my $feed (sort(keys(%feednames))) {
    next if ($feed =~/^\s*$/    ||
    $feed =~ /^error:/ ||
    $feed =~ /^feed_display_option_/);
           if ($feednames{'feed_display_option_'.$feed} eq 'hidden') {
               if (ref($hidden)) {
                   $$hidden ++;
               }
               if (ref($count)) {
                   unless ($edit) {
                       next;
                   }
               }
           } else {
               if (ref($count)) {
                   $$count ++;
               }
           }
    my $feedurl= $server.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss';
    my $htmlurl= $server.'/'.$mode.'/'.$udom.'/'.$uname.'/'.$feed.'_rss.html';
    if ($feednames{'feed_display_option_'.$feed} eq 'hidden') {
       if ($edit) {
    $feeds.='<li><i>'.$feednames{$feed}.'</i><br />'.&mt('Hidden').': <a href="'.$htmlurl.'"><tt>'.$htmlurl.'</tt></a></li>';
       }
    } else {
       $feeds.='<li><b>'.$feednames{$feed}.
    '</b><br />'.($edit?&mt('Edit'):'HTML').': <a href="'.$htmlurl.'"><tt>'.$feednames{$feed}.' HTML</tt></a>'.
    '<br />'.&mt('Public RSS/podcast (subscribe to)').': <a href="'.$feedurl.'"><tt>'.$feednames{$feed}.' RSS/Podcast</tt></a></li>';
  }   }
     }      }
     if ($feeds) {      if ($feeds) {
Line 93  sub advertisefeeds { Line 133  sub advertisefeeds {
     }      }
 }  }
   
   sub rss_link {
       my ($uname,$udom)=@_;
       my $result;
       my $server = &Apache::lonnet::absolute_url();
       my %feednames=&Apache::lonnet::dump('nohist_all_rss_feeds',$udom,$uname);
       foreach my $feed (sort(keys(%feednames))) {
    next if ($feed =~/^\s*$/    ||
    $feed =~ /^error:/ ||
    $feed =~/^feed_display_option_/ );
    my $url= $server.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss';
    my $title = $feed;
    $title =~ s/_/ /g;
    $result.=qq|
   <link rel="alternate" type="application/rss+xml" title="$title" href="$url" />
   |;
       }
       return $result;
   }
   
   {
       my $feedcounter;
       sub get_new_feed_id {
    $feedcounter++;
    return time().'00000'.$$.'00000'.$feedcounter;
       }
   }
   
 sub addentry {  sub addentry {
     $feedcounter++;      my $id=&get_new_feed_id();
     my $id=time.'00000'.$$.'00000'.$feedcounter;  
     return &editentry($id,@_);      return &editentry($id,@_);
 }  }
   
 sub editentry {  sub editentry {
     my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enclength,$enctype)=@_;      my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype)=@_;
       if ($status eq 'deleted') {
    return &changestatus($id,$uname,$udom,$filename,$status);
       }
     my $feedname=&feedname($filename);      my $feedname=&feedname($filename);
     &Apache::lonnet::put('nohist_all_rss_feeds',      &Apache::lonnet::put('nohist_all_rss_feeds',
  { &filterfeedname($filename) => &displayfeedname($filename,$uname,$udom) },   { &filterfeedname($filename) => 
          (&displayfeedname($filename,$uname,$udom))[0] },
  $udom,$uname);   $udom,$uname);
     return &Apache::lonnet::put($feedname,{      return &Apache::lonnet::put($feedname,{
  $id.'_title' => $title,   $id.'_title' => $title,
  $id.'_description' => $description,   $id.'_description' => $description,
  $id.'_link' => $url,   $id.'_link' => $url,
  $id.'_enclosureurl' => $encurl,   $id.'_enclosureurl' => $encurl,
  $id.'_enclosurelength' => $enclength,  
  $id.'_enclosuretype' => $enctype,   $id.'_enclosuretype' => $enctype,
  $id.'_status' => $status},$udom,$uname);   $id.'_status' => $status},$udom,$uname);
 }  }
Line 123  sub changestatus { Line 192  sub changestatus {
        $id.'_description',         $id.'_description',
        $id.'_link',         $id.'_link',
        $id.'_enclosureurl',         $id.'_enclosureurl',
        $id.'_enclosurelength',  
        $id.'_enclosuretype',         $id.'_enclosuretype',
        $id.'_status'],$udom,$uname);         $id.'_status'],$udom,$uname);
     } else {      } else {
Line 131  sub changestatus { Line 199  sub changestatus {
     }      }
 }  }
   
   sub changed_js {
       return <<ENDSCRIPT;
   <script type="text/javascript">
       function changed(tform,id) {
           tform.elements[id+"_modified"].checked=true;
       }
   </script>
   ENDSCRIPT
   }
   
   sub determine_enclosure_types {
       my ($url)=@_;
       my ($ending)=($url=~/\.(\w+)$/);
       return &Apache::loncommon::filemimetype($ending);
   }
   
   sub course_blog_link {
       my ($id,$title,$description,$url,$encurl,$enctype)=@_;
       if ($env{'request.course.id'}) {
    return &add_blog_entry_link($id,
       $env{'course.'.$env{'request.course.id'}.'.num'},
       $env{'course.'.$env{'request.course.id'}.'.domain'},
       'Course_Announcements',
       $title,$description,$url,'public',$encurl,$enctype,
       &mt('Add to Course Announcements'));
       } else {
    return '';
       }
   }
   
   sub add_blog_entry_link {
       my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype,$linktext)=@_;
       return "<a href='/adm/$udom/$uname/".&filterfeedname($filename).'_rss.html?queryid='.
    &escape($id).
    '&amp;title='.&escape($title).
    '&amp;description='.&escape($description).
    '&amp;url='.&escape($url).
    '&amp;status='.&escape($status).
    '&amp;encurl='.&escape($encurl).
    '&amp;enctype='.&escape($enctype).
    "'>".$linktext.'</a>';
   
   }
   
   sub blocking_blogdisplay {
       my ($uname,$udom,$html,$filterfeedname) = @_;
       my $user = &Apache::loncommon::plainname($uname,$udom);
       if ($html) {
           $user = &Apache::loncommon::aboutmewrapper($user,$uname,$udom);
       } else {
           $user = $user.' ('.$uname.':'.$udom.')';
       }
       my %setters;
       my ($blocked,$output,$blockcause);
       my ($startblock,$endblock) =
                &Apache::loncommon::blockcheck(\%setters,'blogs');
       if ($startblock && $endblock) {
           $blockcause = 'user';
       } else { 
           if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
               ($startblock,$endblock) =
                    &Apache::loncommon::blockcheck(\%setters,'blogs',
                                                   $uname,$udom);
               $blockcause = 'blogowner';
           }
       }
       if ($startblock && $endblock) {
           $blocked = 1;
           my $showstart = &Apache::lonlocal::locallocaltime($startblock);
           my $showend = &Apache::lonlocal::locallocaltime($endblock);
           $output = &mt('Blogs belonging to [_1] are unavailable from [_2] to [_3].',$user,$showstart,$showend);
           if ($html) {$output.='<br />';}
           if ($blockcause eq 'user') {
               $output .= &mt('This is because you are a student in one or more courses in which communication is being blocked.');
               if ($html) {
                   #$output .= '<br />'.
                          #&Apache::loncommon::build_block_table($startblock,
                          #                                 $endblock,\%setters);
                    my ($blocked, $blocktext) = Apache::loncommon::blocking_status('blogs');
                    $output .= '<br /><br />'.$blocktext;
               }
           } else {
               $output .= &mt('This is because the blog owner is a student in one or more courses in which communication is being blocked.');
           }
           if (!$html) {
               my $id = &get_new_feed_id();
               $output = '<title/><item><title/><description>'.$output."</description><link/><guid isPermaLink='false'>".$id.$filterfeedname.'_'.$udom.'_'.$uname.'</guid></item>';
           }
       }
       return ($blocked,$output);
   }
   
 sub handler {  sub handler {
     my $r = shift;      my ($r) = @_;
     &Apache::loncommon::content_type($r,'text/xml');  
       my $edit=0;
       my $html=0;
       my (undef,$mode,$udom,$uname,$filename)=split(/\//,$r->uri);
       if (($mode eq 'adm') && ($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) {
    $edit=1;
    $html=1;
       }
       if  (($mode eq 'adm') && (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))
           && ($uname eq $env{'course.'.$env{'request.course.id'}.'.num'} &&
               $udom eq $env{'course.'.$env{'request.course.id'}.'.domain'})) {
    $edit=1;
    $html=1;
       }
       if ($filename=~/\.html$/) {
    $html=1;
       }
       if ($html) {
    &Apache::loncommon::content_type($r,'text/html');
       } else {
   # Workaround Mozilla/Firefox
   # &Apache::loncommon::content_type($r,'application/rss+xml');
    &Apache::loncommon::content_type($r,'text/xml');
       }
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
     my (undef,undef,$udom,$uname,$filename)=split(/\//,$r->uri);  
     my $filterfeedname=&filterfeedname($filename);      my $filterfeedname=&filterfeedname($filename);
     my $feedname=&feedname($filename);      my $feedname=&feedname($filename);
     my $displayfeedname=&displayfeedname($filename,$uname,$udom);      my ($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom);
     $r->print("<rss version='2.0' xmlns:dc='http://purl.org/dc/elements/1.1'>\n<channel>".      my ($blocked,$blocktext,$disabled,$disabletext);
       "\n<link>http://".$ENV{'HTTP_HOST'}.'/</link>'.      if (!&Apache::lonnet::is_course($udom,$uname)) {
       "\n<description>".&mt('An RSS Feed provided by the LON-CAPA Learning Content Management System').'</description>');          ($blocked,$blocktext) = &blocking_blogdisplay($uname,$udom,$html,$filterfeedname);
           if (&Apache::lonnet::usertools_access($uname,$udom,'blog')) {
               $disabled = 0;
           } else {
               $disabled = 1;
               if ($html) {
                   $disabletext = '<h2>'.&mt('No user blog available') .'</h2>'.
                                  &mt('This is a result of one of the following:').'<ul>'.
                                  '<li>'.&mt('The administrator of this domain has disabled blog functionality for this specific user.').'</li>'.
                                  '<li>'.&mt('The domain has been configured to disable, by default, blog functionality for all users in the domain.').'</li>'.
                                  '</ul>';
               } else {
                   $disabletext = &mt('No user blog available');
               }
           }
       }
       if ($html) {
   # my $title = $displayfeedname?$displayfeedname:"Available RSS Feeds and Blogs";
           my $title = "My Space";
    my $rss_link = &Apache::lonrss::rss_link($uname,$udom);
    my $brcrumb = [{href=>$rss_link,text=>"Available RSS Feeds and Blogs"}];
    $r->print(&Apache::loncommon::start_page($title,$rss_link,
    {'bread_crumbs'   => $brcrumb,
     'domain'         => $udom,
     'force_register' => $env{'form.register'}}).
     &changed_js());
       } else { # render RSS
           my $server = &Apache::lonnet::absolute_url();
    $r->print("<rss version='2.0' xmlns:dc='http://purl.org/dc/elements/1.1'>\n<channel>".
     "\n".'<link>'.$server.'/public/'.$udom.'/'.$uname.'/'.
     $filterfeedname.'_rss.html</link>'.
     "\n<description>".
     &mt('An RSS Feed provided by the LON-CAPA Learning Content Management System').
     '</description>');
       }
   # This will be the entry id for new additions to the blog
       my $newid = &get_new_feed_id();
 # Is this user for real?  # Is this user for real?
     my $homeserver=&Apache::lonnet::homeserver($uname,$udom);       my $homeserver=&Apache::lonnet::homeserver($uname,$udom);
       if ($html && !$blocked && !$disabled) {
   # Any new feeds or renaming of feeds?
    if ($edit) {
   # Hide a feed?
       if ($env{'form.hidethisblog'}) {
    &changefeeddisplay($feedname,$uname,$udom,'hidden');
    ($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom);
       }
   # Advertise a feed?
       if ($env{'form.advertisethisblog'}) {
    &changefeeddisplay($feedname,$uname,$udom,'public');
    ($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom);
       }
   # New feed?
       if ($env{'form.namenewblog'}=~/\w/) {
    &namefeed($env{'form.namenewblog'},$uname,$udom,$env{'form.namenewblog'});
       }
   # Old feed that is being renamed?
       if (($displayfeedname) && ($env{'form.newblogname'}=~/\w/)) {
    if ($env{'form.newblogname'} ne $displayfeedname) {
       &namefeed($feedname,$uname,$udom,$env{'form.newblogname'});
       ($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom);
    }
       }
    }
    $r->print(&advertisefeeds($uname,$udom,$edit));
       } 
     if ($homeserver eq 'no_host') {      if ($homeserver eq 'no_host') {
  $r->print('<title>'.&mt('No feed available').'</title>');   $r->print(($html?'<h3>':'<title>').&mt('No feed available').($html?'</h3>':'</title>'));
     } else {      } elsif ($blocked) {
           $r->print($blocktext);
           $r->print(($html?&Apache::loncommon::end_page():'</channel></rss>'."\n"));
       } elsif ($disabled) {
           $r->print($disabletext);
           $r->print(($html?&Apache::loncommon::end_page():'</channel></rss>'."\n"));
       } else { # is indeed a user
 # Course or user?  # Course or user?
  my $name='';   my $name='';
  if ($uname=~/^\d/) {   if (&Apache::lonnet::is_course($udom,$uname)) {
     my %cenv=&Apache::lonnet::dump('environment',$udom,$uname);      my %cenv=&Apache::lonnet::dump('environment',$udom,$uname);
     $name=$cenv{'description'};      $name=$cenv{'description'};
  } else {   } else {
     $name=&Apache::loncommon::nickname($uname,$udom);      $name=&Apache::loncommon::nickname($uname,$udom);
  }   }
         $r->print("\n<title>".&mt('LON-CAPA RSS Feed "[_1]" for [_2]',$displayfeedname,$name).'</title>');  # Add a new feed
 # Render private items?          if (($html) && ($edit)) {
         my $viewpubliconly=1;      $r->print('<h4>' . &mt('New RSS Feed or Blog'). '</h4>');
         if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) {      $r->print('<form method="post" name="makenewfeed" action="">');
     $viewpubliconly=0;              $r->print(&mt('Name').": <input type='text' size='40' name='namenewblog' />");
       $r->print('<input type="submit" value="'.&mt('New Feed').'" />');
       $r->print('</form>');
  }   }
           if ($displayfeedname) { # this is an existing feed
   # Anything to store?
       if ($edit) {
   # check if this was called with a query string
    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['queryid']);
    if ($env{'form.queryid'}) {
   # yes, collect the remainder
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
       ['title',
        'description',
        'url',
        'status',
        'enclosureurl',
        'enclosuretype']);
   
   #    my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype)=@_;
   
   
       &editentry($env{'form.queryid'},
          $uname,$udom,$filename,
          $env{'form.title'},
          $env{'form.description'},
          $env{'form.url'},
          $env{'form.status'},
          $env{'form.encurl'},
          $env{'form.enctype'}
          );
    }
   
   # store away the fields modified in the online form
    my %newsfeed=&Apache::lonnet::dump($feedname,$udom,$uname);
    foreach my $entry (sort(keys(%newsfeed)),$env{'form.newid'}.'_status') {
       if ($entry=~/^(\d+)\_status$/) {
    my $id=$1;
    if ($env{'form.'.$id.'_modified'}) {
       &editentry($id,$uname,$udom,$feedname,
          $env{'form.'.$id.'_title'},
          $env{'form.'.$id.'_description'},
          $env{'form.'.$id.'_link'},
          $env{'form.'.$id.'_status'},
          $env{'form.'.$id.'_enclosureurl'},
          $env{'form.'.$id.'_enclosuretype'},
          );
    }
       }
    }
   
   # see if we have any uploaded or portfolio files
                   my @uploadeditems=();
   
    if ($env{'form.HWFILE0_0'}) {
   # We have an uploaded file - store it away.
       $uploadeditems[0]=&Apache::lonnet::userfileupload('HWFILE0_0',undef,'portfolio/podcasts');
    }
    if ($env{'form.HWPORT0_0'}) {
   # Selected portfolio files
       foreach my $filename (split(/\,/,$env{'form.HWPORT0_0'})) {
    if ($filename) {
   # construct full path and remember
       push(@uploadeditems,'/uploaded/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/portfolio'.$filename);
    }
       }
    }
   # the zeroth item should be stored together with the last displayed (newid) field
    if ($uploadeditems[0]) {
       my $id=$env{'form.newid'};
       &editentry($id,$uname,$udom,$feedname,
          $env{'form.'.$id.'_title'},
          $env{'form.'.$id.'_description'},
          $env{'form.'.$id.'_link'},
          $env{'form.'.$id.'_status'},
          $uploadeditems[0],
          &Apache::loncommon::filemimetype(($uploadeditems[0]=~/\.(\w+)$/)[0]),
          );
       &Apache::lonnet::make_public_indefinitely($uploadeditems[0]);
    }
   # if there are more files, they need new entries, since each can only have one enclosure
    for (my $i=1; $i<=$#uploadeditems; $i++) {
       my $id = &get_new_feed_id().$i;
       &editentry($id,$uname,$udom,$feedname,
          'New Entry',
          '',
          '',
          'public',
          $uploadeditems[$i],
          &Apache::loncommon::filemimetype(($uploadeditems[$i]=~/\.(\w+)$/)[0]),
          );
       &Apache::lonnet::make_public_indefinitely($uploadeditems[$i]);
    }
       } #done storing
   
   # Render private items?
               my $viewpubliconly=1;
       $r->print("\n".
         ($html?'<hr /><h3>':'<title>').
         &mt('LON-CAPA Feed "[_1]" for [_2]',$displayfeedname,$name).
         ($displayoption eq 'hidden'?' ('.&mt('Hidden').')':'').
         ($html?'</h3>'.($edit?'<form method="post" name="lonhomework" enctype="multipart/form-data" action=""><br />'.
         &mt('Name of this Feed').
         ': <input type="text" size="50" name="newblogname" value="'.
         $displayfeedname.'" />':'').'<ul>':'</title>'));
       if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) {
    $viewpubliconly=0;
               }
 # Get feed items  # Get feed items
         my %newsfeed=&Apache::lonnet::dump($feedname,$udom,$uname);      my %newsfeed=&Apache::lonnet::dump($feedname,$udom,$uname);
  foreach (sort keys %newsfeed) {      foreach my $entry (sort {$b cmp $a} (keys(%newsfeed)),$newid.'_status') {
     if ($_=~/^(\d+)\_status$/) {   if ($entry=~/^(\d+)\_status$/) { # is an entry
  my $id=$1;      my $id=$1;
  if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { next; }      if ($edit) {
  if ($newsfeed{$id.'_status'} eq 'hidden') { next; }   my %lt=&Apache::lonlocal::texthash('public' => 'public',
  $r->print("\n<item>\n<title>".$newsfeed{$id.'_title'}."</title>\n<description>".     'private' => 'private',
   $newsfeed{$id.'_description'}."</description>\n<link>".     'hidden' => 'hidden',
   $newsfeed{$id.'_link'}."</link>\n");     'delete' => 'delete',
  if ($newsfeed{$id.'_enclosureurl'}) {     'store' => 'Select',
     $r->print("\n<enclosure url='".$newsfeed{$id.'_enclosureurl'}."' length='".$newsfeed{$id.'_enclosurelength'}.     'title' => 'Title',
       "' type='".$newsfeed{$id.'_enclosuretype'}."' />");     'link' => 'Link',
      'description' => 'Description',
                                                              'enc' => 'Podcasted enclosure');
                           my $uploadlink;
                           if ($entry==$newid) {
   # Generate upload link only for last (new) entry
       $uploadlink=&Apache::inputtags::file_selector(0,0,'*','both');
    } else {
   # Otherwise, display
                               $uploadlink='<tt>'.$newsfeed{$id.'_enclosureurl'}.'</tt>'.
    "<input type='hidden' name='$id\_enclosureurl' value='$newsfeed{$id.'_enclosureurl'}' />".
    "<input type='hidden' name='$id\_enclosuretype' value='$newsfeed{$id.'_enclosuretype'}' />";
    }
    my %status=();
    unless ($newsfeed{$id.'_status'}) { $newsfeed{$id.'_status'}='public'; }
    $status{$newsfeed{$id.'_status'}}='checked="checked"';
    $r->print(<<ENDEDIT);
   <li>
   <label><input name='$id\_modified' type='checkbox' value="modified" /> $lt{'store'}</label>
   &nbsp;&nbsp;
   <label><input name='$id\_status' type="radio" value="public" $status{'public'} onClick="changed(this.form,'$id');" /> $lt{'public'}</label>
   &nbsp;&nbsp;
   <label><input name='$id\_status' type="radio" value="private" $status{'private'} onClick="changed(this.form,'$id');" /> $lt{'private'}</label>
   &nbsp;&nbsp;
   <label><input name='$id\_status' type="radio" value="hidden" $status{'hidden'} onClick="changed(this.form,'$id');" /> $lt{'hidden'}</label>
   &nbsp;&nbsp;
   <label><input name='$id\_status' type="radio" value="deleted" onClick="changed(this.form,'$id');" /> $lt{'delete'}</label>
   <br />
   $lt{'title'}:
   <input name='$id\_title' type='text' size='60' value='$newsfeed{$id.'_title'}' onChange="changed(this.form,'$id');" /><br />
   $lt{'description'}:<br />
   <textarea name='$id\_description' rows="6" cols="80" onChange="changed(this.form,'$id');">$newsfeed{$id.'_description'}</textarea><br />
   $lt{'link'}:
   <input name='$id\_link' type='text' size='60' value='$newsfeed{$id.'_link'}' onChange="changed(this.form,'$id');" /><br />
   $lt{'enc'} -
   $uploadlink
   <hr /></li>
   ENDEDIT
       } else { # not in edit mode, just displaying
    if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { 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'}.
     ($html?"</b><br />\n":"</title>\n<description>").
     $newsfeed{$id.'_description'}.
     ($html?"<br />":"</description>\n").
     ($link?($html?"\n<a href='":"<link>").
     $link.
     ($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"):''));
    my $enclosure=$newsfeed{$id.'_enclosureurl'};
   # Enclosure? Get stats
    if ($enclosure) {
       my @stat=&Apache::lonnet::stat_file($enclosure);
       if ($stat[7]) {
   # Has non-zero length (and exists)
    my $enclosuretype=$newsfeed{$id.'_enclosuretype'};
    if ($enclosure =~ m|^/| ) {
       $enclosure = "http://".$ENV{'HTTP_HOST'}.$enclosure;
    }
    $r->print(($html?"<a href='":"\n<enclosure url='").
     $enclosure."' length='".$stat[7].
     "' type='".$enclosuretype.($html?"'>".&mt('Enclosure')."</a>":"' />"));
       }
    }
    if ($html) { # is HTML
       $r->print("\n<hr /></li>\n");
    } else { # is RSS
       $r->print("\n<guid isPermaLink='false'>".$id.$filterfeedname.'_'.$udom.'_'.$uname."</guid></item>\n");
    }
       } # end of "in edit mode"
    } # end of rendering a real entry
       } # end of loop through all keys
       if ($html) {
    $r->print('</ul>');
    if ($edit) {
       $r->print('<input type="hidden" name="newid" value="'.$newid.'"/><input type="submit" value="'.&mt('Save Selected').'" />'.
         ($displayoption eq 'hidden'?'<input type="submit" name="advertisethisblog" value="'.&mt('Advertise this Feed').'" />':
          '<input type="submit" name="hidethisblog" value="'.&mt('Hide this Feed').'" />'));
  }   }
  $r->print("\n<guid>".$id.$filterfeedname.'_'.$udom.'_'.$uname."</guid></item>\n");                  $r->print('</form>');
     }      }
  }   } # was a real display feedname
     }   $r->print(($html?&Apache::loncommon::end_page():'</channel></rss>'."\n"));
     $r->print("\n</channel></rss>\n");      } # a real user
     return OK;      return OK;
 }   } # end handler
   
 1;  1;
 __END__  __END__
Removed from v.1.2  
changed lines
  Added in v.1.52

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