loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1009, 2011/06/05 12:59:47	version 1.1011, 2011/06/06 22:20:52
Line 3459 sub get_previous_attempt {	Line 3459 sub get_previous_attempt {
my $data=$parts[-1];	my $data=$parts[-1];
next if ($data eq 'foilorder');	next if ($data eq 'foilorder');
pop(@parts);	pop(@parts);
	$prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.' </th>';
if ($data eq 'type') {	if ($data eq 'type') {
unless ($showsurv) {	unless ($showsurv) {
my $id = join(',',@parts);	my $id = join(',',@parts);
Line 3467 sub get_previous_attempt {	Line 3468 sub get_previous_attempt {
$lasthidden{$ign.'.'.$id} = 1;	$lasthidden{$ign.'.'.$id} = 1;
}	}
}	}
delete($lasthash{$key});	}
} else {
$prevattempts.='<th>'.&mt('Part ').join('.',@parts).'<br />'.$data.' </th>';
}
} else {	} else {
if ($#parts == 0) {	if ($#parts == 0) {
$prevattempts.='<th>'.$parts[0].'</th>';	$prevattempts.='<th>'.$parts[0].'</th>';
Line 3587 sub get_previous_attempt {	Line 3585 sub get_previous_attempt {

sub format_previous_attempt_value {	sub format_previous_attempt_value {
my ($key,$value) = @_;	my ($key,$value) = @_;
if ($key =~ /timestamp/) {	if (($key =~ /timestamp/) \|\| ($key=~/duedate/)) {
$value = &Apache::lonlocal::locallocaltime($value);	$value = &Apache::lonlocal::locallocaltime($value);
} elsif (ref($value) eq 'ARRAY') {	} elsif (ref($value) eq 'ARRAY') {
$value = '('.join(', ', @{ $value }).')';	$value = '('.join(', ', @{ $value }).')';