version 1.267, 2010/08/08 02:00:50
|
version 1.269, 2010/08/27 17:21:01
|
Line 484 sub file_selector {
|
Line 484 sub file_selector {
|
my $current_files_display = ¤t_file_submissions($part,$id); |
my $current_files_display = ¤t_file_submissions($part,$id); |
my $addfiles; |
my $addfiles; |
if ($current_files_display) { |
if ($current_files_display) { |
$result .= &Apache::lonhtmlcommon::row_title(&mt('Currently submitted files:')). |
$result .= &Apache::lonhtmlcommon::row_title(&mt('Currently submitted files')). |
$current_files_display. |
$current_files_display. |
&Apache::lonhtmlcommon::row_closure(); |
&Apache::lonhtmlcommon::row_closure(); |
$addfiles = &mt('Submit other file(s)'); |
$addfiles = &mt('Submit other file(s)'); |
Line 542 sub current_file_submissions {
|
Line 542 sub current_file_submissions {
|
my ($result,$header_shown,%okfiles,%rows,@bad_file_list); |
my ($result,$header_shown,%okfiles,%rows,@bad_file_list); |
if ($uploadedfile) { |
if ($uploadedfile) { |
my $url=$Apache::lonhomework::history{"resource.$part.$id.uploadedurl"}; |
my $url=$Apache::lonhomework::history{"resource.$part.$id.uploadedurl"}; |
my ($path,$name) = ($url =~ m{^/uploaded/\Q$cdom\E/\Q$cnum\E/(essayresponse/.+/)([^/]+))}); |
my ($path,$name) = ($url =~ m{^/uploaded/\Q$cdom\E/\Q$cnum\E/(essayresponse/.+/)([^/]+)}); |
my ($status,$hashref,$error) = |
my ($status,$hashref,$error) = |
¤t_file_info($url,$uploadedfile,$name,$path); |
¤t_file_info($url,$uploadedfile,$name,$path); |
if ($status eq 'ok') { |
if ($status eq 'ok') { |