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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.46 and 1.47

version 1.46, 2006/03/06 23:02:22 version 1.47, 2006/03/07 21:36:20
Line 50  sub handler { Line 50  sub handler {
     my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);      my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);
 # ------------------------------------------------------------ Get query string  # ------------------------------------------------------------ Get query string
     &Apache::loncommon::get_unprocessed_cgi      &Apache::loncommon::get_unprocessed_cgi
                         ($ENV{'QUERY_STRING'},['forcestudent','register','forceedit','headermode']);                          ($ENV{'QUERY_STRING'},['forcestudent','register','forceedit','wrapperdisplay']);
 # ----------------------------------------------------- Is this even a course?  # ----------------------------------------------------- Is this even a course?
     my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom);      my $homeserver=&Apache::lonnet::homeserver($cnum,$cdom);
     if ($homeserver eq 'no_host') {      if ($homeserver eq 'no_host') {
Line 83  ENDDOCUMENT Line 83  ENDDOCUMENT
        $r->print(&Apache::lonmenu::registerurl(1));         $r->print(&Apache::lonmenu::registerurl(1));
     }      }
 # -------------------------------------------------- Let's see who handles this  # -------------------------------------------------- Let's see who handles this
     my $externalsyllabus=$courseenv{'course.'.$cdom.'_'.$cnum.'_externalsyllabus'};      my $externalsyllabus=$courseenv{'externalsyllabus'};
     if ($externalsyllabus=~/\w/) {      if ($externalsyllabus=~/\w/) {
     }         $r->print('</head>');
          if ($env{'form.wrapperdisplay'} eq 'menu') {
   #
   # Producing the menu buttons
   #
              $r->print('<body bgcolor="#FFFFFF">'.
                   &Apache::lonmenu::menubuttons(1,'web',1).'</body></html>');
           } 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).'</body></html>');
              } 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 buck stops here: internal syllabus display
 # --------------------------------------------------------- The syllabus fields  # --------------------------------------------------------- The syllabus fields
Line 190  ENDDOCUMENT Line 230  ENDDOCUMENT
     .' <tt>http://'.      .' <tt>http://'.
     $Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'.      $Apache::lonnet::hostname{$homeserver}.$r->uri.'</tt>'.
                &Apache::loncommon::help_open_topic('Syllabus_ExtLink').'</p>'.                 &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">'.    '<p><a href="'.$r->uri.'?forcestudent=1"><font size="+1">'.
 &mt('Show Public View').'</font></a>'.  &mt('Show Public View').'</font></a>'.
           &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').            &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').
Removed from v.1.46  
changed lines
  Added in v.1.47

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>