loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.115, 2004/12/17 21:44:19	version 1.116, 2005/03/03 07:16:44
Line 376 ENDHEADER	Line 376 ENDHEADER
$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'};	$fn.='?'.$ENV{'REDIRECT_QUERY_STRING'};
}	}
$r->print('<form method="post" name="rolechoice" action="'.(($fn)?$fn:$r->uri).'">');	$r->print('<form method="post" name="rolechoice" action="'.(($fn)?$fn:$r->uri).'">');
$r->print('<input type=hidden name=orgurl value="'.$fn.'">');	$r->print('<input type="hidden" name="orgurl" value="'.$fn.'" />');
$r->print('<input type=hidden name=selectrole value=1>');	$r->print('<input type="hidden" name="selectrole" value="1" />');
}	}
if ($ENV{'user.adv'}) {	if ($ENV{'user.adv'}) {
$r->print(	$r->print(
'<br />'.&mt('Show all roles').': <input type="checkbox" name="showall"');	'<br /><label>'.&mt('Show all roles').': <input type="checkbox" name="showall"');
if ($ENV{'form.showall'}) { $r->print(' checked'); }	if ($ENV{'form.showall'}) { $r->print(' checked="checked" '); }
$r->print('><input type=submit value="'.&mt('Display').'">');	$r->print(' /></label><input type="submit" value="'.&mt('Display').'" />');
}	}

my (%roletext,%sortrole,%roleclass);	my (%roletext,%sortrole,%roleclass);