--- loncom/interface/londocs.pm 2009/02/16 11:09:01 1.344
+++ 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.344 2009/02/16 11:09:01 bisitz Exp $
+# $Id: londocs.pm,v 1.354 2009/03/10 18:49:22 tempelho Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1223,7 +1223,7 @@ sub update_paste_buffer {
&Apache::lonnet::appenv({'docs.markedcopy_supplemental' => $title});
($title) = &parse_supplemental_title($title);
} elsif ($env{'docs.markedcopy_supplemental'}) {
- &Apache::lonnet::delenv('docs\\.markedcopy_supplemental');
+ &Apache::lonnet::delenv('docs.markedcopy_supplemental');
}
$url=~s{http(:|:)//https(:|:)//}{https$2//};
@@ -1327,7 +1327,7 @@ sub do_paste_from_buffer {
}
# published maps can only exists once, so remove it from paste buffer when done
if (($url=~/\.(page|sequence)$/) && ($url=~m {^/res/})) {
- &Apache::lonnet::delenv('docs\\.markedcopy');
+ &Apache::lonnet::delenv('docs.markedcopy');
}
if ($url=~ m{/smppg$}) {
my $db_name = &Apache::lonsimplepage::get_db_name($url);
@@ -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 Info'} = &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 Info',
- '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('
');
# --------------------------------------------------------- Standard documents
if (($standard) && ($allowed) && (!$forcesupplement)) {
@@ -3030,7 +3029,7 @@ NBFORM
value="$plainname=/adm/$udom/$uname/aboutme" />
- $help{'My Personal Info'}
+ $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 Info'}
+ $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(&generate_admin_options($containertag,$uploadtag,\%help,\%env));
-$r->print('
');
$r->print('
');
if ($allowed) {
$r->print('
@@ -3316,29 +3313,14 @@ sub generate_admin_options {
my $exportbut=&exportbutton();
return (<