Commit 23ae2273 authored by Leigh Stoller's avatar Leigh Stoller

Small fix; do not forget the logurl when copying response objects.

parent 13f50b00
......@@ -215,9 +215,9 @@ sub new($$;$$$)
return $self;
}
sub Create($$;$$)
sub Create($$;$$$)
{
my ($class, $code, $value, $output) = @_;
my ($class, $code, $value, $output, $logurl) = @_;
if (!defined($output)) {
$output = "";
......@@ -232,6 +232,8 @@ sub Create($$;$$)
my $self = {"code" => $code,
"value" => $value,
"output" => $output};
$self->{"logurl"} = $logurl
if (defined($logurl));
$current_response = $self;
return $self;
......@@ -249,7 +251,8 @@ sub Bless($$)
sub Unbless($)
{
my ($ref) = @_;
return GeniResponse->Create($ref->code(), $ref->value(), $ref->output());
return GeniResponse->Create($ref->code(), $ref->value(),
$ref->output(), $ref->logurl());
}
# accessors
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment