--- loncom/interface/londocs.pm 2009/03/03 16:57:24 1.350 +++ loncom/interface/londocs.pm 2009/03/10 22:15:43 1.355 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.350 2009/03/03 16:57:24 tempelho Exp $ +# $Id: londocs.pm,v 1.355 2009/03/10 22:15:43 ehlerst Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2540,7 +2540,7 @@ sub handler { 'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages'); $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 @@ -2767,7 +2767,7 @@ sub handler { 'scuf' => 'Score Upload Form', 'bull' => 'Discussion Board', 'mypi' => 'My Personal Information Page', - 'grpo' => 'Group Files', + 'grpo' => 'Group Portfolio', 'rost' => 'Course Roster', 'abou' => 'Personal Information Page for a User', 'imsf' => 'Import IMS package', @@ -2889,23 +2889,22 @@ HIDDENFORM } # --------------------------------------------------------- Main tab structure my $activeClass = 1; + my $active = ''; $r->print('
'); # --------------------------------------------------------- Standard documents if (($standard) && ($allowed) && (!$forcesupplement)) { @@ -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'; @@ -3192,6 +3192,7 @@ $r->print('
');
+ @@ -3204,6 +3205,7 @@ SUPDOCFORM
+ + + $help{'Syllabus'} @@ -3242,6 +3246,7 @@ SNSFORM + $help{'My Personal Information Page'} @@ -3258,8 +3263,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 +3280,6 @@ my $error = &editor($r,$coursenum,$cours $r->print('
'); } } -$r->print(''); $r->print(''); if ($allowed) { $r->print(' @@ -3316,29 +3318,14 @@ sub generate_admin_options { my $exportbut=&exportbutton(); return (< - - ENDOPTIONFORM } @@ -3383,7 +3370,7 @@ sub editing_js { p_mdb => 'Title for the Drop Box', p_mbb => 'Title for the Discussion Board', p_mab => "Enter user:domain for User's Personal Information Page", - p_mab2 => "Personal Information Page [_99]", + p_mab2 => 'Personal Information Page of ', p_mab_alrt1 => 'Not a valid user:domain', p_mab_alrt2 => 'Please enter both user and domain in the format user:domain', p_chn => 'New Title',