loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.4, 2001/07/30 22:24:34	version 1.6, 2001/10/05 21:35:43
Line 32 sub get_previous_attempt {	Line 32 sub get_previous_attempt {
for ($version=1;$version<=$returnhash{'version'};$version++) {	for ($version=1;$version<=$returnhash{'version'};$version++) {
$prevattempts.='</tr><tr><th>Attempt '.$version.'</th>';	$prevattempts.='</tr><tr><th>Attempt '.$version.'</th>';
map {	map {
$prevattempts.='<td>'.$returnhash{$version.':'.$_}.'</td>';	my $value;
	if ($_ =~ /timestamp/) {
	$value=scalar(localtime($returnhash{$version.':'.$_}));
	} else {
	$value=$returnhash{$version.':'.$_};
	}
	$prevattempts.='<td>'.$value.'</td>';
} sort(keys %lasthash);	} sort(keys %lasthash);
}	}
$prevattempts.='</tr><tr><th>Current</th>';	$prevattempts.='</tr><tr><th>Current</th>';
map {	map {
$prevattempts.='<td>'.$lasthash{$_}.'</td>';	my $value;
	if ($_ =~ /timestamp/) {
	$value=scalar(localtime($lasthash{$_}));
	} else {
	$value=$lasthash{$_};
	}
	$prevattempts.='<td>'.$value.'</td>';
} sort(keys %lasthash);	} sort(keys %lasthash);
$prevattempts.='</tr></table>';	$prevattempts.='</tr></table>';
} else {	} else {
Line 48 sub get_previous_attempt {	Line 60 sub get_previous_attempt {
}	}
}	}

	sub get_unprocessed_cgi {
	my ($query)= @_;
	map {
	my ($name, $value) = split(/=/,$_);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
	if (!defined($ENV{'form.'.$name})) { $ENV{'form.'.$name}=$value; }
	} (split(/&/,$query));
	}

1;	1;
__END__;	__END__;