loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.344, 2014/02/25 19:31:48	version 1.346, 2014/12/11 01:23:55
Line 541 sub due_date {	Line 541 sub due_date {
} else {	} else {
$date = $due_date;	$date = $due_date;
}	}
return $date	return $date;
}	}

sub seconds_to_human_length {	sub seconds_to_human_length {
Line 590 sub showarray {	Line 590 sub showarray {
sub showhashsubset {	sub showhashsubset {
my ($hash,$keyre) = @_;	my ($hash,$keyre) = @_;
my $resultkey;	my $resultkey;
foreach $resultkey (sort keys %$hash) {	foreach $resultkey (sort(keys(%$hash))) {
if ($resultkey !~ /$keyre/) { next; }	if ($resultkey !~ /$keyre/) { next; }
if (ref($$hash{$resultkey}) eq 'ARRAY' ) {	if (ref($$hash{$resultkey}) eq 'ARRAY' ) {
&Apache::lonxml::debug("$resultkey ---- ".	&Apache::lonxml::debug("$resultkey ---- ".