[LON-CAPA-cvs] cvs: loncom /interface lonsyllabus.pm

www lon-capa-cvs@mail.lon-capa.org
Tue, 27 Aug 2002 19:59:08 -0000


www		Tue Aug 27 15:59:08 2002 EDT

  Modified files:              
    /loncom/interface	lonsyllabus.pm 
  Log:
  Dude, what a tool.
  
  
Index: loncom/interface/lonsyllabus.pm
diff -u loncom/interface/lonsyllabus.pm:1.4 loncom/interface/lonsyllabus.pm:1.5
--- loncom/interface/lonsyllabus.pm:1.4	Tue Aug 27 12:49:20 2002
+++ loncom/interface/lonsyllabus.pm	Tue Aug 27 15:59:08 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Syllabus
 #
-# $Id: lonsyllabus.pm,v 1.4 2002/08/27 16:49:20 www Exp $
+# $Id: lonsyllabus.pm,v 1.5 2002/08/27 19:59:08 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,6 +32,7 @@
 use Apache::Constants qw(:common);
 use Apache::loncommon;
 use Apache::lonnet;
+use Apache::lontexconvert;
 
 sub handler {
     my $r = shift;
@@ -39,7 +40,6 @@
     $r->send_http_header;
     return OK if $r->header_only;
 
-
 # ------------------------------------------------------------ Print the screen
     $r->print(<<ENDDOCUMENT);
 <html>
@@ -53,31 +53,82 @@
 	$r->print('<body>No syllabus available</body>');
         return OK;
     }
+# --------------------------------------------------------- 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');
+
+       
 # ------------------------------------- There is such a course, get environment
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
     $r->print(&Apache::loncommon::bodytag("Syllabus",'','','',$cdom));
     $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.
               $Apache::lonnet::domaindescription{$cdom}.'</h3>');
     my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
+    my $allowed=0;
 
 # This handler might be called anonymously ...
 # ----------------------------------------------------- Only if not public call
     if ($ENV{'user.environment'}) {
 # does this user have privileges to post, etc?
-       my $allowed=0;
        if ($ENV{'request.course.id'}) {
           $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});
        }
+       if (($allowed) && ($ENV{'form.storesyl'})) {
+	   foreach (keys %syllabusfields) {
+               my $field=$ENV{'form.'.$_};
+               $field=~s/\s+$//s;
+               $field=~s/\</\&lt\;/g;
+               $field=~s/\>/\&gt\;/g;
+	       if ($field) {
+		   $syllabus{$_}=$field;
+               } else {
+                   delete $syllabus{$_};
+               }
+           }
+           $syllabus{'uploaded.domain'}=$ENV{'user.domain'};
+           $syllabus{'uploaded.name'}=$ENV{'user.name'};
+           $syllabus{'uploaded.lastmodified'}=time;
+           &Apache::lonnet::put('syllabus',\%syllabus,$cdom,$cnum);
+       }
     }
 # ---------------------------------------------------------------- Get syllabus
-    if ($ENV{'uploaded.lastmodified'}) {
+    if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
        $r->print('<table><tr><td>Uploaded:</td><td>'.
  &Apache::loncommon::plainname($syllabus{'uploaded.name'},
                      $syllabus{'uploaded.domain'}).
  '</td></tr><tr><td>Last updated</td><td>'.
                      localtime($syllabus{'uploaded.lastmodified'}).
-                     '</td></tr></table>');
-        $r->print('<blockquote>'.$syllabus{'description'}.'</blockquote>');
+                     '</td></tr></table><p>');
+       if ($allowed) {
+	   $r->print('<form method="post">');
+       }
+       foreach (sort keys %syllabusfields) {
+          if (($syllabus{$_}) || ($allowed)) {
+              my $message=$syllabus{$_};
+              $message=~s/\n/\<br \/\>/g;
+              $message
+             =~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
+	      $message=&Apache::lontexconvert::msgtexconverted($message);
+              $r->print('<h3>'.$syllabusfields{$_}.'</h3><blockquote>'.
+                        $message.'</blockquote>');
+              if ($allowed) {
+                 $r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'.
+			   $syllabus{$_}.
+           '</textarea><input type="submit" name="storesyl" value="Store" />');
+	      }
+	  }
+       }
+       if ($allowed) {
+	   $r->print('</form>');
+       }
+       $r->print('</p>');
     } else {
        $r->print('<p>No syllabus information provided.</p>');
     }