|
version 1.2, 2001/07/26 15:50:25
|
version 1.3, 2001/07/26 16:00:24
|
|
Line 15 sub get_previous_attempt {
|
Line 15 sub get_previous_attempt {
|
| my ($symb,$username,$domain,$course)=@_; |
my ($symb,$username,$domain,$course)=@_; |
| my $prevattempts=''; |
my $prevattempts=''; |
| if ($symb) { |
if ($symb) { |
| my $answer=&Apache::lonnet::reply( |
my (%returnhash)= |
| "restore:".$domain.':'.$username.':'.$course.':'. |
&Apache::lonnet::restore($symb,$course,$domain,$username); |
| &Apache::lonnet::escape($symb)); |
|
| my %returnhash=(); |
|
| map { |
|
| my ($name,$value)=split(/\=/,$_); |
|
| $returnhash{&Apache::lonnet::unescape($name)}= |
|
| &Apache::lonnet::unescape($value); |
|
| } split(/\&/,$answer); |
|
| if ($returnhash{'version'}) { |
if ($returnhash{'version'}) { |
| my %lasthash=(); |
my %lasthash=(); |
| my $version; |
my $version; |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface