|
version 1.279, 2012/03/14 20:54:02
|
version 1.280, 2012/10/29 17:38:55
|
|
Line 121 use HTML::LCParser;
|
Line 121 use HTML::LCParser;
|
| use HTML::Entities; |
use HTML::Entities; |
| use Encode::Encoder; |
use Encode::Encoder; |
| use Apache::lonxml; |
use Apache::lonxml; |
| use Apache::loncacc; |
|
| use DBI; |
use DBI; |
| use Apache::lonnet; |
use Apache::lonnet; |
| use Apache::loncommon(); |
use Apache::loncommon(); |
|
Line 2083 sub handler {
|
Line 2082 sub handler {
|
| # -------------------------------------------------------------- Check filename |
# -------------------------------------------------------------- Check filename |
| |
|
| my $fn=&unescape($env{'form.filename'}); |
my $fn=&unescape($env{'form.filename'}); |
| ($cuname,$cudom)=&Apache::loncacc::constructaccess($fn); |
($cuname,$cudom)=&Apache::lonnet::constructaccess($fn); |
| # ----------------------------------------------------- Do we have permissions? |
# ----------------------------------------------------- Do we have permissions? |
| unless (($cuname) && ($cudom)) { |
unless (($cuname) && ($cudom)) { |
| $r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}. |
$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}. |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher