--- loncom/interface/londocs.pm 2003/09/08 21:19:44 1.76 +++ loncom/interface/londocs.pm 2003/09/15 15:24:18 1.78 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.76 2003/09/08 21:19:44 www Exp $ +# $Id: londocs.pm,v 1.78 2003/09/15 15:24:18 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -162,15 +162,25 @@ sub dumpcourse { $title=~s/\W//gs; $r->print('
Internal Filename | Title | Save as ... |
---|---|---|
'.$_.' | '); + my ($ext)=($_=~/\.(\w+)$/); + my $title=$hash{'title_'.$hash{ + 'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}}; + $r->print(''.($title?$title:' ').' | '); + unless ($title) { + $title=$_; + } + $title=~s/\.(\w+)$//; + $title=~s/\W+/\_/gs; + $title.='.'.$ext; + $r->print("\n