loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1206, 2012/12/05 17:40:59	version 1.1207, 2012/12/21 16:58:41
Line 2798 sub can_edit_resource {	Line 2798 sub can_edit_resource {
}	}
if ($uploaded \|\| $incourse) {	if ($uploaded \|\| $incourse) {
$home=&homeserver($cnum,$cdom);	$home=&homeserver($cnum,$cdom);
} else {	} elsif ($file !~ m{/$}) {
$file=~s{^(priv/$match_domain/$match_username)}{/$1};	$file=~s{^(priv/$match_domain/$match_username)}{/$1};
$file=~s{^($match_domain/$match_username)}{/priv/$1};	$file=~s{^($match_domain/$match_username)}{/priv/$1};
# Check that the user has permission to edit this resource	# Check that the user has permission to edit this resource