loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.253, 2005/04/02 02:22:10	version 1.254, 2005/04/02 18:44:39
Line 2191 sub version_portfiles {	Line 2191 sub version_portfiles {
if ($key =~ /^resource\.($parts)\./ && $key =~ /\.portfiles$/) {	if ($key =~ /^resource\.($parts)\./ && $key =~ /\.portfiles$/) {
my @portfiles = split /,/,$$record{$key};	my @portfiles = split /,/,$$record{$key};
foreach my $file (@portfiles) {	foreach my $file (@portfiles) {
$file =~ /^(.?)([^\/]$)/;	my ($directory,$answer_file) =( $file =~ /^(.?)([^\/]$)/);
my $directory = $1;
my $version = 0;	my $version = 0;
my $answer_file = $2;
my @answer_file_parts = split /\./, $answer_file;	my @answer_file_parts = split /\./, $answer_file;
my @dir_list = &Apache::lonnet::dirlist($directory,$domain,$stuname,$portfolio_root);	my @dir_list = &Apache::lonnet::dirlist($directory,$domain,$stuname,$portfolio_root);
my @file_names;	my @file_names;