--- loncom/interface/lonrss.pm 2005/11/18 19:11:06 1.3 +++ loncom/interface/lonrss.pm 2006/03/23 22:32:11 1.13 @@ -1,7 +1,7 @@ # The LearningOnline Network # RSS Feeder # -# $Id: lonrss.pm,v 1.3 2005/11/18 19:11:06 albertel Exp $ +# $Id: lonrss.pm,v 1.13 2006/03/23 22:32:11 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -38,7 +38,7 @@ use Apache::lonhtmlcommon; sub filterfeedname { my $filename=shift; - $filename=~s/\.rss$//; + $filename=~s/(\_rss\.html|\.rss)$//; $filename=~s/\W//g; return $filename; } @@ -74,14 +74,20 @@ sub renamefeed { } sub advertisefeeds { - my ($uname,$udom)=@_; + my ($uname,$udom,$edit)=@_; my $feeds=''; my %feednames=&Apache::lonnet::dump('nohist_all_rss_feeds',$udom,$uname); + my $mode='public'; + if ($edit) { + $mode='adm'; + } foreach my $feed (sort(keys(%feednames))) { if ($feed!~/^error\:/) { - my $url='feed://'.$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss'; - $feeds.='
  • '. - $feednames{$feed}.'
    '.$url.'
    • '; + my $feedurl='feed://'.$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'.$feed.'.rss'; + my $htmlurl='http://'.$ENV{'HTTP_HOST'}.'/'.$mode.'/'.$udom.'/'.$uname.'/'.$feed.'_rss.html'; + $feeds.='
  • '.$feednames{$feed}. + '
    '.($edit?&mt('Edit'):'HTML').': '.$htmlurl.''. + ($edit?'':'
    RSS: '.$feedurl.'').'
    • '; } } if ($feeds) { @@ -91,6 +97,12 @@ sub advertisefeeds { } } +sub rss_link { + my ($url) = @_; + return qq||; + +} + { my $feedcounter; sub addentry { @@ -132,23 +144,64 @@ sub changestatus { } } +sub changed_js { + return < + function changed(tform,id) { + tform.elements[id+"_modified"].checked=true; + } + +ENDSCRIPT +} + sub handler { - my $r = shift; - &Apache::loncommon::content_type($r,'application/rss+xml'); + my ($r) = @_; + + 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 ($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; return OK if $r->header_only; - my (undef,undef,$udom,$uname,$filename)=split(/\//,$r->uri); my $filterfeedname=&filterfeedname($filename); my $feedname=&feedname($filename); my $displayfeedname=&displayfeedname($filename,$uname,$udom); - $r->print("\n". - "\nhttp://".$ENV{'HTTP_HOST'}.'/'. - "\n".&mt('An RSS Feed provided by the LON-CAPA Learning Content Management System').''); + if ($html) { + $r->print(&Apache::loncommon::start_page($displayfeedname,undef, + {'domain' => $udom, + 'force_register' => + $env{'form.register'}}). + &changed_js()); + + } else { + $r->print("\n". + "\nhttp://".$ENV{'HTTP_HOST'}.'/public/'.$udom.'/'.$uname.'/'. + $filterfeedname.'_rss.html'. + "\n". + &mt('An RSS Feed provided by the LON-CAPA Learning Content Management System'). + ''); + } # Is this user for real? - my $homeserver=&Apache::lonnet::homeserver($uname,$udom); + my $homeserver=&Apache::lonnet::homeserver($uname,$udom); + if ($html) { + $r->print(&advertisefeeds($uname,$udom,$edit)); + } if ($homeserver eq 'no_host') { - $r->print(''.&mt('No feed available').''); + $r->print(($html?'

    ':'').&mt('No feed available').($html?'</h3>':'')); } else { # Course or user? my $name=''; @@ -158,7 +211,13 @@ sub handler { } else { $name=&Apache::loncommon::nickname($uname,$udom); } - $r->print("\n".&mt('LON-CAPA RSS Feed "[_1]" for [_2]',$displayfeedname,$name).''); + $r->print("\n". + ($html?'

    ':''). + &mt('LON-CAPA Feed "[_1]" for [_2]',$displayfeedname,$name). + ($html?'</h3>'.($edit?'<form method="post"><br />'. + &mt('Name of blog/journal'). + ': <input type="text" size="50" name="newblogname" value="'. + $displayfeedname.'" />':'').'<ul>':'')); # Render private items? my $viewpubliconly=1; if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) { @@ -166,25 +225,60 @@ sub handler { } # Get feed items my %newsfeed=&Apache::lonnet::dump($feedname,$udom,$uname); - foreach $entry (sort(keys(%newsfeed))) { + foreach my $entry (sort(keys(%newsfeed))) { if ($entry=~/^(\d+)\_status$/) { my $id=$1; - if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { next; } - if ($newsfeed{$id.'_status'} eq 'hidden') { next; } - $r->print("\n\n".$newsfeed{$id.'_title'}."\n". - $newsfeed{$id.'_description'}."\n"."http://".$ENV{'HTTP_HOST'}. - $newsfeed{$id.'_link'}."\n"); - if ($newsfeed{$id.'_enclosureurl'}) { - $r->print("\n"); + if ($edit) { + my %lt=&Apache::lonlocal::texthash('public' => 'public', + 'private' => 'private', + 'hidden' => 'hidden', + 'delete' => 'delete', + 'store' => 'Store changes'); + my %status=(); + $status{$newsfeed{$id.'_status'}}='checked="checked"'; + $r->print(< + +   + +   + +   + +   + +
    +
    +
    + +
    +ENDEDIT + } else { + if (($newsfeed{$id.'_status'} ne 'public') && ($viewpubliconly)) { next; } + if ($newsfeed{$id.'_status'} eq 'hidden') { next; } + $r->print("\n".($html?"\n
  • ":"\n").$newsfeed{$id.'_title'}. + ($html?"</b><br />\n":"\n"). + $newsfeed{$id.'_description'}. + ($html?"
    \n".&mt('Read more')."
    \n"):"\n")); + if ($newsfeed{$id.'_enclosureurl'}) { + $r->print(($html?"".&mt('Enclosure')."":"' />")); + } + if ($html) { + $r->print("\n
    • \n"); + } else { + $r->print("\n".$id.$filterfeedname.'_'.$udom.'_'.$uname."    \n"); + } } - $r->print("\n".$id.$filterfeedname.'_'.$udom.'_'.$uname."\n"); } } } - $r->print("\n\n"); + $r->print("\n".($html?''.($edit?'':'').&Apache::loncommon::end_page():''."\n")); return OK; } - 1; __END__