--- loncom/publisher/lonpubdir.pm 2004/01/03 15:11:37 1.53 +++ loncom/publisher/lonpubdir.pm 2004/01/03 15:57:11 1.54 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Construction Space Directory Lister # -# $Id: lonpubdir.pm,v 1.53 2004/01/03 15:11:37 www Exp $ +# $Id: lonpubdir.pm,v 1.54 2004/01/03 15:57:11 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -281,8 +281,8 @@ sub putdirectory { ''. ''.&mt('Go to ...').''. - ''. - $disfilename.''. + ''. + $disfilename.''. ''.($kaputt?'':'').$Apache::lonpublisher::metadatafields{'title'}.' '. $Apache::lonpublisher::metadatafields{'subject'}.' '. $Apache::lonpublisher::metadatafields{'keywords'}.''. @@ -336,11 +336,11 @@ sub putresource { my $editlink=''; my $editlink2=''; if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty)$/) { - $editlink=' ('.&mt('Edit').')'; + $editlink='
('.&mt('Edit').')'; } if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { $editlink=' ('.&mt('EditXML').')'; - $editlink2=' ('.&mt('Edit').')'; + $editlink2='
('.&mt('Edit').')'; } if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) { $editlink=' ('.&mt('Publish').''. ''. - ''. + ''. ''. - $filename.''.$editlink2.$editlink. + $filename.''.$editlink2.$editlink. ''. ''.$title.''. ''.$status.''.