--- loncom/interface/lonaboutme.pm 2002/08/27 20:29:54 1.2 +++ loncom/interface/lonaboutme.pm 2002/08/27 21:05:04 1.3 @@ -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 @@ ENDDOCUMENT } # --------------------------------------------------------- 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 @@ ENDDOCUMENT $r->print( '

Show Student View

'); } + 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 @@ ENDDOCUMENT if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) { $r->print('Last updated:'. localtime($syllabus{'uploaded.lastmodified'})); + if ($syllabus{'uploaded.photourl'}) { + $r->print(''); + } if ($allowed) { - $r->print('
'); + $r->print( + ''. + '

Upload a Photo

'. + ''. + ''. + '
'); } foreach (sort keys %syllabusfields) { if (($syllabus{$_}) || ($allowed)) { @@ -133,7 +147,7 @@ ENDDOCUMENT } $r->print('

'); } else { - $r->print('

No syllabus information provided.

'); + $r->print('

No personal information provided.

'); } $r->print(''); return OK;