--- loncom/interface/lonrss.pm 2019/08/14 16:06:42 1.53.2.4
+++ loncom/interface/lonrss.pm 2017/01/01 13:50:06 1.56
@@ -1,7 +1,7 @@
# The LearningOnline Network
# RSS Feeder
#
-# $Id: lonrss.pm,v 1.53.2.4 2019/08/14 16:06:42 raeburn Exp $
+# $Id: lonrss.pm,v 1.56 2017/01/01 13:50:06 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -345,8 +345,8 @@ sub handler {
# my $title = $displayfeedname?$displayfeedname:"Available RSS Feeds and Blogs";
my $title = "My Space";
my $rss_link = &Apache::lonrss::rss_link($uname,$udom);
- my $head_extra = $rss_link.'';
+ my $head_extra = $rss_link.'';
my $brcrumb = [{href=>$rss_link,text=>"Available RSS Feeds and Blogs"}];
$r->print(&Apache::loncommon::start_page($title,$head_extra,
{'bread_crumbs' => $brcrumb,
@@ -536,23 +536,23 @@ sub handler {
'title' => 'Title',
'link' => 'Link',
'description' => 'Description',
- 'enc' => 'Podcasted enclosure');
- my $uploadlink;
- if ($entry==$newid) {
+ 'enc' => 'Podcasted enclosure');
+ my $uploadlink;
+ if ($entry==$newid) {
# Generate upload link only for last (new) entry
-# Calculate the quota space available in the user's portfolio
- my $disk_quota = &Apache::loncommon::get_user_quota($env{'user.name'},
- $env{'user.domain'}); # expressed in MB
- my $portfolio_root = '/userfiles/portfolio';
- my $getpropath = 1;
- my $current_disk_usage = &Apache::lonnet::diskusage(
- $env{'user.domain'}, $env{'user.name'},
- $portfolio_root, $getpropath); # Expressed in kB
- # Convert to MB for use in file_selector()
- my $free_space = $disk_quota - ($current_disk_usage / 1024.);
- # Format this number since it will be displayed onscreen
- $free_space = sprintf("%.1f", $free_space);
- $uploadlink=&Apache::inputtags::file_selector(0,0,'*','both','',$free_space);
+ # Calculate the quota space available in the user's portfolio
+ my $disk_quota = &Apache::loncommon::get_user_quota($env{'user.name'},
+ $env{'user.domain'}); # expressed in MB
+ my $portfolio_root = '/userfiles/portfolio';
+ my $getpropath = 1;
+ my $current_disk_usage = &Apache::lonnet::diskusage(
+ $env{'user.domain'}, $env{'user.name'},
+ $portfolio_root, $getpropath); # Expressed in kB
+ # Convert to MB for use in file_selector()
+ my $free_space = $disk_quota - ($current_disk_usage / 1024.);
+ # Format this number since it will be displayed onscreen
+ $free_space = sprintf("%.1f", $free_space);
+ $uploadlink=&Apache::inputtags::file_selector(0,0,'*','both','',$free_space);
} else {
# Otherwise, display
$uploadlink=''.$newsfeed{$id.'_enclosureurl'}.''.