version 1.530, 2012/04/16 19:46:14
|
version 1.532, 2012/07/05 19:24:02
|
Line 1858 sub get_courseupload_hierarchy {
|
Line 1858 sub get_courseupload_hierarchy {
|
my ($url) = @_; |
my ($url) = @_; |
my ($symb,$itemtitle,$displaypath); |
my ($symb,$itemtitle,$displaypath); |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$symb = &Apache::lonnet::symbread(); |
$symb = &Apache::lonnet::symbread($url); |
my ($map,$id,$res)=&Apache::lonnet::decode_symb($symb); |
my ($map,$id,$res)=&Apache::lonnet::decode_symb($symb); |
my $navmap=Apache::lonnavmaps::navmap->new; |
my $navmap=Apache::lonnavmaps::navmap->new; |
if (ref($navmap)) { |
if (ref($navmap)) { |
Line 1957 sub error {
|
Line 1957 sub error {
|
my @userlist; |
my @userlist; |
foreach (keys %users) { |
foreach (keys %users) { |
my ($user,$domain) = split(/:/, $_); |
my ($user,$domain) = split(/:/, $_); |
push(@userlist,"$user\@$domain"); |
push(@userlist,"$user:$domain"); |
my $key=$declutter.'_'.$user.'_'.$domain; |
my $key=$declutter.'_'.$user.'_'.$domain; |
my %lastnotified=&Apache::lonnet::get('nohist_xmlerrornotifications', |
my %lastnotified=&Apache::lonnet::get('nohist_xmlerrornotifications', |
[$key], |
[$key], |
Line 1980 sub error {
|
Line 1980 sub error {
|
$errormsg=&mt("An error occurred while processing this resource. The instructor has been notified."); |
$errormsg=&mt("An error occurred while processing this resource. The instructor has been notified."); |
} |
} |
} |
} |
push(@Apache::lonxml::error_messages,"<b>$errormsg</b> <br />"); |
push(@Apache::lonxml::error_messages,"<span class=\"LC_warning\">$errormsg</span><br />"); |
} |
} |
} |
} |
|
|