--- loncom/interface/londocs.pm 2009/10/18 15:32:36 1.395
+++ loncom/interface/londocs.pm 2009/10/19 16:13:17 1.397
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.395 2009/10/18 15:32:36 raeburn Exp $
+# $Id: londocs.pm,v 1.397 2009/10/19 16:13:17 wenzelju Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2061,7 +2061,7 @@ END
$url.='pagepath='.&escape($pagepath).
'&pagesymb='.&escape($symb).$cpinfo;
}
- if ($external) {
+ if (($external) && ($allowed)) {
my $form = ($folder =~ /^default/)? 'newext' : 'supnewext';
$external = ' '.&mt('Edit').'';
} else {
@@ -3252,8 +3252,8 @@ NGFFORM
if($env{'form.pagepath'}) {
@specialdocumentsforma=(
- {'
'=>$newsmpproblemform},
- {'
'=>$newexuploadform}
+ {'
'=>$newsmpproblemform},
+ {'
'=>$newexuploadform}
);
$specialdocumentsform= create_form_ul(create_list_elements(@specialdocumentsforma));
}
@@ -3379,9 +3379,9 @@ SNAMFORM
my @specialdocs = (
- {'
'=>$supnewextform},
- {'
'=>$supnewsylform},
- {'
'=>$supnewaboutmeform},
+ {'
'=>$supnewextform},
+ {'
'=>$supnewsylform},
+ {'
'=>$supnewaboutmeform},
);
my %suporderhash = (
'00' => ['Supnewfolder', $supnewfolderform],