--- loncom/interface/londocs.pm 2009/10/18 15:32:36 1.395
+++ loncom/interface/londocs.pm 2009/10/20 12:26:02 1.398
@@ -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.398 2009/10/20 12:26:02 bisitz 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],
@@ -3484,7 +3484,7 @@ sub generate_edit_table {
}
}
$form .= '';
- $form .= '