--- loncom/interface/lonrss.pm	2006/04/13 18:12:49	1.16
+++ loncom/interface/lonrss.pm	2006/04/22 20:58:32	1.17
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # RSS Feeder
 #
-# $Id: lonrss.pm,v 1.16 2006/04/13 18:12:49 albertel Exp $
+# $Id: lonrss.pm,v 1.17 2006/04/22 20:58:32 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -119,7 +119,7 @@ sub addentry {
 }
 
 sub editentry {
-    my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enclength,$enctype)=@_;
+    my ($id,$uname,$udom,$filename,$title,$description,$url,$status,$encurl,$enctype)=@_;
     if ($status eq 'deleted') {
 	return &changestatus($id,$uname,$udom,$filename,$status);
     }
@@ -132,7 +132,6 @@ sub editentry {
 	$id.'_description' => $description,
 	$id.'_link' => $url,
 	$id.'_enclosureurl' => $encurl,
-	$id.'_enclosurelength' => $enclength,
 	$id.'_enclosuretype' => $enctype,
 	$id.'_status' => $status},$udom,$uname);
 }
@@ -145,7 +144,6 @@ sub changestatus {
 					       $id.'_description',
 					       $id.'_link',
 					       $id.'_enclosureurl',
-					       $id.'_enclosurelength',
 					       $id.'_enclosuretype',
 					       $id.'_status'],$udom,$uname);
     } else {
@@ -163,6 +161,12 @@ sub changed_js {
 ENDSCRIPT
 }
 
+sub determine_enclosure_types {
+    my ($url)=@_;
+    my ($ending)=($url=~/\.(\w+)$/);
+    return &Apache::loncommon::filemimetype($ending);
+}
+
 sub handler {
     my ($r) = @_;
 
@@ -289,10 +293,16 @@ ENDEDIT
 			      "http://".$ENV{'HTTP_HOST'}.
 			      $newsfeed{$id.'_link'}.
 			      ($html?("'>".&mt('Read more')."</a><br />\n"):"</link>\n"));
+# Enclosure? Get stats
 		    if ($newsfeed{$id.'_enclosureurl'}) {
-			$r->print(($html?"<a href='":"\n<enclosure url='").
-				  $newsfeed{$id.'_enclosureurl'}."' length='".$newsfeed{$id.'_enclosurelength'}.
-				  "' type='".$newsfeed{$id.'_enclosuretype'}.($html?"'>".&mt('Enclosure')."</a>":"' />"));
+			my @stat=&Apache::lonnet::stat_file($newsfeed{$id.'_enclosureurl'});
+			if ($stat[7]) {
+# Has non-zero length (and exists)
+			    my $enclosuretype=$newsfeed{$id.'_enclosetype'};
+			    $r->print(($html?"<a href='":"\n<enclosure url='").
+				      $newsfeed{$id.'_enclosureurl'}."' length='".$stat[7].
+				      "' type='".$enclosuretype.($html?"'>".&mt('Enclosure')."</a>":"' />"));
+			}
 		    }
 		    if ($html) {
 			$r->print("\n<hr /></li>\n");