loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.140, 2003/10/30 13:57:06	version 1.142, 2003/11/04 19:01:01
Line 1771 sub get_previous_attempt {	Line 1771 sub get_previous_attempt {
} else {	} else {
$value=$returnhash{$version.':'.$_};	$value=$returnhash{$version.':'.$_};
}	}
$prevattempts.='<td>'.$value.' </td>';	$prevattempts.='<td>'.&Apache::lonnet::unescape($value).' </td>';
}	}
}	}
}	}
Line 1783 sub get_previous_attempt {	Line 1783 sub get_previous_attempt {
} else {	} else {
$value=$lasthash{$_};	$value=$lasthash{$_};
}	}
	$value=&Apache::lonnet::unescape($value);
if ($_ =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)}	if ($_ =~/$regexp$/ && (defined &$gradesub)) {$value = &$gradesub($value)}
$prevattempts.='<td>'.$value.' </td>';	$prevattempts.='<td>'.$value.' </td>';
}	}
Line 2672 sub check_if_partid_hidden {	Line 2673 sub check_if_partid_hidden {
my ($id,$symb,$udom,$uname) = @_;	my ($id,$symb,$udom,$uname) = @_;
my $hiddenparts=&Apache::lonnet::EXT('resource.0.hiddenparts',	my $hiddenparts=&Apache::lonnet::EXT('resource.0.hiddenparts',
$symb,$udom,$uname);	$symb,$udom,$uname);
	my $truth=1;
	#if the string starts with !, then the list is the list to show not hide
	if ($hiddenparts=~s/^\s*!//) { $truth=undef; }
my @hiddenlist=split(/,/,$hiddenparts);	my @hiddenlist=split(/,/,$hiddenparts);
foreach my $checkid (@hiddenlist) {	foreach my $checkid (@hiddenlist) {
if ($checkid =~ /^\s\Q$id\E\s$/) { return 1; }	if ($checkid =~ /^\s\Q$id\E\s$/) { return $truth; }
}	}
return undef;	return !$truth;
}	}