--- loncom/interface/londocs.pm 2009/02/17 10:02:59 1.345
+++ loncom/interface/londocs.pm 2009/03/08 21:49:33 1.353
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.345 2009/02/17 10:02:59 weissno Exp $
+# $Id: londocs.pm,v 1.353 2009/03/08 21:49:33 weissno 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 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',
@@ -3030,7 +3030,7 @@ NBFORM
value="$plainname=/adm/$udom/$uname/aboutme" />
- $help{'My Personal Homepage'}
+ $help{'My Personal Information Page'}
NAMFORM
@@ -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=(<
@@ -3107,12 +3108,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
@@ -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,
@@ -3244,7 +3245,7 @@ SNSFORM
value="$plainname=/adm/$udom/$uname/aboutme" />
- $help{'My Personal Homepage'}
+ $help{'My Personal Information Page'}
SNAMFORM
@@ -3354,7 +3355,7 @@ sub generate_edit_table {
$form .= '';
foreach my $name (sort(keys(%orderhash))){
if($name eq 'zz'){
- $form .= ''.&mt($orderhash{$name}).' ';
+ $form .= ''.&mt($orderhash{$name}).' ';
}else{
$form .= ''.&mt($orderhash{$name}).' ';
}
@@ -3378,12 +3379,12 @@ sub editing_js {
p_mnp => 'Name of New Page',
t_mnp => 'New Page',
p_mxu => 'Title for the Uploaded Score',
- p_msp => 'Title for the Page',
+ p_msp => 'Name of Simple Course Page',
p_msb => 'Title for the Problem',
p_mdb => 'Title for the Drop Box',
p_mbb => 'Title for the Discussion Board',
- p_mab => "Enter user:domain for User's 'About Me' Page",
- p_mab2 => "About [_99]",
+ p_mab => "Enter user:domain for User's Personal Information Page",
+ 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',