loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2001/02/13 18:18:40	version 1.2, 2001/07/26 15:50:25
Line 3	Line 3
# 2/13 Guy Albertelli	# 2/13 Guy Albertelli

# Makes a table out of the previous attempts	# Makes a table out of the previous attempts
# Inputs result_from_symbread, user, domain, home_server, course_id	# Inputs result_from_symbread, user, domain, course_id

package Apache::loncommon;	package Apache::loncommon;

Line 12 use Apache::Constants qw(:common);	Line 12 use Apache::Constants qw(:common);
use Apache::lonmsg();	use Apache::lonmsg();

sub get_previous_attempt {	sub get_previous_attempt {
my ($symb,$username,$domain,$home,$course)=@_;	my ($symb,$username,$domain,$course)=@_;
my $prevattempts='';	my $prevattempts='';
if ($symb) {	if ($symb) {
my $answer=&Apache::lonnet::reply(	my $answer=&Apache::lonnet::reply(
"restore:".$domain.':'.$username.':'.$course.':'.	"restore:".$domain.':'.$username.':'.$course.':'.
&Apache::lonnet::escape($symb),	&Apache::lonnet::escape($symb));
$home);
my %returnhash=();	my %returnhash=();
map {	map {
my ($name,$value)=split(/\=/,$_);	my ($name,$value)=split(/\=/,$_);