[LON-CAPA-cvs] cvs: loncom /publisher lonpubdir.pm lonunauthorized.pm

www lon-capa-cvs@mail.lon-capa.org
Thu, 29 Jan 2004 00:44:43 -0000


www		Wed Jan 28 19:44:43 2004 EDT

  Modified files:              
    /loncom/publisher	lonpubdir.pm lonunauthorized.pm 
  Log:
  "Recent Folders" in construction space
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.58 loncom/publisher/lonpubdir.pm:1.59
--- loncom/publisher/lonpubdir.pm:1.58	Thu Jan 15 15:22:47 2004
+++ loncom/publisher/lonpubdir.pm	Wed Jan 28 19:44:43 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.58 2004/01/15 20:22:47 www 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 @@
 	$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);
 }
 
 #
Index: loncom/publisher/lonunauthorized.pm
diff -u loncom/publisher/lonunauthorized.pm:1.2 loncom/publisher/lonunauthorized.pm:1.3
--- loncom/publisher/lonunauthorized.pm:1.2	Mon Sep 22 11:39:53 2003
+++ loncom/publisher/lonunauthorized.pm	Wed Jan 28 19:44:43 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Unauthorized to access construction space
 #
-# $Id: lonunauthorized.pm,v 1.2 2003/09/22 15:39:53 www Exp $
+# $Id: lonunauthorized.pm,v 1.3 2004/01/29 00:44:43 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -79,7 +79,7 @@
            $r->print("<p>".&mt('Contact')." ".
     &Apache::loncommon::aboutmewrapper(
      &Apache::loncommon::plainname($realownername,
-                               $r->dir_config('lonDefDomain')).'('.
+                               $r->dir_config('lonDefDomain')).' ('.
                                $realownername.&mt(' at ').
                                $r->dir_config('lonDefDomain').')',
 			       $realownername,$r->dir_config('lonDefDomain')).