loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.229, 2004/01/15 03:44:01	version 1.230, 2004/01/30 16:21:26
Line 459 sub start_problem {	Line 459 sub start_problem {
my @packages = split /,/,$packages;	my @packages = split /,/,$packages;
my $allow_print_points = 0;	my $allow_print_points = 0;
foreach my $partial_key (@packages) {	foreach my $partial_key (@packages) {
if ($partial_key=~m/part_0/) {	if ($partial_key=~m/^part_0$/) {
$allow_print_points=1;	$allow_print_points=1;
}	}
}	}
Line 974 sub start_part {	Line 974 sub start_part {
$result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';	$result.='\noindent \end{minipage}\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
}	}
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 $allkeys=&Apache::lonnet::metadata($ENV{'request.uri'},'packages');
my @allkeys = split /,/,$allkeys;	my @allkeys = split /,/,$allkeys;
my $allow_print_points = 0;	my $allow_print_points = 0;
foreach my $partial_key (@allkeys) {	foreach my $partial_key (@allkeys) {
if ($partial_key=~m/\_(\d*)\_weight/) {	if ($partial_key=~m/^part_(.*)$/) {
if ($1 ne '0') {$allow_print_points=1;}	if ($1 ne '0') {$allow_print_points=1;}
}	}
}	}