loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.276, 2005/07/12 14:57:55	version 1.277, 2005/08/09 15:53:20
Line 2293 sub version_portfiles {	Line 2293 sub version_portfiles {
my $portfolio_root = &Apache::loncommon::propath($domain,	my $portfolio_root = &Apache::loncommon::propath($domain,
$stuname).	$stuname).
'/userfiles/portfolio';	'/userfiles/portfolio';
foreach my $key(keys %$record) {	foreach my $key (keys(%$record)) {
my $new_portfiles;	my $new_portfiles;
if ($key =~ /^resource\.($version_parts)\./ && $key =~ /\.portfiles$/ ) {	if ($key =~ /^resource\.($version_parts)\./ && $key =~ /\.portfiles$/ ) {
my @v_portfiles;	my @v_portfiles;