--- loncom/interface/lonaboutme.pm 2004/05/03 19:04:49 1.22
+++ loncom/interface/lonaboutme.pm 2004/05/04 14:20:55 1.23
@@ -1,7 +1,7 @@
# The LearningOnline Network
# "About Me" Personal Information
#
-# $Id: lonaboutme.pm,v 1.22 2004/05/03 19:04:49 sakharuk Exp $
+# $Id: lonaboutme.pm,v 1.23 2004/05/04 14:20:55 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -107,7 +107,7 @@ ENDDOCUMENT
$allowed=(($ENV{'user.name'} eq $cnum) &&
($ENV{'user.domain'} eq $cdom));
- if ($forcestudent) { $allowed=0; }
+ if ($forcestudent or $target eq 'tex') { $allowed=0; }
if ($allowed) {
if ($target ne 'tex') {
@@ -124,11 +124,8 @@ ENDDOCUMENT
if (($ENV{'form.uploaddoc.filename'}) &&
($ENV{'form.storeupl'}) && ($allowed)) {
if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {
- if ($syllabus{'uploaded.photourl'}) {
- &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
- }
- $syllabus{'uploaded.photourl'}=
- &Apache::lonnet::userfileupload('uploaddoc',undef,'aboutme');
+ $syllabus{'uploaded.photourl'}=
+ &Apache::lonnet::userfileupload('uploaddoc');
}
$syllabus{'uploaded.lastmodified'}=time;
&Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
@@ -151,12 +148,11 @@ ENDDOCUMENT
$lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));
$r->print(&mt('Last updated').': '.$lastmod);
if ($syllabus{'uploaded.photourl'}) {
- &Apache::lonnet::allowuploaded('/adm/aboutme',
- $syllabus{'uploaded.photourl'});
- $r->print('');
}
- if ($allowed & $target ne 'tex') {
+ if ($allowed) {
$r->print(
'