version 1.30, 2010/06/06 02:40:44
|
version 1.31, 2011/11/02 18:40:17
|
Line 78 sub handler {
|
Line 78 sub handler {
|
my $uri=$r->uri; |
my $uri=$r->uri; |
my $fn=&Apache::lonnet::filelocation('',$uri); |
my $fn=&Apache::lonnet::filelocation('',$uri); |
my $contents=''; |
my $contents=''; |
my $constructmode=($uri=~/^\/\~/); |
my $constructmode=($uri=~ m/^/priv/}); |
|
|
# ============================================================ Modify and store |
# ============================================================ Modify and store |
if ($constructmode && $env{'form.store'}) { |
if ($constructmode && $env{'form.store'}) { |