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(/\=/,$_); |