version 1.48, 2004/10/12 00:44:05
|
version 1.49, 2004/10/18 20:37:30
|
Line 318 sub select_files {
|
Line 318 sub select_files {
|
my $java_script =(<<ENDSMP); |
my $java_script =(<<ENDSMP); |
<script language='javascript'> |
<script language='javascript'> |
function finishSelect() { |
function finishSelect() { |
opener.document.forms.lonhomework.selectedfiles.value='files were selected'; |
fileList = ""; |
|
for (i=0;i<document.forms.checkselect.length;i++) { |
|
if (document.forms.checkselect[i].checked){ |
|
fileList = fileList + document.forms.checkselect[i].value + "," ; |
|
} |
|
} |
|
opener.document.forms.lonhomework. |
|
ENDSMP |
|
$java_script .= $ENV{'form.fieldname'}; |
|
$java_script .= (<<ENDSMP); |
|
.value=fileList; |
self.close(); |
self.close(); |
} |
} |
</script> |
</script> |
Line 339 ENDSMP
|
Line 348 ENDSMP
|
$ENV{'user.name'},$portfolio_root); |
$ENV{'user.name'},$portfolio_root); |
if ($dir_list[0] eq 'no_such_dir'){ |
if ($dir_list[0] eq 'no_such_dir'){ |
# two main reasons for this: |
# two main reasons for this: |
# 1) never been here, so directory structure not created |
# 1) never been here, so directory structure not created, |
# 2) back-button navigation after deleting a directory |
# 2) back-button navigation after deleting a directory |
if ($current_path eq '/'){ |
if ($current_path eq '/'){ |
&Apache::lonnet::mkdiruserfile($ENV{'user.name'}, |
&Apache::lonnet::mkdiruserfile($ENV{'user.name'}, |
Line 456 sub handler {
|
Line 465 sub handler {
|
$r->rflush(); |
$r->rflush(); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['selectfile','currentpath', |
['selectfile','currentpath', |
'currentfile','action']); |
'currentfile','action','fieldname']); |
if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){ |
if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){ |
$r->print('<font color="red"> No file was selected to upload.'. |
$r->print('<font color="red"> No file was selected to upload.'. |
'To upload a file, click <strong>Browse...</strong>'. |
'To upload a file, click <strong>Browse...</strong>'. |