--- loncom/interface/londocs.pm 2009/02/25 09:28:40 1.348 +++ loncom/interface/londocs.pm 2009/03/05 10:56:59 1.352 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.348 2009/02/25 09:28:40 weissno Exp $ +# $Id: londocs.pm,v 1.352 2009/03/05 10:56:59 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3060,6 +3060,7 @@ NASOFORM NROSTFORM my $specialdocumentsform; +my $newfolderform; unless ($env{'form.pagepath'}) { my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"'); @@ -3076,7 +3077,7 @@ my $specialdocumentsform; NPFORM - my $newfolderform=(< @@ -3112,7 +3113,7 @@ NSYLFORM NGFFORM - $specialdocumentsform="
$newfolderform
$newpageform
$newsylform
$newgroupfileform"; + $specialdocumentsform="
$newpageform
$newsylform
$newgroupfileform"; } $specialdocumentsform.="
$newnavform
$newsmppageform
$newsmpproblemform
$newdropboxform @@ -3131,7 +3132,7 @@ my %orderhash = ( 'zz' => 'Hide all Options', ); my %namehash = ( - 'New Document' => $fileuploadform, + 'New Document' => $fileuploadform.'
'.$newfolderform, 'Published Documents' => $simpleeditdefaultform, 'Special Documents' => $specialdocumentsform, 'More Options' => $extresourcesform.'
'.$imspform.'
'.$recoverform, @@ -3354,7 +3355,7 @@ sub generate_edit_table { $form .= '