--- loncom/interface/londocs.pm 2016/11/29 03:01:04 1.617
+++ loncom/interface/londocs.pm 2017/02/18 14:16:47 1.620
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.617 2016/11/29 03:01:04 raeburn Exp $
+# $Id: londocs.pm,v 1.620 2017/02/18 14:16:47 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3339,7 +3339,8 @@ sub editor {
$output .= &entryline($idx,$name,$url,$folder,$allowed,$res,
$coursenum,$coursedom,$crstype,
$pathitem,$supplementalflag,$container,
- \%filters,\%curr_groups,$ltitoolsref,$canedit,$isencrypted,$navmapref);
+ \%filters,\%curr_groups,$ltitoolsref,$canedit,
+ $isencrypted,$navmapref);
$idx++;
$shown++;
}
@@ -3823,7 +3824,7 @@ END
'sv' => 'Save',
'ul' => 'URL',
'ti' => 'Title',
- 'er' => 'Editing rights unavailable for your current role',
+ 'er' => 'Editing rights unavailable for your current role.',
);
my %denied = &action_restrictions($coursenum,$coursedom,$url,
$env{'form.folderpath'},
@@ -4020,7 +4021,7 @@ END
if (((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i) ||
$isencrypted || (&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i)) {
$checkencrypt = 1;
- } else {
+ } elsif (ref($navmapref)) {
unless (ref($$navmapref)) {
$$navmapref = Apache::lonnavmaps::navmap->new();
}
@@ -4075,25 +4076,29 @@ END
my $encryptmap = ((&LONCAPA::map::getparameter($orderidx,
'parameter_encrypturl'))[0]=~/^yes$/i);
unless ($hiddenmap) {
- unless (ref($$navmapref)) {
- $$navmapref = Apache::lonnavmaps::navmap->new();
- }
- if (ref($$navmapref)) {
- if (lc($$navmapref->get_mapparam(undef,$folderurl,"0.hiddenresource")) eq 'yes') {
- my @resources = $$navmapref->retrieveResources($folderurl,$filterFunc,1,1);
- unless (@resources) {
- $hiddenmap = 1;
- unless ($env{'request.role.adv'}) {
- $url = '';
- $hiddenfolder = 1;
+ if (ref($navmapref)) {
+ unless (ref($$navmapref)) {
+ $$navmapref = Apache::lonnavmaps::navmap->new();
+ }
+ if (ref($$navmapref)) {
+ if (lc($$navmapref->get_mapparam(undef,$folderurl,"0.hiddenresource")) eq 'yes') {
+ my @resources = $$navmapref->retrieveResources($folderurl,$filterFunc,1,1);
+ unless (@resources) {
+ $hiddenmap = 1;
+ unless ($env{'request.role.adv'}) {
+ $url = '';
+ $hiddenfolder = 1;
+ }
}
}
}
}
}
unless ($encryptmap) {
- if (lc($$navmapref->get_mapparam(undef,$folderurl,"0.encrypturl")) eq 'yes') {
- $encryptmap = 1;
+ if ((ref($navmapref)) && (ref($$navmapref))) {
+ if (lc($$navmapref->get_mapparam(undef,$folderurl,"0.encrypturl")) eq 'yes') {
+ $encryptmap = 1;
+ }
}
}
@@ -5527,7 +5532,7 @@ sub handler {
'webctce4' => 'WebCT 4 Campus Edition',
'yes' => 'Yes',
'no' => 'No',
- 'er' => 'Editing rights unavailable for your current role',
+ 'er' => 'Editing rights unavailable for your current role.',
);
# -----------------------------------------------------------------------------
@@ -5557,7 +5562,7 @@ sub handler {
if ($disk_quota == 0) {
$percent = 100.0;
} else {
- $percent = 100*($current_disk_usage/$disk_quota);
+ $percent = 100*($usage/$disk_quota);
}
$usage = sprintf("%.2f",$usage);
$quota = sprintf("%.2f",$quota);
@@ -6158,7 +6163,7 @@ NSYLFORM
NGFFORM
@specialdocumentsforma=(
{'
'=>$newpageform},
- {'
'=>$newsylform},
+ {'
'=>$newsylform},
{'
'=>$newnavform},
{'
'=>$newsmppageform},
{'
'=>$newwebpageform},
@@ -6336,7 +6341,7 @@ SWEBFORM
my @specialdocs = (
- {'
'
+ {'
'
=>$supnewsylform},
{'
'
=>$supnewaboutmeform},
@@ -6803,7 +6808,7 @@ sub editing_js {
nofi => 'No file selected',
tinc => 'Title in course',
sunm => 'Sub-directory name',
- edri => 'Editing rights unavailable for your current role',
+ edri => 'Editing rights unavailable for your current role.',
);
&js_escape(\%js_lt);
my $crstype = &Apache::loncommon::course_type();