version 1.25, 2006/06/03 21:05:04
|
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 243 sub handler {
|
Line 243 sub handler {
|
if ($html) { |
if ($html) { |
my $title = $displayfeedname?$displayfeedname |
my $title = $displayfeedname?$displayfeedname |
:"Available RSS Feeds and Blogs"; |
:"Available RSS Feeds and Blogs"; |
$r->print(&Apache::loncommon::start_page($title,undef |
$r->print(&Apache::loncommon::start_page($title,undef, |
{'domain' => $udom, |
{'domain' => $udom, |
'force_register' => |
'force_register' => |
$env{'form.register'}}). |
$env{'form.register'}}). |