|
version 1.1233, 2013/08/04 02:55:41
|
version 1.1234, 2013/08/06 23:13:42
|
|
Line 2852 sub can_edit_resource {
|
Line 2852 sub can_edit_resource {
|
| $cfile =~ s{^http://}{}; |
$cfile =~ s{^http://}{}; |
| $cfile = '/adm/wrapper/ext/'.$cfile; |
$cfile = '/adm/wrapper/ext/'.$cfile; |
| } |
} |
| |
} elsif ($resurl =~ m{^/?adm/viewclasslist$}) { |
| |
if ($env{'form.forceedit'}) { |
| |
$forceview = 1; |
| |
} else { |
| |
$forceedit = 1; |
| |
} |
| |
$cfile = ($resurl =~ m{^/} ? $resurl : "/$resurl"); |
| } |
} |
| } |
} |
| if ($uploaded || $incourse) { |
if ($uploaded || $incourse) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl