$r->{Divert} = $r->_db_transaction(sub { $r->_check_divert_core(); });
$dbh->commit();
- my $cookraw = $r->{_CookieRaw};
- $r->{CookieSecret} = $r->_blind($cookraw);
+ my $divert = $r->{Divert};
+ my $cookraw = $divert->{_CookieRaw};
+ $divert->{CookieSecret} = $r->_blind($cookraw);
if ($cookraw) {
- $r->{Params}{$r->{S}{assoc_param_name}} = [
+ $divert->{Params}{$r->{S}{assoc_param_name}} = [
$r->_blind($r->hash($cookraw))
];
}
- $r->_debug(Data::Dumper->Dump([$r->{Divert}],[qw(divert)]));
- return $r->{Divert};
+ $r->_debug(Data::Dumper->Dump([$divert],[qw(divert)]));
+ return $divert;
}
sub get_divert ($) {