loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

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) =
&current_file_info($url,$uploadedfile,$name,$path);	&current_file_info($url,$uploadedfile,$name,$path);
if ($status eq 'ok') {	if ($status eq 'ok') {