[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;