--- loncom/interface/londocs.pm 2004/06/15 15:50:03 1.130 +++ loncom/interface/londocs.pm 2004/07/04 05:43:12 1.134 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.130 2004/06/15 15:50:03 www Exp $ +# $Id: londocs.pm,v 1.134 2004/07/04 05:43:12 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -157,7 +157,7 @@ sub dumpcourse { $crs=~s/\_/\//g; foreach (keys %replacehash) { my $newfilename=$title.'/'.$replacehash{$_}; - $newfilename=~s/[^\w\/\.]+/\_/g; + $newfilename=~s/[^\w\/\.\/]+/\_/g; my @dirs=split(/\//,$newfilename); my $path='/home/'.$ca.'/public_html'; my $makepath=$path; @@ -201,7 +201,8 @@ sub dumpcourse { $r->print( '<input type="hidden" name="authorspace" value="'.$1.'" />'); } else { - $r->print('<option value="'.$1.'">'.$_.'</option>'); + $r->print('<option value="'.$1.'">'.$1.' - '. + &Apache::loncommon::plainname(split(/\@/,$1)).'</option>'); } } } @@ -224,7 +225,7 @@ sub dumpcourse { $title=$_; } $title=~s/\.(\w+)$//; - $title=~s/\W+/\_/gs; + $title=~s/[^\w\/]+/\_/gs; $title.='.'.$ext; $r->print("\n<td><input type='text' size='60' name='namefor_".$_."' value='".$title."' /></td></tr>\n"); } @@ -494,6 +495,9 @@ sub editor { $r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum)); $idx++; } + unless ($idx) { + $r->print('<tr><td>'.&mt('Currently no documents.').'</td></tr>'); + } $r->print('</table>'); } } @@ -1220,8 +1224,7 @@ ENDNEWSCRIPT $r->print('</head>'. &Apache::loncommon::bodytag('Course Documents','',$events, '','',$showdoc). - &Apache::loncommon::help_open_faq(273). - &Apache::loncommon::help_open_bug('RAT')); + &Apache::loncommon::help_open_menu('','','','',273,'RAT')); unless ($showdoc) { # ----------------------------------------------------------------------------- my %lt=&Apache::lonlocal::texthash(