--- loncom/interface/lonhelper.pm 2005/04/11 18:13:39 1.102
+++ loncom/interface/lonhelper.pm 2005/07/07 04:16:01 1.106
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.102 2005/04/11 18:13:39 albertel Exp $
+# $Id: lonhelper.pm,v 1.106 2005/07/07 04:16:01 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3183,7 +3183,7 @@ sub render {
my $targetURL = '';
my $finish=&mt('Finish');
if ($self->{'restartCourse'}) {
- my $actionURL = '/adm/roles';
+ $actionURL = '/adm/roles';
$targetURL = '/adm/menu';
if ($env{'course.'.$env{'request.course.id'}.'.url'}=~/^uploaded/) {
$targetURL = '/adm/coursedocs';
@@ -3279,7 +3279,13 @@ sub render {
# Print the granularity, depending on the action
if ($vars->{GRANULARITY} eq 'whole_course') {
$resourceString .= '
'.&mt('for all resources in the course').'';
- $level = 9; # general course, see lonparmset.pm perldoc
+ if ($vars->{TARGETS} eq 'course') {
+ $level = 11; # general course, see lonparmset.pm perldoc
+ } elsif ($vars->{TARGETS} eq 'section') {
+ $level = 6;
+ } else {
+ $level = 3;
+ }
$affectedResourceId = "0.0";
$symb = 'a';
$paramlevel = 'general';
@@ -3289,7 +3295,13 @@ sub render {
my $title = $res->compTitle();
$symb = $res->symb();
$resourceString .= ''.&mt('for the map named [_1]',"$title").'';
- $level = 8;
+ if ($vars->{TARGETS} eq 'course') {
+ $level = 10; # general course, see lonparmset.pm perldoc
+ } elsif ($vars->{TARGETS} eq 'section') {
+ $level = 5;
+ } else {
+ $level = 2;
+ }
$affectedResourceId = $vars->{RESOURCE_ID};
$paramlevel = 'map';
} else {
@@ -3300,22 +3312,35 @@ sub render {
$symb = $res->symb();
my $title = $res->compTitle();
$resourceString .= ''.&mt('for the resource named [_1] part [_2]',"$title","$part").'';
- $level = 7;
+ if ($vars->{TARGETS} eq 'course') {
+ $level = 7; # general course, see lonparmset.pm perldoc
+ } elsif ($vars->{TARGETS} eq 'section') {
+ $level = 4;
+ } else {
+ $level = 1;
+ }
$affectedResourceId = $vars->{RESOURCE_ID};
$paramlevel = 'full';
}
- my $result = "