loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.274, 2004/12/03 21:54:46	version 1.276, 2004/12/10 17:54:54
Line 581 sub start_problem {	Line 581 sub start_problem {
$allow_print_points=1;	$allow_print_points=1;
}	}
}	}
	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
	if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }
my $duedate = &Apache::lonnet::EXT("resource.$id.duedate");	my $duedate = &Apache::lonnet::EXT("resource.$id.duedate");
$duedate = POSIX::strftime("%c",localtime($duedate));	$duedate = POSIX::strftime("%c",localtime($duedate));
my $temp_file;	my $temp_file;
Line 1127 sub start_part {	Line 1129 sub start_part {
if ($1 ne '0') {$allow_print_points=1;}	if ($1 ne '0') {$allow_print_points=1;}
}	}
}	}
	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
	if (defined($maxtries) && $maxtries < 0) {
	$allow_print_points=0;
	}
if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}	if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
} elsif ($target eq 'web') {	} elsif ($target eq 'web') {
$result.='<a name="'.&Apache::lonnet::escape($Apache::inputtags::part).'" />';	$result.='<a name="'.&Apache::lonnet::escape($Apache::inputtags::part).'" />';