[BACK]Return to lonsyllabus.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsyllabus.pm between versions 1.6 and 1.48

version 1.6, 2002/08/27 20:29:54 version 1.48, 2006/03/15 19:41:26
Line 33  use Apache::Constants qw(:common); Line 33  use Apache::Constants qw(:common);
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::lontexconvert;  use Apache::lontexconvert;
   use Apache::lonfeedback;
   use Apache::lonannounce;
   use Apache::lonlocal;
   use Apache::lonhtmlcommon;
   use Apache::lonspeller();
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
     $r->content_type('text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
 # ------------------------------------------------------------ Print the screen      my $target=$env{'form.grade_target'};
     $r->print(<<ENDDOCUMENT);  # --------------------------------------------------- Get course info from URL
 <html>  
 <head>  
 <title>The LearningOnline Network with CAPA</title>  
 </head>  
 ENDDOCUMENT  
     my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);      my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);
 # Is this even a course?  # ------------------------------------------------------------ Get query string
     if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {      &Apache::loncommon::get_unprocessed_cgi
  $r->print('<body>No syllabus available</body>');                          ($ENV{'QUERY_STRING'},['forcestudent','register','forceedit','wrapperdisplay']);
   # ----------------------------------------------------- Is this even a course?
       my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom);
       if ($homeserver eq 'no_host') {
           &Apache::loncommon::content_type($r,'text/html');
           $r->send_http_header;
           $r->print(&Apache::loncommon::startpage('No syllabus available').
     &mt('No syllabus available').
     &Apache::loncommon::end_page());
         return OK;          return OK;
     }      }
   # ------------------------------------- There is such a course, get environment
       my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
   
   # ------------------------------------------------------------ Print the screen
       my $feedurl='http://'.$ENV{'HTTP_HOST'}.'/public/'.$cdom.'/'.$cnum.'/Course_Announcements.rss';
       if ($target ne 'tex') {
    my $html=&Apache::lonxml::xmlbegin();
    my $head=&Apache::loncommon::headtag('The LearningOnline Network with CAPA');
    $r->print(<<ENDDOCUMENT);
   $html
   $head
   <link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$feedurl" />
   ENDDOCUMENT
       } else {
    $r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));
       } 
   # ----------------------------------------------------- Force menu registration
       my $addentries='';
       if ($env{'form.register'}) {
          $addentries=' onLoad="'.&Apache::lonmenu::loadevents().
              '" onUnload="'.&Apache::lonmenu::unloadevents().'"';
          $r->print(&Apache::lonmenu::registerurl(1));
       }
   # -------------------------------------------------- Let's see who handles this
       my $externalsyllabus=$courseenv{'externalsyllabus'};
       if ($externalsyllabus=~/\w/) {
          $r->print(&Apache::loncommon::endheadtag());
          if ($env{'form.wrapperdisplay'} eq 'menu') {
   #
   # Producing the menu buttons
   #
              $r->print('<body bgcolor="#FFFFFF">'.
        &Apache::lonmenu::menubuttons(1,'web',1).
        &Apache::loncommon::end_page());
           } else {
              if ($env{'browser.interface'} eq 'textual') {
   #
   # ssi-based rendering for text-based interface
   #
                  $r->print('<body bgcolor="#FFFFFF">'.
    &Apache::lonmenu::menubuttons(1).
    &Apache::lonnet::ssi_body($externalsyllabus).
    &Apache::loncommon::end_page());
              } elsif ($env{'environment.remote'} eq 'off') {
   #
   # This is inline remote
   # 
                  $r->print(<<ENDDOCUMENTINL);
   <frameset rows="180,*" border="0" $addentries>
   <frame src="/public/$cdom/$cnum/syllabus?wrapperdisplay=menu">
   <frame src="$externalsyllabus">
   </frameset>
   </html>
   ENDDOCUMENTINL
             } else {
   #
   # frame-based rendering for graphical interface
   #
                  $r->print(<<ENDDOCUMENT);
   <frameset rows="1,*" border="0" $addentries>
   <frame src="/adm/rat/empty.html">
   <frame src="$externalsyllabus">
   </frameset>
   </html>
   ENDDOCUMENT
              }
           }
           return OK;
        } 
   
   # ------------------------------ The buck stops here: internal syllabus display
 # --------------------------------------------------------- The syllabus fields  # --------------------------------------------------------- The syllabus fields
     my %syllabusfields=(      my %syllabusfields=&Apache::lonlocal::texthash(
        'aaa_instructorinfo' => 'Instructor Information',         'aaa_instructorinfo' => 'Instructor Information',
        'bbb_description'    => 'Course Description',         'bbb_description'    => 'Course Description',
        'ccc_prereq'         => 'Prerequisites',         'ccc_prereq'         => 'Prerequisites',
          'cdc_classhours'     => 'Class Hours',
        'ddd_officehours'    => 'Office Hours',         'ddd_officehours'    => 'Office Hours',
        'eee_helproom'       => 'Helproom Hours',         'eee_helproom'       => 'Helproom Hours',
          'efe_projectinfo'    => 'Project Information',
        'fff_examinfo'       => 'Exam Information',         'fff_examinfo'       => 'Exam Information',
          'fgf_deadlines'      => 'Deadlines',
        'ggg_grading'        => 'Grading Information',         'ggg_grading'        => 'Grading Information',
        'hhh_readings'       => 'Readings');         'hhh_readings'       => 'Readings',
          'iii_coursepack'     => 'Coursepack',
          'jjj_weblinks'       => 'Web Links',
          'kkk_textbook'       => 'Textbook',
          'lll_includeurl'     => 'URLs To Include in Syllabus');
 # --------------------------------------------------------------- Force Student  # --------------------------------------------------------------- Force Student
     &Apache::loncommon::get_unprocessed_cgi  
                                        ($ENV{'QUERY_STRING'},['forcestudent']);  
     my $forcestudent='';      my $forcestudent='';
     if ($ENV{'form.forcestudent'}) { $forcestudent='student'; };      if ($env{'form.forcestudent'}) { $forcestudent='student'; };
       my $forceedit='';
       if ($env{'form.forceedit'}) { $forceedit='edit'; }
                 
 # ------------------------------------- There is such a course, get environment  # ----------------------------------------------------------------- Make header 
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);      if ($target ne 'tex') {
     $r->print(&Apache::loncommon::bodytag   $r->print(&Apache::lonhtmlcommon::htmlareaheaders().
                                        ("Syllabus",$forcestudent,'','',$cdom));    &Apache::loncommon::endheadtag().
     $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.    &Apache::loncommon::bodytag("Syllabus",$forcestudent,$addentries,'',$cdom,$env{'form.register'}));
               $Apache::lonnet::domaindescription{$cdom}.'</h3>');   $r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.
                    $Apache::lonnet::domaindescription{$cdom}.'</h3>');
       } else {
    $r->print('\noindent{\large\textbf{'.$courseenv{'description'}.'}}\\\\\\\\\textbf{'.
                    $Apache::lonnet::domaindescription{$cdom}.'}\\\\');
       }
   # -------------------------------------------------------------- Announcements?
       if ($target ne 'tex') {
    $r->print(&Apache::lonannounce::showday(time,2,
          &Apache::lonannounce::readcalendar($cdom.'_'.$cnum)).
                          &Apache::lonrss::advertisefeeds($cnum,$cdom));
       } else {
    $r->print(&Apache::lonxml::xmlparse($r,'tex',
          &Apache::lonannounce::showday(time,2,
                          &Apache::lonannounce::readcalendar($cdom.'_'.$cnum))));
       }
   # -------------------------------------------------------- Get course personnel
       my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum);
       if ($target ne 'tex') {
    $r->print('<table border="2">');
       } else {
    $r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline');
       }
       foreach my $element (sort keys %coursepersonnel) {
    if ($target ne 'tex') {
       $r->print('<tr><td>'.$element.'</td><td>');
    } else {
       $r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); 
    }
           foreach (split(/\,/,$coursepersonnel{$element})) {
       my ($puname,$pudom)=split(/\:/,$_);
       if ($target ne 'tex') {
    $r->print(' '.&Apache::loncommon::aboutmewrapper(
                                 &Apache::loncommon::plainname($puname,
                                 $pudom),$puname,$pudom));
       } else {
    $r->print(' '.&Apache::loncommon::plainname($puname,
                                 $pudom).' ');
       }
    }
    if ($target ne 'tex') {
       $r->print('</td></tr>');
    } else {
       $r->print('\\\\ \hline');
    }
       }
       if ($target ne 'tex') {
    $r->print('</table>');
       } else {
    $r->print('\end{tabular}\\\\');
       }
   # ---------------------------------------------------------- Load syllabus info
     my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);      my %syllabus=&Apache::lonnet::dump('syllabus',$cdom,$cnum);
     my $allowed=0;      my $allowed=0;
       my $privileged=0;
   
 # This handler might be called anonymously ...  # This handler might be called anonymously ...
 # ----------------------------------------------------- Only if not public call  # ----------------------------------------------------- Only if not public call
     if ($ENV{'user.environment'}) {      if ($env{'user.environment'}) {
 # does this user have privileges to post, etc?  # does this user have privileges to post, etc?
        if ($ENV{'request.course.id'}) {         if ($env{'request.course.id'}) {
           $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});            $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});
           if ($forcestudent) { $allowed=0; }    $privileged=$allowed;
     if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
         $forcestudent='student';
     }
             if ($forcestudent or $target eq 'tex') { $allowed=0; }
        }         }
        if ($allowed) {         if ($allowed) {
           $r->print(            $r->print('<p>'.
   '<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a></p>');  &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'</p><p>'.&mt('This syllabus can be publicly viewed at')
       .' <tt>http://'.
       $Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'.
                  &Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.
             '<p>'.&mt('You can specify an external URL as Syllabus in the [_1].','<a href="/adm/parmset?action=crsenv">'.&mt('Course Parameters').'</a>').'</p>'.
     '<p><a href="'.$r->uri.'?forcestudent=1"><font size="+1">'.
   &mt('Show Public View').'</font></a>'.
             &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').
             '</p>');
         } elsif ($privileged) {
     if ($target ne 'tex') {
         $r->print('<p><a href="'.$r->uri.'?forceedit=1"><font size="+1">'.
    &mt('Edit').'</font></a>'); 
     }
       }        }
        if (($allowed) && ($ENV{'form.storesyl'})) {         if (($allowed) && ($env{'form.storesyl'})) {
    foreach (keys %syllabusfields) {     foreach (keys %syllabusfields) {
                my $field=$ENV{'form.'.$_};                 my $field=$env{'form.'.$_};
          chomp($field);
                $field=~s/\s+$//s;                 $field=~s/\s+$//s;
                $field=~s/\</\&lt\;/g;         $field=~s/^\s+//s;
                $field=~s/\>/\&gt\;/g;         $field=~s/\<br\s*\/*\>$//s;
        if ($field) {         $field=&Apache::lonfeedback::clear_out_html($field,1);
    $syllabus{$_}=$field;         $syllabus{$_}=$field;
                } else {                 if ($_ eq 'lll_includeurl') { # clean up included URLs
                    delete $syllabus{$_};                    my $field='';
                }            foreach (split(/\n/,$syllabus{$_})) {
         my $url=$_;
   # get rid of leading and trailing spaces
                         $url=~s/^\s+//;
                         $url=~s/\s+$//;
                         if ($url=~/^http\:\/\/([^\/]+)\/(.+)$/) {
                             my $remainder=$2;
   # remove the hostname from internal URLs
             foreach (keys %Apache::lonnet::hostname) {
                                 if ($1=~/$Apache::lonnet::hostname{$_}/i) {
            $url=$remainder;
         }
             }
         }
   # norm internal URLs
                         unless ($url=~/^http\:/) {
             $url=&Apache::lonnet::clutter($url);
                         }
   # re-assemble field
                         if ($url) {
             $field.=$url."\n";
                         }
     }
                     $syllabus{$_}=$field;
         }
            }             }
            $syllabus{'uploaded.domain'}=$ENV{'user.domain'};             $syllabus{'uploaded.domain'}=$env{'user.domain'};
            $syllabus{'uploaded.name'}=$ENV{'user.name'};             $syllabus{'uploaded.name'}=$env{'user.name'};
            $syllabus{'uploaded.lastmodified'}=time;             $syllabus{'uploaded.lastmodified'}=time;
            &Apache::lonnet::put('syllabus',\%syllabus,$cdom,$cnum);             &Apache::lonnet::put('syllabus',\%syllabus,$cdom,$cnum);
        }         }
     }      }
 # ---------------------------------------------------------------- Get syllabus  # ---------------------------------------------------------------- Get syllabus
     if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {      if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
        $r->print('<table><tr><td>Uploaded:</td><td>'.         my $lastmod=$syllabus{'uploaded.lastmodified'};
  &Apache::loncommon::plainname($syllabus{'uploaded.name'},         $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));
                      $syllabus{'uploaded.domain'}).         my $who = &Apache::loncommon::aboutmewrapper(
  '</td></tr><tr><td>Last updated</td><td>'.                      &Apache::loncommon::plainname($syllabus{'uploaded.name'},
                      localtime($syllabus{'uploaded.lastmodified'}).                       $syllabus{'uploaded.domain'}),$syllabus{'uploaded.name'},
                      '</td></tr></table><p>');                       $syllabus{'uploaded.domain'});
          if ($target ne 'tex') {
      $r->print('<table><tr><td>'.&mt('Last updated').':</td><td>'.
        $lastmod.'</td><td>'.&mt('by').' '.$who.
        '</td></tr></table><p>');
          } else {
      $r->print('\\\\ '.&mt('Last updated').': '.$lastmod.' '.&mt('by').'\\\\ '.
        &Apache::loncommon::plainname($syllabus{'uploaded.name'},
                        $syllabus{'uploaded.domain'}).'\\\\');
          }
        if ($allowed) {         if ($allowed) {
    $r->print('<form method="post">');     $r->print('<form method="post">'.
        '<input type="hidden" name="forceedit" value="edit" />');
        }         }
          my @htmlids=();
        foreach (sort keys %syllabusfields) {         foreach (sort keys %syllabusfields) {
           if (($syllabus{$_}) || ($allowed)) {            if (($syllabus{$_}=~/\w/) || ($allowed)) {
               my $message=$syllabus{$_};                my $message=$syllabus{$_};
               $message=~s/\n/\<br \/\>/g;                if ($_ eq 'lll_includeurl') { # this is the "included" field
               $message    my $urls=$message;
              =~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;                    $message='';
       $message=&Apache::lontexconvert::msgtexconverted($message);                    foreach my $filelink (split(/\n/,$urls)) {
               $r->print('<h3>'.$syllabusfields{$_}.'</h3><blockquote>'.        my $output='';
                         $message.'</blockquote>');  # embed style?
         my ($curfext)=($filelink=~/\.([^\.]+)$/);
                         my $embstyle=&Apache::loncommon::fileembstyle($curfext);
                 if (($embstyle eq 'ssi') || ($curfext=~/\/$/)) {
   # make ssi call and remove everything but the body contents
     $output=&Apache::lonnet::ssi_body($filelink);
                 } elsif ($embstyle eq 'img') {
   # embed as an image
                            $output='<img src="'.$filelink.'" />';
         }
         if ($target ne 'tex') {
     $message.='<p>'.$output.'</p>';
         } else {
     $message.=' '.&Apache::lonxml::xmlparse($r,'tex','<p>'.$output.'</p>').' ';
         }      
                     }
                     if ($allowed) {
                        $r->print('<h3>'.$syllabusfields{$_}.
             &Apache::loncommon::help_open_topic('Syllabus_URLs').'</h3>'.
     '<p><a href="'.$r->uri.'?forcestudent=1"><font size="+1">'.&mt('Show Public View').'</font></a>'.
    &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
    } else {
                     $r->print($message);
                    } 
                 } else {
     &Apache::lonfeedback::newline_to_br(\$message);
                    $message
              =~s/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
    if ($allowed) {
        $message=&Apache::lonspeller::markeduptext($message);
    }
            $message=&Apache::lontexconvert::msgtexconverted($message);
    if ($target ne 'tex') {
        $r->print('<h3>'.$syllabusfields{$_}.'</h3><blockquote>'.
                                  $message.'</blockquote>');
    } else {
        $r->print('\\\\\textbf{'.$syllabusfields{$_}.'}\\\\'.
          &Apache::lonxml::xmlparse($r,'tex',$message).'\\\\');
    }
    push @htmlids,$_;
        }
               if ($allowed) {                if ($allowed) {
                  $r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'.                   $r->print(
      '<br /><textarea cols="80" rows="12" name="'.$_.'" id="'.$_.'">'.
    $syllabus{$_}.     $syllabus{$_}.
            '</textarea><input type="submit" name="storesyl" value="Store" />');             '</textarea> <input type="submit" name="storesyl" value="Store" />');
       }        }
   }    }
        }         }
        if ($allowed) {         if ($allowed) {
    $r->print('</form>');     $r->print('</form>'.
        &Apache::lonhtmlcommon::htmlareaselectactive(@htmlids));
        }         }
        $r->print('</p>');         if ($target ne 'tex') {$r->print('</p>');} else {$r->print('\\\\');}
       } else {
    if ($target ne 'tex') {$r->print('<p>');} else {$r->print('\par ');} 
    $r->print('No syllabus information provided.');
    if ($target ne 'tex') {$r->print('</p>');}
       }
       if ($target ne 'tex') {
    $r->print(&Apache::loncommon::end_page());
     } else {      } else {
        $r->print('<p>No syllabus information provided.</p>');   $r->print('\end{document}');
     }      }
     $r->print('</body></html>');  
     return OK;      return OK;
 }   } 
   
Removed from v.1.6  
changed lines
  Added in v.1.48

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.