version 1.268, 2010/08/23 03:05:12
|
version 1.269, 2010/08/27 17:21:01
|
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') { |