--- loncom/interface/londocs.pm 2009/01/30 09:05:36 1.330 +++ loncom/interface/londocs.pm 2009/01/30 10:02:46 1.331 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.330 2009/01/30 09:05:36 tempelho Exp $ +# $Id: londocs.pm,v 1.331 2009/01/30 10:02:46 muellerd Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3148,6 +3148,7 @@ $newrosterform ENDFORM $r->print($specialdocumentsform); + my %orderhash = ( 'aa_eins' => 'New Document', 'bb_zwei' => 'Published Documents', @@ -3162,7 +3163,9 @@ my %namehash = ( 'More Options' => $extresourcesform.'
'.$imspform.'
'.$recoverform, 'drei' => 'dr', ); -$r->print(&generate_edit_table(\%namehash,\%orderhash)); +my $varcd = 'Course Documents'; +$r->print(&generate_edit_table($varcd,\%namehash,\%orderhash)); + } if ($env{'form.pagepath'}) { $r->print(<'; + + #foreach my $id (keys(%tablehash)){ + $form = '

'.&mt('Upload '.$varcd).'

'; + $form .= '
'; +#} return $form; }