version 1.65, 2022/08/24 20:58:50
|
version 1.66, 2022/09/17 23:38:50
|
Line 295 sub ip_changed {
|
Line 295 sub ip_changed {
|
$info{$name} = $dataref->{$name}; |
$info{$name} = $dataref->{$name}; |
} |
} |
} |
} |
|
if ($info{'origurl'} eq '/adm/email') { |
|
if (($dataref->{'display'}) && ($dataref->{'mailrecip'})) { |
|
if (&unescape($dataref->{'mailrecip'}) eq $dataref->{'username'}.':'.$dataref->{'domain'}) { |
|
$info{'display'} = $dataref->{'display'}; |
|
$info{'mailrecip'} = $dataref->{'mailrecip'}; |
|
} |
|
} |
|
} |
my $iptoken = &Apache::lonnet::tmpput(\%info,$switchto,'link'); |
my $iptoken = &Apache::lonnet::tmpput(\%info,$switchto,'link'); |
unless ($iptoken eq 'conlost') { |
unless ($iptoken eq 'conlost') { |
$url .= (($url =~ /\?/) ? '&' : '?') . 'iptoken='.$iptoken; |
$url .= (($url =~ /\?/) ? '&' : '?') . 'iptoken='.$iptoken; |
Line 996 sub handler {
|
Line 1004 sub handler {
|
$extra_env = {'request.deeplink.login' => $data{'deeplink.login'}}; |
$extra_env = {'request.deeplink.login' => $data{'deeplink.login'}}; |
} |
} |
} |
} |
|
if ($desturl eq '/adm/email') { |
|
if (($data{'display'}) && ($data{'mailrecip'})) { |
|
if (&unescape($data{'mailrecip'}) eq "$data{'username'}:$data{'domain'}") { |
|
$form{'display'} = &unescape($data{'display'}); |
|
} |
|
} |
|
} |
} |
} |
my $skipcritical; |
my $skipcritical; |
if ($data{'lti.login'}) { |
if ($data{'lti.login'}) { |