version 1.23, 2004/05/04 14:20:55
|
version 1.25, 2004/05/10 14:11:13
|
Line 124 ENDDOCUMENT
|
Line 124 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'); |
&Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'}); |
|
} |
|
$syllabus{'uploaded.photourl'}= |
|
&Apache::lonnet::userfileupload('uploaddoc',undef,'aboutme'); |
} |
} |
$syllabus{'uploaded.lastmodified'}=time; |
$syllabus{'uploaded.lastmodified'}=time; |
&Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum); |
&Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum); |
Line 148 ENDDOCUMENT
|
Line 151 ENDDOCUMENT
|
$lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never')); |
$lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never')); |
$r->print(&mt('Last updated').': '.$lastmod); |
$r->print(&mt('Last updated').': '.$lastmod); |
if ($syllabus{'uploaded.photourl'}) { |
if ($syllabus{'uploaded.photourl'}) { |
$r->print('<img src="'. |
&Apache::lonnet::allowuploaded('/adm/aboutme', |
&Apache::lonnet::tokenwrapper($syllabus{'uploaded.photourl'}). |
$syllabus{'uploaded.photourl'}); |
|
$r->print('<img src="'.$syllabus{'uploaded.photourl'}. |
'" align="right" />'); |
'" align="right" />'); |
} |
} |
if ($allowed) { |
if ($allowed) { |
Line 172 ENDDOCUMENT
|
Line 176 ENDDOCUMENT
|
$message.'</blockquote>'); |
$message.'</blockquote>'); |
} else { |
} else { |
$r->print('\\\\\textbf{'.$syllabusfields{$_}.'}\\\\'. |
$r->print('\\\\\textbf{'.$syllabusfields{$_}.'}\\\\'. |
&Apache::lonxml::xmlparse($r,' ',$message).'\\\\'); |
&Apache::lonxml::xmlparse($r,'tex',$message).'\\\\'); |
} |
} |
if ($allowed) { |
if ($allowed) { |
$r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'. |
$r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'. |