--- loncom/interface/londocs.pm 2009/02/19 10:51:40 1.347 +++ loncom/interface/londocs.pm 2009/03/03 17:45:15 1.351 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.347 2009/02/19 10:51:40 weissno Exp $ +# $Id: londocs.pm,v 1.351 2009/03/03 17:45:15 ehlerst Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2769,7 +2769,7 @@ sub handler { 'mypi' => 'My Personal Information Page', 'grpo' => 'Group Files', 'rost' => 'Course Roster', - 'abou' => 'About User', + 'abou' => 'Personal Information Page for a User', 'imsf' => 'Import IMS package', 'file' => 'File', 'title' => 'Title', @@ -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 .= '