loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1170, 2012/05/18 20:03:22	version 1.1172, 2012/05/21 18:35:30
Line 10760 sub declutter {	Line 10760 sub declutter {
$thisfn=~s\|^adm/wrapper/\|\|;	$thisfn=~s\|^adm/wrapper/\|\|;
$thisfn=~s\|^adm/coursedocs/showdoc/\|\|;	$thisfn=~s\|^adm/coursedocs/showdoc/\|\|;
$thisfn=~s/^res\///;	$thisfn=~s/^res\///;
	$thisfn=~s/^priv\///;
unless (($thisfn =~ /^ext/) \|\| ($thisfn =~ /\.(page\|sequence)___\d+___ext/)) {	unless (($thisfn =~ /^ext/) \|\| ($thisfn =~ /\.(page\|sequence)___\d+___ext/)) {
$thisfn=~s/\?.+$//;	$thisfn=~s/\?.+$//;
}	}
Line 11682 B<rolesinit($udom,$username)>: get user	Line 11683 B<rolesinit($udom,$username)>: get user
returns user role, first access and timer interval hashes	returns user role, first access and timer interval hashes

=item *	=item *
	X<privileged()>
	B<privileged($username,$domain)>: returns a true if user has a
	privileged and active role (i.e. su or dc), false otherwise.

	=item *
X<getsection()>	X<getsection()>
B<getsection($udom,$uname,$cname)>: finds the section of student in the	B<getsection($udom,$uname,$cname)>: finds the section of student in the
course $cname, return section name/number or '' for "not in course"	course $cname, return section name/number or '' for "not in course"