');
# --------------------------------------------------------- Standard documents
my $savefolderpath;
my $active = 'style="display: none;"';
@@ -2913,8 +2941,6 @@ HIDDENFORM
$active = 'style="display: block;"';
}
$r->print('
');
- $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
- &mt('Editing the Table of Contents for your '.$type)));
my $folder=$env{'form.folder'};
if ($folder eq '' || $folder=~/^supplemental/) {
$folder='default';
@@ -2925,7 +2951,12 @@ HIDDENFORM
}
my $postexec='';
if ($folder eq 'default') {
- $r->print('');
+ $r->print(''."\n"
+ );
} else {
#$postexec='self.close();';
}
@@ -2943,19 +2974,20 @@ HIDDENFORM
my $recoverform=(<
-
+
RFORM
my $imspform=(<
-
+
IMSPFORM
my $newnavform=(<
+
$uploadtag
@@ -2967,22 +2999,24 @@ IMSPFORM
NNFORM
my $newsmppageform=(<
+
$uploadtag
$help{'Simple Page'}
+ onclick="javascript:makesmppage();" /> $help{'Simple Page'}
NSPFORM
my $newsmpproblemform=(<
+
$uploadtag
$help{'Simple Problem'}
+ onclick="javascript:makesmpproblem();" />$help{'Simple Problem'}
@@ -2990,22 +3024,24 @@ NSPROBFORM
my $newdropboxform=(<
+
$uploadtag
+ onclick="javascript:makedropbox();" />
NDBFORM
my $newexuploadform=(<
+
$uploadtag
+ onclick="javascript:makeexamupload();" />
$help{'Score_Upload_Form'}
@@ -3013,11 +3049,12 @@ NEXUFORM
my $newbulform=(<
+
$uploadtag
+ onclick="javascript:makebulboard();" />
$help{'Bulletin Board'}
@@ -3025,6 +3062,7 @@ NBFORM
my $newaboutmeform=(<
+
$uploadtag
@@ -3037,11 +3075,12 @@ NAMFORM
my $newaboutsomeoneform=(<
+
$uploadtag
+ onclick="javascript:makeabout();" />
NASOFORM
@@ -3049,6 +3088,7 @@ NASOFORM
my $newrosterform=(<
+
$uploadtag
@@ -3069,9 +3109,10 @@ my $newfolderform;
@@ -3081,9 +3122,10 @@ NPFORM
@@ -3091,6 +3133,7 @@ NFFORM
my $newsylform=(<
+
$uploadtag
@@ -3100,9 +3143,10 @@ NFFORM
NSYLFORM
-
+
my $newgroupfileform=(<
+
$uploadtag
@@ -3125,21 +3169,15 @@ if($env{'form.pagepath'}) {
}
my %orderhash = (
- 'aa' => 'New Document',
- 'bb' => 'Published Documents',
- 'cc' => 'Special Documents',
- 'dd' => 'Tools',
- 'zz' => 'Hide all Options',
- );
-my %namehash = (
- 'New Document' => $fileuploadform.'
'.$newfolderform,
- 'Published Documents' => $simpleeditdefaultform,
- 'Special Documents' => $specialdocumentsform,
- 'Tools' => $extresourcesform.'
'.$imspform.'
'.$recoverform.'
'.&generate_admin_options($containertag,$uploadtag,\%help,\%env),
+ 'aa' => ['Upload Document',$fileuploadform.'
'.$newfolderform],
+ 'bb' => ['Published Documents',$simpleeditdefaultform],
+ 'cc' => ['Special Documents',$specialdocumentsform],
+ 'dd' => ['Tools',$extresourcesform.'
'.$imspform.'
'.$recoverform.'
'.&generate_admin_options($containertag,$uploadtag,\%help,\%env)],
+ 'zz' => ['Hide all Options'],
);
my $tid='1';
my $varcd = 'Main Course Documents';
-$r->print(&generate_edit_table($tid,$varcd,\%namehash,\%orderhash));
+$r->print(&generate_edit_table($tid,$varcd,\%orderhash));
$hadchanges=0;
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
if ($error) {
@@ -3150,6 +3188,8 @@ $r->print(&generate_edit_table($tid,$var
}
&changewarning($r,'');
+ $r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
+ &mt('Editing the Table of Contents for your '.$type)));
$r->print('
');
if ($env{'form.pagepath'}) {
}
@@ -3158,7 +3198,7 @@ $r->print('
');
if($activeClass == 1){
$active = 'style="display: block;"';
}
- $r->print('
');
+ $r->print('
');
my $folder=$env{'form.folder'};
unless ($folder=~/^supplemental/) {
$folder='supplemental';
@@ -3180,6 +3220,7 @@ $r->print('
');
my $supupdocform=(<
+
$fileupload
@@ -3202,11 +3243,12 @@ SUPDOCFORM
my $supnewfolderform=(<
+
$help{'Adding_Folders'}
@@ -3215,11 +3257,12 @@ SNFFORM
my $supnewextform=(<
+
$help{'Adding_External_Resource'}
@@ -3227,6 +3270,7 @@ SNEFORM
my $supnewsylform=(<
+
@@ -3239,6 +3283,7 @@ SNSFORM
my $supnewaboutmeform=(<
+
@@ -3252,26 +3297,21 @@ SNAMFORM
my %suporderhash = (
- 'ee' => 'New Document',
- 'ff' => 'Special Documents',
- 'zz' => 'Hide all Options',
- );
-
-my %supnamehash = (
- 'New Document' => $supupdocform.'
'.$supnewfolderform,
- 'Special Documents' => $supnewextform.'
'.$supnewsylform.'
'.$supnewaboutmeform,
+ 'ee' => ['Upload Document',$supupdocform.'
'.$supnewfolderform],
+ 'ff' => ['Special Documents',$supnewextform.'
'.$supnewsylform.'
'.$supnewaboutmeform],
+ 'zz' => ['Hide all Options'],
);
my $tid='2';
my $varscd = 'Supplemental Course Documents';
-$r->print(&generate_edit_table($tid,$varscd,\%supnamehash,\%suporderhash));
+$r->print(&generate_edit_table($tid,$varscd,\%suporderhash));
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
if ($error) {
$r->print(''.$error.'
');
}
$r->print('