'.$error.'
'); - } - if ($hadchanges) { - &mark_hash_old(); - } - &changewarning($r,$postexec); +# $hadchanges=0; +# my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type); +# if ($error) { +# $r->print(''.$error.'
'); +# } +# if ($hadchanges) { +# &mark_hash_old(); +# } +# +# &changewarning($r,$postexec); my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. '.sequence'; my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. @@ -3106,24 +3143,41 @@ my %orderhash = ( 'bb' => 'Published Documents', 'cc' => 'Special Documents', 'dd' => 'More Options', - 'zz' => 'Hide all Option', + 'zz' => 'Hide all Options', ); my %namehash = ( 'New Document' => $fileuploadform, 'Published Documents' => $simpleeditdefaultform, 'Special Documents' => $specialdocumentsform, 'More Options' => $extresourcesform.''.$imspform.'
'.$recoverform, - 'drei' => 'dr', ); -my $tid = '1'; -my $varcd = 'Course Documents'; -$r->print(&generate_edit_table($varcd,\%namehash,\%orderhash)); +my $tid='1'; +my $content='content'; +my $navigation='navigation'; +my $varcd = 'Main Course Documents'; +$r->print(&generate_edit_table($tid,$content,$navigation,$varcd,\%namehash,\%orderhash)); + $hadchanges=0; + my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type); + if ($error) { + $r->print('
'.$error.'
'); + } + if ($hadchanges) { + &mark_hash_old(); + } + + &changewarning($r,''); +$r->print(''.$error.'
'); - } if ($allowed) { my $folderseq= '/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_'.time. @@ -3227,20 +3277,24 @@ my %supnamehash = ( 'New Document' => $supupdocform, 'Special Documents' => $supnewfolderform.''.$supnewextform.'
'.$supnewsylform.'
'.$supnewaboutmeform, ); -my $tid='2'; -my $varscd = 'Supplemented Course Documents'; - -$r->print(<