loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonuserutils.pm between versions 1.182 and 1.183.2.1

version 1.182, 2017/01/28 03:48:44	version 1.183.2.1, 2020/10/15 13:47:45
Line 3101 END	Line 3101 END
}	}
if ($showcheckbox) {	if ($showcheckbox) {
$r->print('<td><input type="checkbox" name="'.	$r->print('<td><input type="checkbox" name="'.
'actionlist" value="'.&HTML::Entities::encode($checkval,'&<>"').'" /></td>');	'actionlist" value="'.
	&HTML::Entities::encode($checkval,'&<>"').'" />');
	foreach my $item ('start','end') {
	$r->print('<input type="hidden" name="'.
	&HTML::Entities::encode($checkval.'_'.$item,'&<>"').'"'.
	' value="'.$sdata->[$index{$item}].'" />');
	}
	$r->print('</td>');
} else {	} else {
$r->print('<td> </td>');	$r->print('<td> </td>');
}	}
Line 3115 END	Line 3122 END
foreach my $item (@cols) {	foreach my $item (@cols) {
if ($item eq 'username') {	if ($item eq 'username') {
$r->print('<td>'.&print_username_link($mode,\%in).'</td>');	$r->print('<td>'.&print_username_link($mode,\%in).'</td>');
} elsif (($item eq 'start' \|\| $item eq 'end') && ($actionselect)) {
$r->print('<td>'.$in{$item}.'<input type="hidden" name="'.&HTML::Entities::encode($checkval.'_'.$item.'" value="'.$sdata->[$index{$item}],'&<>"').'" /></td>'."\n");
} elsif ($item eq 'status') {	} elsif ($item eq 'status') {
my $showitem = $in{$item};	my $showitem = $in{$item};
if (defined($ltstatus{$in{$item}})) {	if (defined($ltstatus{$in{$item}})) {
Line 4781 sub upfile_drop_add {	Line 4786 sub upfile_drop_add {
}	}
}	}
}	}
if (!$multiple) {	}
($userresult,$authresult,$roleresult,$idresult) =	if (!$multiple) {
&modifyuserrole($context,$setting,	($userresult,$authresult,$roleresult,$idresult) =
$changeauth,$cid,$userdomain,$username,	&modifyuserrole($context,$setting,
$id,$amode,$password,$fname,	$changeauth,$cid,$userdomain,$username,
$mname,$lname,$gen,$singlesec,	$id,$amode,$password,$fname,
$env{'form.forceid'},$desiredhost,	$mname,$lname,$gen,$singlesec,
$email,$role,$enddate,$startdate,	$env{'form.forceid'},$desiredhost,
$checkid,$inststatus);	$email,$role,$enddate,$startdate,
}	$checkid,$inststatus);
}	}
}	}
if ($multiple) {	if ($multiple) {

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

Removed from v.1.182
changed lines
	Added in v.1.183.2.1