version 1.218, 2009/04/11 21:42:58
|
version 1.219, 2009/04/14 23:52:07
|
Line 423 ENDENTERKEY
|
Line 423 ENDENTERKEY
|
if (($env{'form.orgurl'}) && |
if (($env{'form.orgurl'}) && |
($env{'form.orgurl'}!~/^\/adm\/flip/)) { |
($env{'form.orgurl'}!~/^\/adm\/flip/)) { |
my $dest=$env{'form.orgurl'}; |
my $dest=$env{'form.orgurl'}; |
|
if ($env{'form.symb'}) { |
|
if ($dest =~ /\?/) { |
|
$dest .= '&'; |
|
} else { |
|
$dest .= '?' |
|
} |
|
$dest .= 'symb='.$env{'form.symb'}; |
|
} |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
if (($ferr) && ($tadv)) { |
if (($ferr) && ($tadv)) { |