modules/gci/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / modules / gci

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) {