|
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 />"); |
| } |
} |
| } |
} |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml