[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')).