';
foreach my $field (keys(%namehash)){
- $form .= '
';
+ $form .= ' ';
}
$form .= '--- loncom/interface/londocs.pm 2009/01/30 11:39:38 1.332 +++ loncom/interface/londocs.pm 2009/02/03 14:16:39 1.334 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.332 2009/01/30 11:39:38 tempelho Exp $ +# $Id: londocs.pm,v 1.334 2009/02/03 14:16:39 muellerd Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2878,12 +2878,7 @@ ERFORM &mt('Editing the Table of Contents for your '.$type))); } # --------------------------------------------------------- Standard documents - $r->print('
');
-# ''.&mt('Main Course Documents'). -# ($allowed?' '.$help{'Main_Course_Documents'}:'').''); my $folder=$env{'form.folder'}; if ($folder eq '' || $folder eq 'supplemental') { $folder='default'; @@ -3037,38 +3032,9 @@ NASOFORM NROSTFORM - $r->print(<
-$fileuploadform
- |
-
-$simpleeditdefaultform
- | -$recoverform -ENDFORM - unless ($env{'form.pagepath'}) { - $r->print(< -$imspform -ENDFORM - } - $r->print(' ');
unless ($env{'form.pagepath'}) {
my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
-
-
my $newpageform=(< | -$newpageform - -$newsylform - -$newnavform - -$newsmppageform - -$newsmpproblemform - -$newdropboxform - -$newexuploadform - -$newbulform - -$newaboutmeform - -$newaboutsomeoneform - -$newgroupfileform - -$newrosterform -ENDFORM + my $specialdocumentsform=(< $newpageform + $newsylform + $newnavform + $newsmppageform + $newsmpproblemform + $newdropboxform + $newexuploadform + $newbulform + $newaboutmeform + $newaboutsomeoneform + $newgroupfileform + $newrosterform +SPDOFORM -$r->print($specialdocumentsform); my %orderhash = ( 'aa' => 'New Document', '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 $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)); } if ($env{'form.pagepath'}) { - $r->print(< |
-$supupdocform - | -
-$supnewfolderform
- -$supnewextform - -$supnewsylform - -$supnewaboutmeform - |