version 1.52, 2006/05/11 16:29:20
|
version 1.54, 2006/08/16 19:40:46
|
Line 38 use Apache::lonannounce;
|
Line 38 use Apache::lonannounce;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::lonspeller(); |
use Apache::lonspeller(); |
|
use HTML::Entities(); |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 177 sub handler {
|
Line 178 sub handler {
|
# ----------------------------------------------------- Only if not public call |
# ----------------------------------------------------- Only if not public call |
if ($env{'user.environment'}) { |
if ($env{'user.environment'}) { |
# does this user have privileges to post, etc? |
# does this user have privileges to post, etc? |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'} |
|
&& $cdom eq $env{'course.'.$env{'request.course.id'}.'.domain'} |
|
&& $cnum eq $env{'course.'.$env{'request.course.id'}.'.num'}) { |
$allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'}); |
$allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'}); |
$privileged=$allowed; |
$privileged=$allowed; |
if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) { |
if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) { |
Line 319 sub handler {
|
Line 322 sub handler {
|
if ($allowed) { |
if ($allowed) { |
$r->print( |
$r->print( |
'<br /><textarea cols="80" rows="12" name="'.$_.'" id="'.$_.'">'. |
'<br /><textarea cols="80" rows="12" name="'.$_.'" id="'.$_.'">'. |
$syllabus{$_}. |
&HTML::Entities::encode($syllabus{$_},'"&<>'). |
'</textarea> <input type="submit" name="storesyl" value="Store" />'); |
'</textarea> <input type="submit" name="storesyl" value="Store" />'); |
} |
} |
} |
} |