Return to lonrss.pm CVS log

Up to [LON-CAPA] / loncom / interface

- BUG#5336 - add <link> rss advertisments to the aboutme page and rss pages

    1: # The LearningOnline Network
    2: # RSS Feeder
    3: #
    4: # $Id: lonrss.pm,v 1.37 2007/07/27 00:17:17 albertel Exp $
    5: #
    6: # Copyright Michigan State University Board of Trustees
    7: #
    8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    9: #
   10: # LON-CAPA is free software; you can redistribute it and/or modify
   11: # it under the terms of the GNU General Public License as published by
   12: # the Free Software Foundation; either version 2 of the License, or
   13: # (at your option) any later version.
   14: #
   15: # LON-CAPA is distributed in the hope that it will be useful,
   16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   18: # GNU General Public License for more details.
   19: #
   20: # You should have received a copy of the GNU General Public License
   21: # along with LON-CAPA; if not, write to the Free Software
   22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   23: #
   24: # /home/httpd/html/adm/gpl.txt
   25: #
   26: # http://www.lon-capa.org/
   27: #
   28: 
   29: package Apache::lonrss;
   30: 
   31: use strict;
   32: use LONCAPA;
   33: use Apache::Constants qw(:common);
   34: use Apache::loncommon;
   35: use Apache::lonnet;
   36: use Apache::lontexconvert;
   37: use Apache::lonlocal;
   38: use Apache::lonhtmlcommon;
   39: use Apache::inputtags();
   40: 
   41: sub filterfeedname {
   42:     my $filename=shift;
   43:     $filename=~s/(\_rss\.html|\.rss)$//;
   44:     $filename=~s/\W//g;
   45:     $filename=~s/\_rssfeed$//;
   46:     $filename=~s/^nohist\_//;
   47:     return $filename;
   48: }
   49: 
   50: sub feedname {
   51:     return 'nohist_'.&filterfeedname(shift).'_rssfeed';
   52: }
   53: 
   54: sub displayfeedname {
   55:     my ($rawname,$uname,$udom)=@_;
   56:     my $filterfilename=&filterfeedname($rawname);
   57: # do we have a stored name?
   58:     my %stored=&Apache::lonnet::get('nohist_all_rss_feeds',[$filterfilename,'feed_display_option_'.$filterfilename],$udom,$uname);
   59:     if ($stored{$filterfilename}) { return ($stored{$filterfilename},$stored{'feed_display_option_'.$filterfilename}); }
   60: # no, construct a name
   61:     my $name=$filterfilename; 
   62:     if ($name=~/^CourseBlog/) {
   63:         $name=&mt('Course Blog');
   64: 	if ($env{'course.'.$env{'request.course.id'}.'.description'}) {
   65: 	    $name.=' '.$env{'course.'.$env{'request.course.id'}.'.description'};
   66: 	}
   67:     } else {
   68: 	$name=~s/\_/ /g;
   69:     }
   70:     return ($name,$stored{'feed_display_option_'.$filterfilename});
   71: }
   72: 
   73: sub namefeed {
   74:     my ($rawname,$uname,$udom,$newname)=@_;
   75:     return &Apache::lonnet::put('nohist_all_rss_feeds',
   76: 				{ &filterfeedname($rawname) => $newname },
   77: 				$udom,$uname);
   78: }
   79: 
   80: sub changefeeddisplay {
   81:     my ($rawname,$uname,$udom,$newstatus)=@_;
   82:     return &Apache::lonnet::put('nohist_all_rss_feeds',
   83: 				{ 'feed_display_option_'.&filterfeedname($rawname) => $newstatus },
   84: 				$udom,$uname);
   85: }
   86: 
   87: sub advertisefeeds {
   88:     my ($uname,$udom,$edit)=@_;
   89:     my $feeds='';
   90:     my %feednames=&Apache::lonnet::dump('nohist_all_rss_feeds',$udom,$uname);
   91:     my $mode='public';
   92:     if ($edit) {
   93: 	$mode='adm';
   94:     }
   95:     my $server = &Apache::lonnet::absolute_url();
   96:     foreach my $feed (sort(keys(%feednames))) {
   97: 	next if ($feed =~/^\s*$/    ||
   98: 		 $feed =~ /^error:/ ||
   99: 		 $feed =~ /^feed_display_option_/);
  100: 
  101: 	my $feedurl= $server.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss';
  102: 	my $htmlurl= $server.'/'.$mode.'/'.$udom.'/'.$uname.'/'.$feed.'_rss.html';
  103: 	if ($feednames{'feed_display_option_'.$feed} eq 'hidden') {
  104: 	    if ($edit) {
  105: 		$feeds.='<li><i>'.$feednames{$feed}.'</i><br />'.&mt('Hidden').': <a href="'.$htmlurl.'"><tt>'.$htmlurl.'</tt></a></li>';
  106: 	    }
  107: 	} else {
  108: 	    $feeds.='<li><b>'.$feednames{$feed}.
  109: 		'</b><br />'.($edit?&mt('Edit'):'HTML').': <a href="'.$htmlurl.'"><tt>'.$htmlurl.'</tt></a>'.
  110: 		'<br />'.&mt('Public RSS/podcast (subscribe to)').': <a href="'.$feedurl.'"><tt>'.$feedurl.'</tt></a></li>';
  111: 	}
  112:     }
  113:     if ($feeds) {
  114: 	return '<h4>'.&mt('Available RSS Feeds and Blogs').'</h4><ul>'.$feeds.'</ul>';
  115:     } else {
  116:         return '';
  117:     }
  118: }
  119: 
  120: sub rss_link {
  121:     my ($uname,$udom)=@_;
  122:     my $result;
  123:     my $server = &Apache::lonnet::absolute_url();
  124:     my %feednames=&Apache::lonnet::dump('nohist_all_rss_feeds',$udom,$uname);
  125:     foreach my $feed (sort(keys(%feednames))) {
  126: 	next if ($feed =~/^\s*$/    ||
  127: 		 $feed =~ /^error:/ ||
  128: 		 $feed =~/^feed_display_option_/ );
  129: 	my $url= $server.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss';
  130: 	my $title = $feed;
  131: 	$title =~ s/_/ /g;
  132: 	$result.=qq|
  133: <link rel="alternate" type="application/rss+xml" title="$title" href="$url" />
  134: |;
  135:     }
  136:     return $result;
  137: }
  138: 
  139: {
  140:     my $feedcounter;
  141:     sub get_new_feed_id {
  142: 	$feedcounter++;
  143: 	return time().'00000'.$$.'00000'.$feedcounter;
  144:     }
  145: }
  146: 
  147: sub addentry {
  148:     my $id=&get_new_feed_id();
  149:     return &editentry($id,@_);
  150: }
  151: 
  152: sub editentry {
  153:     my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype)=@_;
  154:     if ($status eq 'deleted') {
  155: 	return &changestatus($id,$uname,$udom,$filename,$status);
  156:     }
  157:     my $feedname=&feedname($filename);
  158:     &Apache::lonnet::put('nohist_all_rss_feeds',
  159: 			 { &filterfeedname($filename) => 
  160: 			       (&displayfeedname($filename,$uname,$udom))[0] },
  161: 			 $udom,$uname);
  162:     return &Apache::lonnet::put($feedname,{
  163: 	$id.'_title' => $title,
  164: 	$id.'_description' => $description,
  165: 	$id.'_link' => $url,
  166: 	$id.'_enclosureurl' => $encurl,
  167: 	$id.'_enclosuretype' => $enctype,
  168: 	$id.'_status' => $status},$udom,$uname);
  169: }
  170: 
  171: sub changestatus {
  172:     my ($id,$uname,$udom,$filename,$status)=@_;
  173:     my $feedname=&feedname($filename);
  174:     if ($status eq 'deleted') {
  175: 	return &Apache::lonnet::del($feedname,[$id.'_title',
  176: 					       $id.'_description',
  177: 					       $id.'_link',
  178: 					       $id.'_enclosureurl',
  179: 					       $id.'_enclosuretype',
  180: 					       $id.'_status'],$udom,$uname);
  181:     } else {
  182: 	return &Apache::lonnet::put($feedname,{$id.'_status' => $status},$udom,$uname);
  183:     }
  184: }
  185: 
  186: sub changed_js {
  187:     return <<ENDSCRIPT;
  188: <script type="text/javascript">
  189:     function changed(tform,id) {
  190:         tform.elements[id+"_modified"].checked=true;
  191:     }
  192: </script>
  193: ENDSCRIPT
  194: }
  195: 
  196: sub determine_enclosure_types {
  197:     my ($url)=@_;
  198:     my ($ending)=($url=~/\.(\w+)$/);
  199:     return &Apache::loncommon::filemimetype($ending);
  200: }
  201: 
  202: sub course_blog_link {
  203:     my ($id,$title,$description,$url,$encurl,$enctype)=@_;
  204:     if ($env{'request.course.id'}) {
  205: 	return &add_blog_entry_link($id,
  206: 				    $env{'course.'.$env{'request.course.id'}.'.num'},
  207: 				    $env{'course.'.$env{'request.course.id'}.'.domain'},
  208: 				    'Course_Announcements',
  209: 				    $title,$description,$url,'public',$encurl,$enctype,
  210: 				    &mt('Add to Course Announcements'));
  211:     } else {
  212: 	return '';
  213:     }
  214: }
  215: 
  216: sub add_blog_entry_link {
  217:     my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype,$linktext)=@_;
  218:     return "<a href='/adm/$udom/$uname/".&filterfeedname($filename).'_rss.html?queryid='.
  219: 	&escape($id).
  220: 	'&amp;title='.&escape($title).
  221: 	'&amp;description='.&escape($description).
  222: 	'&amp;url='.&escape($url).
  223: 	'&amp;status='.&escape($status).
  224: 	'&amp;encurl='.&escape($encurl).
  225: 	'&amp;enctype='.&escape($enctype).
  226: 	"'>".$linktext.'</a>';
  227: 
  228: }
  229: 
  230: sub blocking_blogdisplay {
  231:     my ($uname,$udom,$html,$filterfeedname) = @_;
  232:     my $user = &Apache::loncommon::plainname($uname,$udom);
  233:     if ($html) {
  234:         $user = &Apache::loncommon::aboutmewrapper($user,$uname,$udom);
  235:     } else {
  236:         $user = $user.' ('.$uname.':'.$udom.')';
  237:     }
  238:     my %setters;
  239:     my ($blocked,$output,$blockcause);
  240:     my ($startblock,$endblock) =
  241:              &Apache::loncommon::blockcheck(\%setters,'blogs');
  242:     if ($startblock && $endblock) {
  243:         $blockcause = 'user';
  244:     } else { 
  245:         if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
  246:             ($startblock,$endblock) =
  247:                  &Apache::loncommon::blockcheck(\%setters,'blogs',
  248:                                                 $uname,$udom);
  249:             $blockcause = 'blogowner';
  250:         }
  251:     }
  252:     if ($startblock && $endblock) {
  253:         $blocked = 1;
  254:         my $showstart = &Apache::lonlocal::locallocaltime($startblock);
  255:         my $showend = &Apache::lonlocal::locallocaltime($endblock);
  256:         $output = &mt('Blogs belonging to [_1] are unavailable from [_2] to [_3].',$user,$showstart,$showend);
  257:         if ($html) {$output.='<br />';}
  258:         if ($blockcause eq 'user') {
  259:             $output .= &mt('This is because you are a student in one or more courses in which communication is being blocked.');
  260:             if ($html) {
  261:                 $output .= '<br />'.
  262:                        &Apache::loncommon::build_block_table($startblock,
  263:                                                         $endblock,\%setters);
  264:             }
  265:         } else {
  266:             $output .= &mt('This is because the blog owner is a student in one or more courses in which communication is being blocked.');
  267:         }
  268:         if (!$html) {
  269:             my $id = &get_new_feed_id();
  270:             $output = '<title/><item><title/><description>'.$output."</description><link/><guid isPermaLink='false'>".$id.$filterfeedname.'_'.$udom.'_'.$uname.'</guid></item>';
  271:         }
  272:     }
  273:     return ($blocked,$output);
  274: }
  275: 
  276: sub handler {
  277:     my ($r) = @_;
  278: 
  279:     my $edit=0;
  280:     my $html=0;
  281:     my (undef,$mode,$udom,$uname,$filename)=split(/\//,$r->uri);
  282:     if (($mode eq 'adm') && ($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) {
  283: 	$edit=1;
  284: 	$html=1;
  285:     }
  286:     if  (($mode eq 'adm') && (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
  287: 	$edit=1;
  288: 	$html=1;
  289:     }
  290:     if ($filename=~/\.html$/) {
  291: 	$html=1;
  292:     }
  293:     if ($html) {
  294: 	&Apache::loncommon::content_type($r,'text/html');
  295:     } else {
  296: # Workaround Mozilla/Firefox
  297: #	&Apache::loncommon::content_type($r,'application/rss+xml');
  298: 	&Apache::loncommon::content_type($r,'text/xml');
  299:     }
  300:     $r->send_http_header;
  301:     return OK if $r->header_only;
  302: 
  303:     my $filterfeedname=&filterfeedname($filename);
  304:     my $feedname=&feedname($filename);
  305:     my ($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom);
  306:     my ($blocked,$blocktext);
  307:     if (!&Apache::lonnet::is_course($udom,$uname)) {
  308:         ($blocked,$blocktext) = &blocking_blogdisplay($uname,$udom,$html,$filterfeedname);
  309:     }
  310:     if ($html) {
  311: 	my $title = $displayfeedname?$displayfeedname
  312:                                     :"Available RSS Feeds and Blogs";
  313: 	my $rss_link = &Apache::lonrss::rss_link($uname,$udom);
  314: 	$r->print(&Apache::loncommon::start_page($title,$rss_link,
  315: 						 {'domain'         => $udom,
  316: 						  'force_register' =>
  317: 						      $env{'form.register'}}).
  318: 		  &changed_js());
  319:     } else { # render RSS
  320:         my $server = &Apache::lonnet::absolute_url();
  321: 	$r->print("<rss version='2.0' xmlns:dc='http://purl.org/dc/elements/1.1'>\n<channel>".
  322: 		  "\n".'<link>'.$server.'/public/'.$udom.'/'.$uname.'/'.
  323: 		  $filterfeedname.'_rss.html</link>'.
  324: 		  "\n<description>".
  325: 		  &mt('An RSS Feed provided by the LON-CAPA Learning Content Management System').
  326: 		  '</description>');
  327:     }
  328: # This will be the entry id for new additions to the blog
  329:     my $newid = &get_new_feed_id();
  330: # Is this user for real?
  331:     my $homeserver=&Apache::lonnet::homeserver($uname,$udom);
  332:     if ($html && !$blocked) {
  333: # Any new feeds or renaming of feeds?
  334: 	if ($edit) {
  335: # Hide a feed?
  336: 	    if ($env{'form.hidethisblog'}) {
  337: 		&changefeeddisplay($feedname,$uname,$udom,'hidden');
  338: 		($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom);
  339: 	    }
  340: # Advertise a feed?
  341: 	    if ($env{'form.advertisethisblog'}) {
  342: 		&changefeeddisplay($feedname,$uname,$udom,'public');
  343: 		($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom);
  344: 	    }
  345: # New feed?
  346: 	    if ($env{'form.namenewblog'}=~/\w/) {
  347: 		&namefeed($env{'form.namenewblog'},$uname,$udom,$env{'form.namenewblog'});
  348: 	    }
  349: # Old feed that is being renamed?
  350: 	    if (($displayfeedname) && ($env{'form.newblogname'}=~/\w/)) {
  351: 		if ($env{'form.newblogname'} ne $displayfeedname) {
  352: 		    &namefeed($feedname,$uname,$udom,$env{'form.newblogname'});
  353: 		    ($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom);
  354: 		}
  355: 	    }
  356: 	}
  357: 	$r->print(&advertisefeeds($uname,$udom,$edit));
  358:     } 
  359:     if ($homeserver eq 'no_host') {
  360: 	$r->print(($html?'<h3>':'<title>').&mt('No feed available').($html?'</h3>':'</title>'));
  361:     } elsif ($blocked) {
  362:         $r->print($blocktext);
  363:         $r->print(($html?&Apache::loncommon::end_page():'</channel></rss>'."\n"));
  364:     } else { # is indeed a user
  365: # Course or user?
  366: 	my $name='';
  367: 	if (&Apache::lonnet::is_course($udom,$uname)) {
  368: 	    my %cenv=&Apache::lonnet::dump('environment',$udom,$uname);
  369: 	    $name=$cenv{'description'};
  370: 	} else {
  371: 	    $name=&Apache::loncommon::nickname($uname,$udom);
  372: 	}
  373: # Add a new feed
  374:         if (($html) && ($edit)) {
  375: 	    $r->print('<form method="post" name="makenewfeed">');
  376:             $r->print(&mt('Name for New Feed').": <input type='text' size='40' name='namenewblog' />");
  377: 	    $r->print('<input type="submit" value="'.&mt('Start a New Feed').'" />');
  378: 	    $r->print('</form>');
  379: 	}
  380:         if ($displayfeedname) { # this is an existing feed
  381: # Anything to store?
  382: 	    if ($edit) {
  383: # check if this was called with a query string
  384: 		&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['queryid']);
  385: 		if ($env{'form.queryid'}) {
  386: # yes, collect the remainder
  387: 		    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
  388: 							    ['title',
  389: 							     'description',
  390: 							     'url',
  391: 							     'status',
  392: 							     'enclosureurl',
  393: 							     'enclosuretype']);
  394: 
  395: #    my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype)=@_;
  396: 
  397: 
  398: 		    &editentry($env{'form.queryid'},
  399: 			       $uname,$udom,$filename,
  400: 			       $env{'form.title'},
  401: 			       $env{'form.description'},
  402: 			       $env{'form.url'},
  403: 			       $env{'form.status'},
  404: 			       $env{'form.encurl'},
  405: 			       $env{'form.enctype'}
  406: 			       );
  407: 		}
  408: 
  409: # store away the fields modified in the online form
  410: 		my %newsfeed=&Apache::lonnet::dump($feedname,$udom,$uname);
  411: 		foreach my $entry (sort(keys(%newsfeed)),$env{'form.newid'}.'_status') {
  412: 		    if ($entry=~/^(\d+)\_status$/) {
  413: 			my $id=$1;
  414: 			if ($env{'form.'.$id.'_modified'}) {
  415: 			    &editentry($id,$uname,$udom,$feedname,
  416: 				       $env{'form.'.$id.'_title'},
  417: 				       $env{'form.'.$id.'_description'},
  418: 				       $env{'form.'.$id.'_link'},
  419: 				       $env{'form.'.$id.'_status'},
  420: 				       $env{'form.'.$id.'_enclosureurl'},
  421: 				       $env{'form.'.$id.'_enclosuretype'},
  422: 				       );
  423: 			}
  424: 		    }
  425: 		}
  426: 
  427: # see if we have any uploaded or portfolio files
  428:                 my @uploadeditems=();
  429: 
  430: 		if ($env{'form.HWFILE0_0'}) {
  431: # We have an uploaded file - store it away.
  432: 		    $uploadeditems[0]=&Apache::lonnet::userfileupload('HWFILE0_0',undef,'portfolio/podcasts');
  433: 		}
  434: 		if ($env{'form.HWPORT0_0'}) {
  435: # Selected portfolio files
  436: 		    foreach my $filename (split(/\,/,$env{'form.HWPORT0_0'})) {
  437: 			if ($filename) {
  438: # construct full path and remember
  439: 			    push(@uploadeditems,'/uploaded/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/portfolio'.$filename);
  440: 			}
  441: 		    }
  442: 		}
  443: # the zeroth item should be stored together with the last displayed (newid) field
  444: 		if ($uploadeditems[0]) {
  445: 		    my $id=$env{'form.newid'};
  446: 		    &editentry($id,$uname,$udom,$feedname,
  447: 			       $env{'form.'.$id.'_title'},
  448: 			       $env{'form.'.$id.'_description'},
  449: 			       $env{'form.'.$id.'_link'},
  450: 			       $env{'form.'.$id.'_status'},
  451: 			       $uploadeditems[0],
  452: 			       &Apache::loncommon::filemimetype(($uploadeditems[0]=~/\.(\w+)$/)[0]),
  453: 			       );
  454: 		    &Apache::lonnet::make_public_indefinitely($uploadeditems[0]);
  455: 		}
  456: # if there are more files, they need new entries, since each can only have one enclosure
  457: 		for (my $i=1; $i<=$#uploadeditems; $i++) {
  458: 		    my $id = &get_new_feed_id().$i;
  459: 		    &editentry($id,$uname,$udom,$feedname,
  460: 			       'New Entry',
  461: 			       '',
  462: 			       '',
  463: 			       'public',
  464: 			       $uploadeditems[$i],
  465: 			       &Apache::loncommon::filemimetype(($uploadeditems[$i]=~/\.(\w+)$/)[0]),
  466: 			       );
  467: 		    &Apache::lonnet::make_public_indefinitely($uploadeditems[$i]);
  468: 		}
  469: 	    } #done storing
  470: 
  471: # Render private items?
  472:             my $viewpubliconly=1;
  473: 	    $r->print("\n".
  474: 		      ($html?'<hr /><h3>':'<title>').
  475: 		      &mt('LON-CAPA Feed "[_1]" for [_2]',$displayfeedname,$name).
  476: 		      ($displayoption eq 'hidden'?' ('.&mt('Hidden').')':'').
  477: 		      ($html?'</h3>'.($edit?'<form method="post" name="lonhomework" enctype="multipart/form-data"><br />'.
  478: 				      &mt('Name of this Feed').
  479: 				      ': <input type="text" size="50" name="newblogname" value="'.
  480: 				      $displayfeedname.'" />':'').'<ul>':'</title>'));
  481: 	    if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) {
  482: 		$viewpubliconly=0;
  483:             }
  484: # Get feed items
  485: 	    my %newsfeed=&Apache::lonnet::dump($feedname,$udom,$uname);
  486: 	    foreach my $entry (sort {$b cmp $a} (keys(%newsfeed)),$newid.'_status') {
  487: 		if ($entry=~/^(\d+)\_status$/) { # is an entry
  488: 		    my $id=$1;
  489: 		    if ($edit) {
  490: 			my %lt=&Apache::lonlocal::texthash('public' => 'public',
  491: 							   'private' => 'private',
  492: 							   'hidden' => 'hidden',
  493: 							   'delete' => 'delete',
  494: 							   'store' => 'Save changes',
  495: 							   'title' => 'Title',
  496: 							   'link' => 'Link',
  497: 							   'description' => 'Description',
  498:                                                            'enc' => 'Podcasted enclosure');
  499:                         my $uploadlink;
  500:                         if ($entry==$newid) {
  501: # Generate upload link only for last (new) entry
  502: 			    $uploadlink=&Apache::inputtags::file_selector(0,0,'*','both');
  503: 			} else {
  504: # Otherwise, display
  505:                             $uploadlink='<tt>'.$newsfeed{$id.'_enclosureurl'}.'</tt>'.
  506: 				"<input type='hidden' name='$id\_enclosureurl' value='$newsfeed{$id.'_enclosureurl'}' />".
  507: 				"<input type='hidden' name='$id\_enclosuretype' value='$newsfeed{$id.'_enclosuretype'}' />";
  508: 			}
  509: 			my %status=();
  510: 			unless ($newsfeed{$id.'_status'}) { $newsfeed{$id.'_status'}='public'; }
  511: 			$status{$newsfeed{$id.'_status'}}='checked="checked"';
  512: 			$r->print(<<ENDEDIT);
  513: <li>
  514: <label><input name='$id\_modified' type='checkbox' value="modified" /> $lt{'store'}</label>
  515: &nbsp;&nbsp;
  516: <label><input name='$id\_status' type="radio" value="public" $status{'public'} onClick="changed(this.form,'$id');" /> $lt{'public'}</label>
  517: &nbsp;&nbsp;
  518: <label><input name='$id\_status' type="radio" value="private" $status{'private'} onClick="changed(this.form,'$id');" /> $lt{'private'}</label>
  519: &nbsp;&nbsp;
  520: <label><input name='$id\_status' type="radio" value="hidden" $status{'hidden'} onClick="changed(this.form,'$id');" /> $lt{'hidden'}</label>
  521: &nbsp;&nbsp;
  522: <label><input name='$id\_status' type="radio" value="deleted" onClick="changed(this.form,'$id');" /> $lt{'delete'}</label>
  523: <br />
  524: $lt{'title'}:
  525: <input name='$id\_title' type='text' size='60' value='$newsfeed{$id.'_title'}' onChange="changed(this.form,'$id');" /><br />
  526: $lt{'description'}:<br />
  527: <textarea name='$id\_description' rows="6" cols="80" onChange="changed(this.form,'$id');">$newsfeed{$id.'_description'}</textarea><br />
  528: $lt{'link'}:
  529: <input name='$id\_link' type='text' size='60' value='$newsfeed{$id.'_link'}' onChange="changed(this.form,'$id');" /><br />
  530: $lt{'enc'} -
  531: $uploadlink
  532: <hr /></li>
  533: ENDEDIT
  534: 		    } else { # not in edit mode, just displaying
  535: 			if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { next; }
  536: 			if ($newsfeed{$id.'_status'} eq 'hidden') { next; }
  537: 			my $link =  $newsfeed{$id.'_link'};
  538: 			if ($link =~ m|^/| ) {
  539: 			    $link = "http://".$ENV{'HTTP_HOST'}.$link;
  540: 			}
  541: 			$r->print("\n".($html?"\n<li><b>":"<item>\n<title>").$newsfeed{$id.'_title'}.
  542: 				  ($html?"</b><br />\n":"</title>\n<description>").
  543: 				  $newsfeed{$id.'_description'}.
  544: 				  ($html?"<br />":"</description>\n").
  545: 				  ($link?($html?"\n<a href='":"<link>").
  546: 				  $link.
  547: 				  ($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"):''));
  548: 			my $enclosure=$newsfeed{$id.'_enclosureurl'};
  549: # Enclosure? Get stats
  550: 			if ($enclosure) {
  551: 			    my @stat=&Apache::lonnet::stat_file($enclosure);
  552: 			    if ($stat[7]) {
  553: # Has non-zero length (and exists)
  554: 				my $enclosuretype=$newsfeed{$id.'_enclosuretype'};
  555: 				if ($enclosure =~ m|^/| ) {
  556: 				    $enclosure = "http://".$ENV{'HTTP_HOST'}.$enclosure;
  557: 				}
  558: 				$r->print(($html?"<a href='":"\n<enclosure url='").
  559: 					  $enclosure."' length='".$stat[7].
  560: 					  "' type='".$enclosuretype.($html?"'>".&mt('Enclosure')."</a>":"' />"));
  561: 			    }
  562: 			}
  563: 			if ($html) { # is HTML
  564: 			    $r->print("\n<hr /></li>\n");
  565: 			} else { # is RSS
  566: 			    $r->print("\n<guid isPermaLink='false'>".$id.$filterfeedname.'_'.$udom.'_'.$uname."</guid></item>\n");
  567: 			}
  568: 		    } # end of "in edit mode"
  569: 		} # end of rendering a real entry
  570: 	    } # end of loop through all keys
  571: 	    if ($html) {
  572: 		$r->print('</ul>');
  573: 		if ($edit) {
  574: 		    $r->print('<input type="hidden" name="newid" value="'.$newid.'"/><input type="submit" value="'.&mt('Save Marked Changes').'" />'.
  575: 			      ($displayoption eq 'hidden'?'<input type="submit" name="advertisethisblog" value="'.&mt('Advertise this Feed').'" />':
  576: 			       '<input type="submit" name="hidethisblog" value="'.&mt('Hide this Feed').'" />'));
  577: 		}
  578: 	    }
  579: 	} # was a real display feedname
  580: 	$r->print(($html?'</form>'.&Apache::loncommon::end_page():'</channel></rss>'."\n"));
  581:     } # a real user
  582:     return OK;
  583: } # end handler
  584: 1;
  585: __END__