version 1.19, 2004/02/13 15:01:29
|
version 1.21, 2004/05/05 21:04:14
|
Line 42 sub handler {
|
Line 42 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous']); |
# ------------------------------------------------------------ Print the screen |
# ------------------------------------------------------------ Print the screen |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
Line 118 ENDDOCUMENT
|
Line 119 ENDDOCUMENT
|
if (($ENV{'form.uploaddoc.filename'}) && |
if (($ENV{'form.uploaddoc.filename'}) && |
($ENV{'form.storeupl'}) && ($allowed)) { |
($ENV{'form.storeupl'}) && ($allowed)) { |
if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) { |
if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) { |
$syllabus{'uploaded.photourl'}= |
if ($syllabus{'uploaded.photourl'}) { |
&Apache::lonnet::userfileupload('uploaddoc',1); |
&Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'}); |
|
} |
|
$syllabus{'uploaded.photourl'}= |
|
&Apache::lonnet::userfileupload('uploaddoc',1,'bulletin'); |
} |
} |
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |
&Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs); |
&Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs); |
Line 138 ENDDOCUMENT
|
Line 142 ENDDOCUMENT
|
# ---------------------------------------------------------------- Get syllabus |
# ---------------------------------------------------------------- Get syllabus |
if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) { |
if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) { |
if ($syllabus{'uploaded.photourl'}) { |
if ($syllabus{'uploaded.photourl'}) { |
$r->print('<img src="'. |
&Apache::lonnet::allowuploaded('/adm/syllabus', |
&Apache::lonnet::tokenwrapper($syllabus{'uploaded.photourl'}). |
$syllabus{'uploaded.photourl'}); |
'" align="right" />'); |
$r->print('<img src="'.$syllabus{'uploaded.photourl'}. |
|
'" align="right" />'); |
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print( |
$r->print( |
Line 189 ENDDOCUMENT
|
Line 194 ENDDOCUMENT
|
} |
} |
$r->print(&Apache::lonfeedback::list_discussion |
$r->print(&Apache::lonfeedback::list_discussion |
('board','OPEN','bulletin___'.$marker.'___'. |
('board','OPEN','bulletin___'.$marker.'___'. |
$r->uri).'</body></html>'); |
$r->uri,$ENV{'form.previous'}).'</body></html>'); |
return OK; |
return OK; |
} |
} |
|
|