|
version 1.24, 2006/06/02 10:02:37
|
version 1.27, 2006/08/11 20:11:47
|
|
Line 200 sub add_blog_entry_link {
|
Line 200 sub add_blog_entry_link {
|
| my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype,$linktext)=@_; |
my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype,$linktext)=@_; |
| return "<a href='/adm/$udom/$uname/".&filterfeedname($filename).'_rss.html?queryid='. |
return "<a href='/adm/$udom/$uname/".&filterfeedname($filename).'_rss.html?queryid='. |
| &escape($id). |
&escape($id). |
| '&title='.&escape($title). |
'&title='.&escape($title). |
| '&description='.&escape($description). |
'&description='.&escape($description). |
| '&url='.&escape($url). |
'&url='.&escape($url). |
| '&status='.&escape($status). |
'&status='.&escape($status). |
| '&encurl='.&escape($encurl). |
'&encurl='.&escape($encurl). |
| '&enctype='.&escape($enctype). |
'&enctype='.&escape($enctype). |
| "'>".$linktext.'</a>'; |
"'>".$linktext.'</a>'; |
| |
|
| } |
} |
|
Line 241 sub handler {
|
Line 241 sub handler {
|
| my $feedname=&feedname($filename); |
my $feedname=&feedname($filename); |
| my ($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom); |
my ($displayfeedname,$displayoption)=&displayfeedname($filename,$uname,$udom); |
| if ($html) { |
if ($html) { |
| $r->print(&Apache::loncommon::start_page(($displayfeedname?$displayfeedname:&mt("Available RSS Feeds and Blogs")),undef, |
my $title = $displayfeedname?$displayfeedname |
| |
:"Available RSS Feeds and Blogs"; |
| |
$r->print(&Apache::loncommon::start_page($title,undef, |
| {'domain' => $udom, |
{'domain' => $udom, |
| 'force_register' => |
'force_register' => |
| $env{'form.register'}}). |
$env{'form.register'}}). |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonrss.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface