![[BACK]](/icons/back.gif){kind=icon}
Return to loncourseauthor.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncourseauthor.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.3, 2023/03/27 18:41:04 | version 1.4, 2024/12/25 14:20:19 |
|---|---|
| Line 109 sub handler { | Line 109 sub handler { |
| if ($env{'form.path'}) { | if ($env{'form.path'}) { |
| $relpath = $env{'form.path'}; | $relpath = $env{'form.path'}; |
| } | } |
| my @ids=&Apache::lonnet::current_machine_ids(); | |
| if (grep(/^\Q$env{'user.home'}\E$/,@ids)) { | |
| $is_home = 1; | |
| } | |
| if ($inc) { | if ($inc) { |
| map { $include->{$_} = 1; } split(/\s*,\s*/,$inc); | map { $include->{$_} = 1; } split(/\s*,\s*/,$inc); |
| } | } |