[LON-CAPA-cvs] cvs: loncom /interface londocs.pm
raeburn
raeburn at source.lon-capa.org
Mon May 6 10:12:21 EDT 2013
raeburn Mon May 6 14:12:21 2013 EDT
Modified files:
/loncom/interface londocs.pm
Log:
- Supplemental folder display.
Only show link to Course Editor if user has mdc priv.
- Exit Editor link points back to Course Contents if editor accessed via
"Edit folder" icon/link in Functions for an item, and that item has been
removed or cut.
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.543 loncom/interface/londocs.pm:1.544
--- loncom/interface/londocs.pm:1.543 Wed Apr 3 02:00:19 2013
+++ loncom/interface/londocs.pm Mon May 6 14:12:21 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.543 2013/04/03 02:00:19 raeburn Exp $
+# $Id: londocs.pm,v 1.544 2013/05/06 14:12:21 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2630,7 +2630,9 @@
my $need_save;
if (($allowed) || ($supplementalflag && $folder eq 'supplemental')) {
- my $toolslink = '<table><tr><td>'
+ my $toolslink;
+ if ($allowed || &Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
+ $toolslink = '<table><tr><td>'
.&Apache::loncommon::help_open_menu('Navigation Screen',
'Navigation_Screen',undef,'RAT')
.'</td><td class="LC_middle">'.&mt('Tools:').'</td>'
@@ -2640,6 +2642,7 @@
.'class="LC_toolbarItem" '
.'title="'.&mt('Supplemental Content Editor').'">'
.'</a></li></ul></td></tr></table><br />';
+ }
if ($shown) {
if ($allowed) {
$to_show = &Apache::loncommon::start_scrollbox('900px','880px','400px','contentscroll')
@@ -5379,6 +5382,8 @@
if (&Apache::lonnet::is_on_map($res)) {
$backtourl = &HTML::Entities::encode(&Apache::lonnet::clutter($res),'<>&"').'?symb='.
&HTML::Entities::encode($caller,'<>&"');
+ } else {
+ $backtourl = '/adm/navmaps';
}
}
} elsif ($env{'docs.exit.'.$env{'request.course.id'}} eq '/adm/menu') {
More information about the LON-CAPA-cvs
mailing list