[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm
raeburn
raeburn@source.lon-capa.org
Tue, 24 Nov 2009 01:44:45 -0000
raeburn Tue Nov 24 01:44:45 2009 EDT
Modified files:
/loncom/publisher lonpublisher.pm
Log:
- Reverse part of 1.262, as assistant co-authors now have 'bro' priv which allows browsing of /res for areas in which user is a co-author.
- Wrap "functions" footer with loinks to source etc. in &head_subbox().
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.263 loncom/publisher/lonpublisher.pm:1.264
--- loncom/publisher/lonpublisher.pm:1.263 Thu Nov 19 05:18:08 2009
+++ loncom/publisher/lonpublisher.pm Tue Nov 24 01:44:44 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.263 2009/11/19 05:18:08 raeburn Exp $
+# $Id: lonpublisher.pm,v 1.264 2009/11/24 01:44:44 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1771,25 +1771,21 @@
my $thissrcdir=$thissrc;
$thissrcdir=~s/\/[^\/]+$/\//;
- $r->print(&Apache::lonhtmlcommon::start_funclist());
- unless ($env{'request.role'}=~/^(aa)/) {
- $r->print(
- &Apache::lonhtmlcommon::add_item_funclist(
- '<a href="'.$thisdistarget.'">'
- .&mt('View Published Version')
- .'</a>')
- );
- }
- $r->print(
+ $r->print(&Apache::loncommon::head_subbox(
+ &Apache::lonhtmlcommon::start_funclist().
+ &Apache::lonhtmlcommon::add_item_funclist(
+ '<a href="'.$thisdistarget.'">'.
+ &mt('View Published Version').
+ '</a>').
+ &Apache::lonhtmlcommon::add_item_funclist(
+ '<a href="'.$thissrc.'">'.
+ &mt('Back to Source').
+ '</a>').
&Apache::lonhtmlcommon::add_item_funclist(
- '<a href="'.$thissrc.'">'
- .&mt('Back to Source')
- .'</a>')
- .&Apache::lonhtmlcommon::add_item_funclist(
- '<a href="'.$thissrcdir.'">'
- .&mt('Back to Source Directory')
- .'</a>')
- .&Apache::lonhtmlcommon::end_funclist()
+ '<a href="'.$thissrcdir.'">'.
+ &mt('Back to Source Directory').
+ '</a>').
+ &Apache::lonhtmlcommon::end_funclist())
);
}
return 1;