version 1.8, 2010/01/09 00:57:14
|
version 1.9, 2010/01/11 02:31:32
|
Line 38 use Apache::lonlocal;
|
Line 38 use Apache::lonlocal;
|
use Apache::migrateuser(); |
use Apache::migrateuser(); |
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
use LONCAPA; |
use LONCAPA; |
|
use HTML::Entities(); |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 82 sub handler {
|
Line 83 sub handler {
|
my $end_page = |
my $end_page = |
&Apache::loncommon::end_page(); |
&Apache::loncommon::end_page(); |
my $dest = '/adm/roles'; |
my $dest = '/adm/roles'; |
|
if ($env{'form.role'}) { |
|
$dest .= '?selectrole=1&'.$env{'form.role'}.'=1'; |
|
} |
|
if ($env{'form.symb'}) { |
|
$dest .= ($dest =~ /\?/) ? '&' : '?'; |
|
$dest .= 'destinationurl='.&HTML::Entities::encode($env{'form.symb'},'"&<>'); |
|
} |
if ($env{'form.firsturl'} ne '') { |
if ($env{'form.firsturl'} ne '') { |
$dest = $env{'form.firsturl'}; |
$dest = $env{'form.firsturl'}; |
} |
} |
Line 200 sub handler {
|
Line 208 sub handler {
|
$tokenextras = '&role='.&escape($env{'form.role'}); |
$tokenextras = '&role='.&escape($env{'form.role'}); |
} |
} |
if ($domain eq 'gci') { |
if ($domain eq 'gci') { |
$env{'form.symb'} = '/adm/gci_info'; |
unless ($env{'form.symb'} eq '/adm/statistics') { |
|
$env{'form.symb'} = '/adm/gci_info'; |
|
} |
} |
} |
if ($env{'form.symb'}) { |
if ($env{'form.symb'}) { |
if (!$tokenextras) { |
if (!$tokenextras) { |