loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.162 and 1.164

version 1.162, 2006/06/29 17:10:39	version 1.164, 2006/08/31 13:25:18
Line 364 ENDENTERKEY	Line 364 ENDENTERKEY
my $start_page=&Apache::loncommon::start_page('User Roles');	my $start_page=&Apache::loncommon::start_page('User Roles');
my $standby=&mt('Role selected. Please stand by.');	my $standby=&mt('Role selected. Please stand by.');
$standby=~s/\n/\\n/g;	$standby=~s/\n/\\n/g;
my $helptag='<table><tr><td>'.&Apache::loncommon::help_open_menu('General Intro','General_Intro',1,undef,undef,undef,undef,&mt("Click here for help")).'</td></td></tr></table>';
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
$start_page	$start_page
$helptag<br />	<br />
<script>	<script>
$swinfo	$swinfo
window.focus();	window.focus();
Line 485 ENDHEADER	Line 485 ENDHEADER
$tstatus='selected';	$tstatus='selected';
}	}
my $tbg;	my $tbg;
if (($tstatus eq 'is') \|\| ($tstatus eq 'selected') \|\|	if (($tstatus eq 'is')
($env{'form.showall'})) {	\|\| ($tstatus eq 'selected')
	\|\| ($tstatus eq 'will')
	\|\| ($tstatus eq 'future')
	\|\| ($env{'form.showall'})) {
if ($tstatus eq 'is') {	if ($tstatus eq 'is') {
$tbg='#77FF77';	$tbg='#77FF77';
$tfont='#003300';	$tfont='#003300';
Line 831 sub build_roletext {	Line 834 sub build_roletext {
$roletext.='<td'.$rowspan.'><a href="/adm/switchserver?'.	$roletext.='<td'.$rowspan.'><a href="/adm/switchserver?'.
$switchserver.'">'.&mt('Switch Server').'</a></td>';	$switchserver.'">'.&mt('Switch Server').'</a></td>';
} else {	} else {
$roletext.=('<td> </td>');	$roletext.=('<td'.$rowspan.'> </td>');
}	}
} elsif ($tstatus eq 'is') {	} elsif ($tstatus eq 'is') {
$roletext.='<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.	$roletext.='<td'.$rowspan.'><input name="'.$buttonname.'" type="button" value="'.

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.162
changed lines
	Added in v.1.164