version 1.22, 2004/05/03 19:04:49
|
version 1.23, 2004/05/04 14:20:55
|
Line 107 ENDDOCUMENT
|
Line 107 ENDDOCUMENT
|
|
|
$allowed=(($ENV{'user.name'} eq $cnum) && |
$allowed=(($ENV{'user.name'} eq $cnum) && |
($ENV{'user.domain'} eq $cdom)); |
($ENV{'user.domain'} eq $cdom)); |
if ($forcestudent) { $allowed=0; } |
if ($forcestudent or $target eq 'tex') { $allowed=0; } |
|
|
if ($allowed) { |
if ($allowed) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
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) { |
if ($syllabus{'uploaded.photourl'}) { |
$syllabus{'uploaded.photourl'}= |
&Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'}); |
&Apache::lonnet::userfileupload('uploaddoc'); |
} |
|
$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 151 ENDDOCUMENT
|
Line 148 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'}) { |
&Apache::lonnet::allowuploaded('/adm/aboutme', |
$r->print('<img src="'. |
$syllabus{'uploaded.photourl'}); |
&Apache::lonnet::tokenwrapper($syllabus{'uploaded.photourl'}). |
$r->print('<img src="'.$syllabus{'uploaded.photourl'}. |
|
'" align="right" />'); |
'" align="right" />'); |
} |
} |
if ($allowed & $target ne 'tex') { |
if ($allowed) { |
$r->print( |
$r->print( |
'<form method="post" enctype="multipart/form-data">'. |
'<form method="post" enctype="multipart/form-data">'. |
'<h3>'.&mt('Upload a Photo').'</h3>'. |
'<h3>'.&mt('Upload a Photo').'</h3>'. |
Line 178 ENDDOCUMENT
|
Line 174 ENDDOCUMENT
|
$r->print('\\\\\textbf{'.$syllabusfields{$_}.'}\\\\'. |
$r->print('\\\\\textbf{'.$syllabusfields{$_}.'}\\\\'. |
&Apache::lonxml::xmlparse($r,' ',$message).'\\\\'); |
&Apache::lonxml::xmlparse($r,' ',$message).'\\\\'); |
} |
} |
if ($allowed and $target ne 'tex') { |
if ($allowed) { |
$r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'. |
$r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'. |
$syllabus{$_}. |
$syllabus{$_}. |
'</textarea><input type="submit" name="storesyl" value="'. |
'</textarea><input type="submit" name="storesyl" value="'. |
Line 186 ENDDOCUMENT
|
Line 182 ENDDOCUMENT
|
} |
} |
} |
} |
} |
} |
if ($allowed and $target ne 'tex') { |
if ($allowed) { |
$r->print('</form>'); |
$r->print('</form>'); |
} |
} |
if ($target ne 'tex') {$r->print('</p>');} else {$r->print('\\\\');} |
if ($target ne 'tex') {$r->print('</p>');} else {$r->print('\\\\');} |
Line 205 ENDDOCUMENT
|
Line 201 ENDDOCUMENT
|
$r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom)); |
$r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom)); |
} else { |
} else { |
$r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\'); |
$r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\'); |
my $mess=&Apache::lonmsg::disfacetoface($r,$cnum,$cdom); |
&Apache::lonmsg::disfacetoface($r,$cnum,$cdom); |
# $r->print(' '.&Apache::lonxml::xmlparse($r,' ',$mess).' '); |
|
$r->print(' >>>>'.$mess.'<<<< '); |
|
} |
} |
} |
} |
} |
} |