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

Diff for /loncom/interface/lonrss.pm between versions 1.18 and 1.39.2.2

version 1.18, 2006/05/10 15:52:11 version 1.39.2.2, 2008/12/22 14:41:05
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();
   
 sub filterfeedname {  sub filterfeedname {
     my $filename=shift;      my $filename=shift;
Line 54  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/) {
Line 66  sub displayfeedname { Line 67  sub displayfeedname {
     } 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,$edit)=@_;      my ($uname,$udom,$edit)=@_;
     my $feeds='';      my $feeds='';
Line 84  sub advertisefeeds { Line 92  sub advertisefeeds {
     if ($edit) {      if ($edit) {
  $mode='adm';   $mode='adm';
     }      }
       my $server = &Apache::lonnet::absolute_url();
     foreach my $feed (sort(keys(%feednames))) {      foreach my $feed (sort(keys(%feednames))) {
  if ($feed!~/^error\:/) {   next if ($feed =~/^\s*$/    ||
     my $feedurl='http://'.$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss';   $feed =~ /^error:/ ||
     my $htmlurl='http://'.$ENV{'HTTP_HOST'}.'/'.$mode.'/'.$udom.'/'.$uname.'/'.$feed.'_rss.html';   $feed =~ /^feed_display_option_/);
     $feeds.='<li>'.$feednames{$feed}.  
  '<br />'.($edit?&mt('Edit'):'HTML').': <a href="'.$htmlurl.'"><tt>'.$htmlurl.'</tt></a>'.   my $feedurl= $server.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss';
  '<br />RSS: <a href="'.$feedurl.'"><tt>'.$feedurl.'</tt></a></li>';   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 101  sub advertisefeeds { Line 118  sub advertisefeeds {
 }  }
   
 sub rss_link {  sub rss_link {
     my ($url) = @_;      my ($uname,$udom)=@_;
     return qq|<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$url" />|;      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;
 }  }
   
 {  {
Line 125  sub editentry { Line 156  sub editentry {
     }      }
     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,
Line 167  sub determine_enclosure_types { Line 199  sub determine_enclosure_types {
     return &Apache::loncommon::filemimetype($ending);      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);
               }
           } 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) = @_;      my ($r) = @_;
   
Line 177  sub handler { Line 283  sub handler {
  $edit=1;   $edit=1;
  $html=1;   $html=1;
     }      }
       if  (($mode eq 'adm') && (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
    $edit=1;
    $html=1;
       }
     if ($filename=~/\.html$/) {      if ($filename=~/\.html$/) {
  $html=1;   $html=1;
     }      }
Line 192  sub handler { Line 302  sub handler {
   
     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);
       my ($blocked,$blocktext,$disabled,$disabletext);
       if (!&Apache::lonnet::is_course($udom,$uname)) {
           ($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) {      if ($html) {
  $r->print(&Apache::loncommon::start_page($displayfeedname,undef,   my $title = $displayfeedname?$displayfeedname
                                       :"Available RSS Feeds and Blogs";
    my $rss_link = &Apache::lonrss::rss_link($uname,$udom);
    $r->print(&Apache::loncommon::start_page($title,$rss_link,
  {'domain'         => $udom,   {'domain'         => $udom,
   'force_register' =>    'force_register' =>
       $env{'form.register'}}).        $env{'form.register'}}).
   &changed_js());    &changed_js());
     } else { # render RSS      } 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>".   $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>'.$server.'/public/'.$udom.'/'.$uname.'/'.
   $filterfeedname.'_rss.html</link>'.    $filterfeedname.'_rss.html</link>'.
   "\n<description>".    "\n<description>".
   &mt('An RSS Feed provided by the LON-CAPA Learning Content Management System').    &mt('An RSS Feed provided by the LON-CAPA Learning Content Management System').
   '</description>');    '</description>');
     }      }
 # Do we have stuff to store?  # This will be the entry id for new additions to the blog
     my $newid = &get_new_feed_id();      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) {      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));   $r->print(&advertisefeeds($uname,$udom,$edit));
     }       } 
     if ($homeserver eq 'no_host') {      if ($homeserver eq 'no_host') {
  $r->print(($html?'<h3>':'<title>').&mt('No feed available').($html?'</h3>':'</title>'));   $r->print(($html?'<h3>':'<title>').&mt('No feed available').($html?'</h3>':'</title>'));
       } 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      } 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);
  }   }
   # Add a new feed
           if (($html) && ($edit)) {
       $r->print('<form method="post" name="makenewfeed">');
               $r->print(&mt('Name for New Feed').": <input type='text' size='40' name='namenewblog' />");
       $r->print('<input type="submit" value="'.&mt('Start a New Feed').'" />');
       $r->print('</form>');
    }
         if ($displayfeedname) { # this is an existing feed          if ($displayfeedname) { # this is an existing feed
 # Anything to store?  # Anything to store?
     if ($edit) {      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);   my %newsfeed=&Apache::lonnet::dump($feedname,$udom,$uname);
  foreach my $entry (sort(keys(%newsfeed)),$env{'form.newid'}.'_status') {   foreach my $entry (sort(keys(%newsfeed)),$env{'form.newid'}.'_status') {
     if ($entry=~/^(\d+)\_status$/) {      if ($entry=~/^(\d+)\_status$/) {
Line 236  sub handler { Line 432  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.'_enclosuretype'},
          );
  }   }
     }      }
  }   }
  if ($env{'form.newblogname'} ne $displayfeedname) {  
     &Apache::lonnet::put('nohist_all_rss_feeds',{ $filterfeedname => $env{'form.newblogname'} },$udom,$uname);  # see if we have any uploaded or portfolio files
     $displayfeedname=&displayfeedname($filename,$uname,$udom);                  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      } #done storing
   
   # Render private items?
               my $viewpubliconly=1;
     $r->print("\n".      $r->print("\n".
       ($html?'<h3>':'<title>').        ($html?'<hr /><h3>':'<title>').
       &mt('LON-CAPA Feed "[_1]" for [_2]',$displayfeedname,$name).        &mt('LON-CAPA Feed "[_1]" for [_2]',$displayfeedname,$name).
       ($html?'</h3>'.($edit?'<form method="post"><br />'.        ($displayoption eq 'hidden'?' ('.&mt('Hidden').')':'').
       &mt('Name of blog/journal').        ($html?'</h3>'.($edit?'<form method="post" name="lonhomework" enctype="multipart/form-data"><br />'.
         &mt('Name of this Feed').
       ': <input type="text" size="50" name="newblogname" value="'.        ': <input type="text" size="50" name="newblogname" value="'.
       $displayfeedname.'" />':'').'<ul>':'</title>'));        $displayfeedname.'" />':'').'<ul>':'</title>'));
 # Render private items?  
     my $viewpubliconly=1;  
     if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) {      if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) {
  $viewpubliconly=0;   $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 my $entry (sort(keys(%newsfeed)),$newid.'_status') {      foreach my $entry (sort {$b cmp $a} (keys(%newsfeed)),$newid.'_status') {
  if ($entry=~/^(\d+)\_status$/) { # is an entry   if ($entry=~/^(\d+)\_status$/) { # is an entry
     my $id=$1;      my $id=$1;
     if ($edit) {      if ($edit) {
Line 269  sub handler { Line 508  sub handler {
    'private' => 'private',     'private' => 'private',
    'hidden' => 'hidden',     'hidden' => 'hidden',
    'delete' => 'delete',     'delete' => 'delete',
    'store' => 'Store changes',     'store' => 'Save changes',
    'title' => 'Title',     'title' => 'Title',
    'link' => 'Link',     'link' => 'Link',
    'description' => 'Description');     '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=();   my %status=();
  unless ($newsfeed{$id.'_status'}) { $newsfeed{$id.'_status'}='public'; }   unless ($newsfeed{$id.'_status'}) { $newsfeed{$id.'_status'}='public'; }
  $status{$newsfeed{$id.'_status'}}='checked="checked"';   $status{$newsfeed{$id.'_status'}}='checked="checked"';
Line 293  $lt{'title'}: Line 543  $lt{'title'}:
 $lt{'description'}:<br />  $lt{'description'}:<br />
 <textarea name='$id\_description' rows="6" cols="80" onChange="changed(this.form,'$id');">$newsfeed{$id.'_description'}</textarea><br />  <textarea name='$id\_description' rows="6" cols="80" onChange="changed(this.form,'$id');">$newsfeed{$id.'_description'}</textarea><br />
 $lt{'link'}:  $lt{'link'}:
 <input name='$id\_link' type='text' size='60' value='$newsfeed{$id.'_link'}' onChange="changed(this.form,'$id');" />  <input name='$id\_link' type='text' size='60' value='$newsfeed{$id.'_link'}' onChange="changed(this.form,'$id');" /><br />
   $lt{'enc'} -
   $uploadlink
 <hr /></li>  <hr /></li>
 ENDEDIT  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 />":"</description>\n").
   "http://".$ENV{'HTTP_HOST'}.    ($link?($html?"\n<a href='":"<link>").
   $newsfeed{$id.'_link'}.    $link.
   ($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"));    ($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"):''));
    my $enclosure=$newsfeed{$id.'_enclosureurl'};
 # Enclosure? Get stats  # Enclosure? Get stats
  if ($newsfeed{$id.'_enclosureurl'}) {   if ($enclosure) {
     my @stat=&Apache::lonnet::stat_file($newsfeed{$id.'_enclosureurl'});      my @stat=&Apache::lonnet::stat_file($enclosure);
     if ($stat[7]) {      if ($stat[7]) {
 # Has non-zero length (and exists)  # Has non-zero length (and exists)
  my $enclosuretype=$newsfeed{$id.'_enclosetype'};   my $enclosuretype=$newsfeed{$id.'_enclosuretype'};
    if ($enclosure =~ m|^/| ) {
       $enclosure = "http://".$ENV{'HTTP_HOST'}.$enclosure;
    }
  $r->print(($html?"<a href='":"\n<enclosure url='").   $r->print(($html?"<a href='":"\n<enclosure url='").
   $newsfeed{$id.'_enclosureurl'}."' length='".$stat[7].    $enclosure."' length='".$stat[7].
   "' type='".$enclosuretype.($html?"'>".&mt('Enclosure')."</a>":"' />"));    "' type='".$enclosuretype.($html?"'>".&mt('Enclosure')."</a>":"' />"));
     }      }
  }   }
Line 328  ENDEDIT Line 588  ENDEDIT
     if ($html) {      if ($html) {
  $r->print('</ul>');   $r->print('</ul>');
  if ($edit) {   if ($edit) {
     $r->print('<input type="hidden" name="newid" value="'.$newid.'"/><input type="submit" value="'.&mt('Store Marked Changes').'" />');      $r->print('<input type="hidden" name="newid" value="'.$newid.'"/><input type="submit" value="'.&mt('Save Marked Changes').'" />'.
         ($displayoption eq 'hidden'?'<input type="submit" name="advertisethisblog" value="'.&mt('Advertise this Feed').'" />':
          '<input type="submit" name="hidethisblog" value="'.&mt('Hide this Feed').'" />'));
  }   }
     }      }
  } # was a real display feedname   } # was a real display feedname
Removed from v.1.18  
changed lines
  Added in v.1.39.2.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.