version 1.53, 2001/12/04 15:17:56
|
version 1.54, 2001/12/07 23:59:08
|
Line 193 sub check_for_previous {
|
Line 193 sub check_for_previous {
|
return %previous; |
return %previous; |
} |
} |
|
|
|
sub handle_previous { |
|
my ($previous,$ad)=@_; |
|
if ($$previous{'used'} && ($$previous{'award'} eq $ad) ) { |
|
if ($$previous{'last'}) { |
|
push(@Apache::inputtags::previous,'PREVIOUSLY_LAST'); |
|
} else { |
|
push(@Apache::inputtags::previous,'PREVIOUSLY_USED'); |
|
} |
|
} |
|
} |
|
|
sub start_caparesponse { |
sub start_caparesponse { |
require Apache::caparesponse; |
require Apache::caparesponse; |
import Apache::caparesponse; |
import Apache::caparesponse; |