--- loncom/interface/londocs.pm 2010/08/16 03:49:33 1.434
+++ loncom/interface/londocs.pm 2010/10/27 01:00:38 1.439
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.434 2010/08/16 03:49:33 raeburn Exp $
+# $Id: londocs.pm,v 1.439 2010/10/27 01:00:38 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1720,7 +1720,7 @@ sub process_file_upload {
# probably the only place in the system where this should be "1"
my $newidx=&LONCAPA::map::getresidx();
$destination .= $newidx;
- my $url=&Apache::lonnet::userfileupload('uploaddoc',1,$destination,
+ my $url=&Apache::lonnet::userfileupload('uploaddoc','coursedoc',$destination,
$parseaction,$allfiles,
$codebase);
my $ext='false';
@@ -1781,7 +1781,7 @@ sub process_secondary_uploads {
}
$destination .= $newidx;
my ($url,$filename);
- $url=&Apache::lonnet::userfileupload($formname.$num,1,$destination);
+ $url=&Apache::lonnet::userfileupload($formname.$num,'coursedoc',$destination);
($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$});
return $filename;
}
@@ -2920,7 +2920,7 @@ sub create_form_ul {
'upld' => 'Import Document',
'srch' => 'Search',
'impo' => 'Import',
- 'book' => 'Import Bookmarks',
+ 'wish' => 'Import from Wishlist',
'selm' => 'Select Map',
'load' => 'Load Map',
'reco' => 'Recover Deleted Documents',
@@ -2971,7 +2971,7 @@ CHBO
$fileupload
$lt{'title'}:
-
+
$uploadtag
@@ -2993,7 +2993,7 @@ SEDFFORM
my @simpleeditdefaultforma = (
{ '
' => "$uploadtag" },
{ '
' => "$help{'Importing_LON-CAPA_Resource'}" },
- { '
' => "" },
+ { '
' => "" },
);
$simpleeditdefaultform .= create_form_ul(create_list_elements(@simpleeditdefaultforma));
$simpleeditdefaultform .=(<print(''.$tabtitles{'main'}{$crstype}.'');
$active = '';
if (!$forcestandard || ($env{'form.folderpath'}=~/^supplemental/)) {
@@ -3072,7 +3071,6 @@ HIDDENFORM
}
}
$r->print(''.$tabtitles{'supplemental'}{$crstype}.'');
$r->print('');
} else {
@@ -3121,7 +3119,7 @@ HIDDENFORM
my $recoverform=(<
-
+
RFORM
@@ -3310,7 +3308,7 @@ if($env{'form.pagepath'}) {
my @tools = (
# {'
'=>$extresourcesform},
# {'
'=>$imspform},
- {'
'=>$recoverform},
+ {'
'=>$recoverform},
);
my %orderhash = (