loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.222, 2003/11/04 14:46:28	version 1.223, 2003/11/04 20:09:18
Line 457 sub start_problem {	Line 457 sub start_problem {
}	}
my $id = $Apache::inputtags::part;	my $id = $Apache::inputtags::part;
my $weight = &Apache::lonnet::EXT("resource.$id.weight");	my $weight = &Apache::lonnet::EXT("resource.$id.weight");
my $allkeys=&Apache::lonnet::metadata($ENV{'request.uri'},'keys');	my $packages=&Apache::lonnet::metadata($ENV{'request.uri'},'packages');
my @allkeys = split /,/,$allkeys;	my @packages = split /,/,$packages;
my $allow_print_points = 1;	my $allow_print_points = 0;
foreach my $partial_key (@allkeys) {	foreach my $partial_key (@packages) {
if ($partial_key=~m/\_(\d*)\_weight/) {	if ($partial_key=~m/part_0/) {
if ($1 ne '0') {$allow_print_points=0;}	$allow_print_points=1;
}	}
}	}
my $duedate = &Apache::lonnet::EXT("resource.$id.duedate");	my $duedate = &Apache::lonnet::EXT("resource.$id.duedate");