[LON-CAPA-cvs] cvs: loncom /interface lonaboutme.pm
www
lon-capa-cvs@mail.lon-capa.org
Tue, 27 Aug 2002 21:05:04 -0000
www Tue Aug 27 17:05:04 2002 EDT
Modified files:
/loncom/interface lonaboutme.pm
Log:
Upload photo
Index: loncom/interface/lonaboutme.pm
diff -u loncom/interface/lonaboutme.pm:1.2 loncom/interface/lonaboutme.pm:1.3
--- loncom/interface/lonaboutme.pm:1.2 Tue Aug 27 16:29:54 2002
+++ loncom/interface/lonaboutme.pm Tue Aug 27 17:05:04 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network
# "About Me" Personal Information
#
-# $Id: lonaboutme.pm,v 1.2 2002/08/27 20:29:54 www Exp $
+# $Id: lonaboutme.pm,v 1.3 2002/08/27 21:05:04 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -55,14 +55,9 @@
}
# --------------------------------------------------------- The syllabus fields
my %syllabusfields=(
- 'aaa_instructorinfo' => 'Instructor Information',
- 'bbb_description' => 'Course Description',
- 'ccc_prereq' => 'Prerequisites',
- 'ddd_officehours' => 'Office Hours',
- 'eee_helproom' => 'Helproom Hours',
- 'fff_examinfo' => 'Exam Information',
- 'ggg_grading' => 'Grading Information',
- 'hhh_readings' => 'Readings');
+ 'aaa_contactinfo' => 'Contact Information',
+ 'bbb_aboutme' => 'About Me',
+ 'ccc_webreferences' => 'Web References');
# --------------------------------------------------------------- Force Student
&Apache::loncommon::get_unprocessed_cgi
@@ -89,6 +84,15 @@
$r->print(
'<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a></p>');
}
+ if (($ENV{'form.uploaddoc.filename'}) &&
+ ($ENV{'form.storeupl'}) && ($allowed)) {
+ if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/) {
+ $syllabus{'uploaded.photourl'}=
+ &Apache::lonnet::userfileupload('uploaddoc');
+ }
+ $syllabus{'uploaded.lastmodified'}=time;
+ &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
+ }
if (($allowed) && ($ENV{'form.storesyl'})) {
foreach (keys %syllabusfields) {
my $field=$ENV{'form.'.$_};
@@ -109,8 +113,18 @@
if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
$r->print('Last updated:'.
localtime($syllabus{'uploaded.lastmodified'}));
+ if ($syllabus{'uploaded.photourl'}) {
+ $r->print('<img src="'.
+ &Apache::lonnet::tokenwrapper($syllabus{'uploaded.photourl'}).
+ '" align="right" />');
+ }
if ($allowed) {
- $r->print('<form method="post">');
+ $r->print(
+ '<form method="post" enctype="multipart/form-data">'.
+ '<h3>Upload a Photo</h3>'.
+ '<input type="file" name="uploaddoc" size="50">'.
+ '<input type="submit" name="storeupl" value="Upload">'.
+ '</form><form method="post">');
}
foreach (sort keys %syllabusfields) {
if (($syllabus{$_}) || ($allowed)) {
@@ -133,7 +147,7 @@
}
$r->print('</p>');
} else {
- $r->print('<p>No syllabus information provided.</p>');
+ $r->print('<p>No personal information provided.</p>');
}
$r->print('</body></html>');
return OK;