--- loncom/publisher/lonpubdir.pm	2004/01/05 22:13:16	1.56
+++ loncom/publisher/lonpubdir.pm	2004/01/29 00:44:43	1.59
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.56 2004/01/05 22:13:16 albertel Exp $
+# $Id: lonpubdir.pm,v 1.59 2004/01/29 00:44:43 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -222,8 +222,15 @@ ENDPUBDIRSCRIPT
 	$r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom.
 		  '</h3>');
     }
-    $r->print(
-       &Apache::lonhtmlcommon::crumbs($uname.'/'.$thisdisfn.'/','_top','/priv').'<br />');
+    my $formaction='/priv/'.$uname.'/'.$thisdisfn.'/';
+    $formaction=~s/\/+/\//g;
+    $r->print('<form name="dirs" method="post" action="'.$formaction
+	      .'" target="_top">'.
+      &Apache::lonhtmlcommon::crumbs($uname.'/'.$thisdisfn.'/','_top','/priv').
+      &Apache::lonhtmlcommon::select_recent('construct','recent',
+	         'this.form.action=this.form.recent.value;this.form.submit()').
+	      '</form>');
+    &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);
 }
 
 #
@@ -284,9 +291,9 @@ sub putdirectory {
 		  '<td><img src="'.
 		  $Apache::lonnet::perlvar{'lonIconsURL'}.'/folder_closed.gif" /></td>'.
 		  '<td>'.&mt('Go to ...').'</td>'.
-		  '<td><font size="+1" face="arial"><a href="'.$here.'/'.$dirname.'/" target="_top">'.
+		  '<td><font face="arial"><a href="'.$here.'/'.$dirname.'/" target="_top">'.
 		  $disfilename.'</a></font></td>'.
-		        '<td colspan="2">'.($kaputt?'<img src="/adm/lonMisc/bomb.gif" />':'').$Apache::lonpublisher::metadatafields{'title'}.' <i>'.
+		        '<td colspan="2">'.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'}.' <i>'.
 		  $Apache::lonpublisher::metadatafields{'subject'}.'</i> '.
 		  $Apache::lonpublisher::metadatafields{'keywords'}.'</td>'.
 		  '<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'.
@@ -328,7 +335,7 @@ sub putresource {
 	    $title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.
 		&getTitleString($targetdir.'/'.$filename).'</a>';
 	    if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
-		$status.='<br><a href="/adm/diff?filename=/~'.$uname.
+		$status.='<br /><a href="/adm/diff?filename=/~'.$uname.
 		    $thisdisfn.'/'.$filename.
 		    '&versiontwo=priv" target=cat>'.&mt('Diffs').'</a>';
 	    }
@@ -357,7 +364,7 @@ sub putresource {
 	      '<td><a target="_parent" href="/adm/publish?filename=/~'.
 	      $uname.$thisdisfn.'/'.$filename.'">'.&mt('Publish').'</a>'.
 	      '</td>'.
-	      '<td><font size="+1" face="arial">'.
+	      '<td><font face="arial">'.
 	      '<a href="'.$linkdir.'/'.$filename.'" target="_top">'.
                $filename.'</a></font>'.$editlink2.$editlink.
 	      '</td>'.