--- loncom/interface/londocs.pm 2009/02/18 07:06:15 1.346 +++ loncom/interface/londocs.pm 2009/03/10 18:49:22 1.354 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.346 2009/02/18 07:06:15 raeburn Exp $ +# $Id: londocs.pm,v 1.354 2009/03/10 18:49:22 tempelho Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2538,9 +2538,9 @@ sub handler { 'Option_Response_Simple'); $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic( 'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages'); - $help{'My Personal Homepage'} = &Apache::loncommon::help_open_topic( + $help{'My Personal Information Page'} = &Apache::loncommon::help_open_topic( 'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages'); - $help{'Group Files'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files'); + $help{'Group Portfolio'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files'); $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching'); # does this user have privileges to modify docs @@ -2766,10 +2766,10 @@ sub handler { 'drbx' => 'Drop Box', 'scuf' => 'Score Upload Form', 'bull' => 'Discussion Board', - 'mypi' => 'My Personal Homepage', - 'grpo' => 'Group Files', + 'mypi' => 'My Personal Information Page', + 'grpo' => 'Group Portfolio', 'rost' => 'Course Roster', - 'abou' => 'About User', + 'abou' => 'Personal Information Page for a User', 'imsf' => 'Import IMS package', 'file' => 'File', 'title' => 'Title', @@ -2905,7 +2905,6 @@ HIDDENFORM } $r->print('
  • '.&mt('Supplemental Course Documents').'
  • '); } - $r->print('
  • '.&mt('Special Admin Options').'
  • '); $r->print('
    '); # --------------------------------------------------------- Standard documents if (($standard) && ($allowed) && (!$forcesupplement)) { @@ -3030,7 +3029,7 @@ NBFORM value="$plainname=/adm/$udom/$uname/aboutme" /> - $help{'My Personal Homepage'} + $help{'My Personal Information Page'} NAMFORM @@ -3060,6 +3059,7 @@ NASOFORM NROSTFORM my $specialdocumentsform; +my $newfolderform; unless ($env{'form.pagepath'}) { my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"'); @@ -3076,7 +3076,7 @@ my $specialdocumentsform; NPFORM - my $newfolderform=(< @@ -3107,12 +3107,12 @@ NSYLFORM value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" /> - $help{'Group Files'} + $help{'Group Portfolio'} NGFFORM - $specialdocumentsform="
    $newfolderform
    $newpageform
    $newsylform
    $newgroupfileform"; + $specialdocumentsform="
    $newpageform
    $newsylform
    $newgroupfileform"; } $specialdocumentsform.="
    $newnavform
    $newsmppageform
    $newsmpproblemform
    $newdropboxform @@ -3127,14 +3127,14 @@ my %orderhash = ( 'aa' => 'New Document', 'bb' => 'Published Documents', 'cc' => 'Special Documents', - 'dd' => 'More Options', + 'dd' => 'More Tools', 'zz' => 'Hide all Options', ); my %namehash = ( - 'New Document' => $fileuploadform, + 'New Document' => $fileuploadform.'
    '.$newfolderform, 'Published Documents' => $simpleeditdefaultform, 'Special Documents' => $specialdocumentsform, - 'More Options' => $extresourcesform.'
    '.$imspform.'
    '.$recoverform, + 'More Tools' => $extresourcesform.'
    '.$imspform.'
    '.$recoverform.'
    '.&generate_admin_options($containertag,$uploadtag,\%help,\%env), ); my $tid='1'; my $content='content'; @@ -3244,7 +3244,7 @@ SNSFORM value="$plainname=/adm/$udom/$uname/aboutme" /> - $help{'My Personal Homepage'} + $help{'My Personal Information Page'} SNAMFORM @@ -3258,8 +3258,8 @@ my %suporderhash = ( ); my %supnamehash = ( - 'New Document' => $supupdocform, - 'Special Documents' => $supnewfolderform.'
    '.$supnewextform.'
    '.$supnewsylform.'
    '.$supnewaboutmeform, + 'New Document' => $supupdocform.'
    '.$supnewfolderform, + 'Special Documents' => $supnewextform.'
    '.$supnewsylform.'
    '.$supnewaboutmeform, ); my $tid='2'; @@ -3275,9 +3275,6 @@ my $error = &editor($r,$coursenum,$cours $r->print('
    '); } } -$r->print(''); $r->print('
    '); if ($allowed) { $r->print(' @@ -3316,29 +3313,14 @@ sub generate_admin_options { my $exportbut=&exportbutton(); return (< - - ENDOPTIONFORM } @@ -3354,7 +3336,7 @@ sub generate_edit_table { $form .= '