loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1172.2.13, 2012/12/13 19:32:52	version 1.1172.2.14, 2012/12/21 17:01:04
Line 2790 sub can_edit_resource {	Line 2790 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