loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.301, 2005/09/23 18:39:55	version 1.302, 2005/09/23 20:16:50
Line 645 sub start_problem {	Line 645 sub start_problem {
}	}
my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }	if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }
	if (lc($env{'course.'.$env{'request.course.id'}.
	'.disableexampointprint'}) eq 'yes') {
	$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 1207 sub start_part {	Line 1211 sub start_part {
if (defined($maxtries) && $maxtries < 0) {	if (defined($maxtries) && $maxtries < 0) {
$allow_print_points=0;	$allow_print_points=0;
}	}
	if (lc($env{'course.'.$env{'request.course.id'}.
	'.disableexampointprint'}) eq 'yes') {
	$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).'" />';