--- loncom/interface/loncommon.pm 2001/02/13 18:18:40 1.1 +++ loncom/interface/loncommon.pm 2001/07/26 16:00:24 1.3 @@ -3,7 +3,7 @@ # 2/13 Guy Albertelli # 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; @@ -12,19 +12,11 @@ use Apache::Constants qw(:common); use Apache::lonmsg(); sub get_previous_attempt { - my ($symb,$username,$domain,$home,$course)=@_; + my ($symb,$username,$domain,$course)=@_; my $prevattempts=''; if ($symb) { - my $answer=&Apache::lonnet::reply( - "restore:".$domain.':'.$username.':'.$course.':'. - &Apache::lonnet::escape($symb), - $home); - my %returnhash=(); - map { - my ($name,$value)=split(/\=/,$_); - $returnhash{&Apache::lonnet::unescape($name)}= - &Apache::lonnet::unescape($value); - } split(/\&/,$answer); + my (%returnhash)= + &Apache::lonnet::restore($symb,$course,$domain,$username); if ($returnhash{'version'}) { my %lasthash=(); my $version;