loncom/interface/lonrss.pm - view

File: [LON-CAPA] / loncom / interface / lonrss.pm
Revision 1.49: download - view: text, annotated - select for diffs
Wed Nov 4 15:38:27 2009 UTC (14 years, 6 months ago) by raeburn
Branches: MAIN
CVS tags: version_2_9_99_0, version_2_10_X, version_2_10_1, version_2_10_0_RC2, version_2_10_0_RC1, version_2_10_0, loncapaMITrelate_1, language_hyphenation_merge, language_hyphenation, bz6209-base, bz6209, PRINT_INCOMPLETE_base, PRINT_INCOMPLETE, HEAD, GCI_3, BZ4492-merge, BZ4492-feature_horizontal_radioresponse

- Accommodate Communities
  - (C)course -> (C)community

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