--- loncom/interface/lonnavmaps.pm 2011/12/25 19:39:08 1.476
+++ loncom/interface/lonnavmaps.pm 2011/12/28 04:11:05 1.478
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.476 2011/12/25 19:39:08 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.478 2011/12/28 04:11:05 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
@@ -896,6 +896,7 @@ sub part_status_summary { return 4; }
sub render_resource {
my ($resource, $part, $params) = @_;
+ my $editmapLink;
my $nonLinkedText = ''; # stuff after resource title not in link
my $link = $params->{"resourceLink"};
@@ -977,6 +978,14 @@ sub render_resource {
$linkopen = "";
$linkclose = "";
}
+ if ((&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
+ ($resource->symb=~/\_\_\_[^\_]+\_\_\_uploaded/)) {
+ my $icon = &Apache::loncommon::lonhttpdurl('/res/adm/pages').'/editmap.png';
+ $editmapLink=' '.
+ ''.
+ ''.
+ '';
+ }
}
if ($resource->randomout()) {
@@ -1010,8 +1019,10 @@ sub render_resource {
# Is this the current resource?
if (!$params->{'displayedHereMarker'} &&
$resource->symb() eq $params->{'here'} ) {
- $curMarkerBegin = '';
- $curMarkerEnd = '';
+ unless ($resource->is_map()) {
+ $curMarkerBegin = '';
+ $curMarkerEnd = '';
+ }
$params->{'displayedHereMarker'} = 1;
}
@@ -1030,7 +1041,7 @@ sub render_resource {
if (!$params->{'resource_nolink'} && !$resource->is_sequence() && !$resource->is_empty_sequence) {
$result .= "$curMarkerBegin$title$partLabel$curMarkerEnd$nonLinkedText";
} else {
- $result .= "$curMarkerBegin$linkopen$title$partLabel$curMarkerEnd$nonLinkedText";
+ $result .= "$curMarkerBegin$linkopen$title$partLabel$curMarkerEnd$editmapLink$nonLinkedText";
}
return $result;
@@ -1044,6 +1055,7 @@ sub render_communication_status {
my $linkopen = "";
my $linkclose = "";
my $location=&Apache::loncommon::lonhttpdurl("/adm/lonMisc");
+
if ($resource->hasDiscussion()) {
$discussionHTML = $linkopen .
'
' .
@@ -1132,14 +1144,6 @@ sub render_long_status {
$result .= getDescription($resource, $part);
if ($color) {$result .= ""; }
}
- if ($resource->is_map()) {
- if (&Apache::lonnet::allowed('mdc')) {
- if ($resource->symb=~/\_\_\_[^\_]+\_\_\_uploaded/) {
- $result.=" ".
- "".&mt("Edit Content").' ';
- }
- }
- }
if ($resource->is_map() && &advancedUser() && $resource->randompick()) {
$result .= &mt('(randomly select [_1])', $resource->randompick());
}
@@ -1462,8 +1466,10 @@ sub render {
$link .= '®ister='.$env{'form.register'};
}
if ($args->{'caller'} eq 'navmapsdisplay') {
- &add_linkitem($args->{'linkitems'},'changefolder',
- "location.href='$link'",$text);
+ unless ($args->{'notools'}) {
+ &add_linkitem($args->{'linkitems'},'changefolder',
+ "location.href='$link'",$text);
+ }
} else {
$result.= ''.&mt($text).'';
}
@@ -1471,7 +1477,7 @@ sub render {
}
# Check for any unread discussions in all resources.
- if ($args->{'caller'} eq 'navmapsdisplay') {
+ if (($args->{'caller'} eq 'navmapsdisplay') && (!$args->{'notools'})) {
&add_linkitem($args->{'linkitems'},'clearbubbles',
'document.clearbubbles.submit()',
'Mark all posts read');
@@ -1503,15 +1509,16 @@ END
}
}
$result.='';
- if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
- my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
- my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
- if ($env{'course.'.$env{'request.course.id'}.'.url'} eq
- "uploaded/$cdom/$cnum/default.sequence") {
- &add_linkitem($args->{'linkitems'},'edittoplevel',
- "javascript:gocmd('/adm/coursedocs','direct');",
- 'Content Editor');
- }
+ }
+ if (($args->{'caller'} eq 'navmapsdisplay') &&
+ (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
+ my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+ if ($env{'course.'.$env{'request.course.id'}.'.url'} eq
+ "uploaded/$cdom/$cnum/default.sequence") {
+ &add_linkitem($args->{'linkitems'},'edittoplevel',
+ "javascript:gocmd('/adm/coursedocs','editdocs');",
+ 'Content Editor');
}
}
@@ -1855,25 +1862,29 @@ sub add_linkitem {
sub show_linkitems_toolbar {
my ($args,$condition) = @_;
- my $result =
- '
'. - &Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT'). - ' | '. - ''. - ' | '.&mt('Tools:').' | '; + my $result; if (ref($args) eq 'HASH') { if (ref($args->{'linkitems'}) eq 'HASH') { + my $numlinks = scalar(keys(%{$args->{'linkitems'}})); + if ($numlinks > 1) { + $result = ''. + &Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen', + undef,'RAT'). + ' | '. + ''. + ' | '.&mt('Tools:').' | '; + } + $result .= ''."\n".
+ ''."\n".
+ '
'."\n".
- ''."\n".
- ' | '."\n";
+ '
| ';
+ if (($numlinks==1) && (exists($args->{'linkitems'}{'edittoplevel'}))) {
+ $result .= ''. + &mt('Content Editor').' | '; + } } if ($args->{'sort_html'}) { $result .= ''. ' | '.$args->{'sort_html'}.' | '; } } - $result .= '