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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.49 and 1.50

version 1.49, 2006/03/21 21:25:33 version 1.50, 2006/03/21 21:50:49
Line 76  sub handler { Line 76  sub handler {
     if ($env{'form.register'}) {      if ($env{'form.register'}) {
        $addentries=' onLoad="'.&Apache::lonmenu::loadevents().         $addentries=' onLoad="'.&Apache::lonmenu::loadevents().
            '" onUnload="'.&Apache::lonmenu::unloadevents().'"';             '" onUnload="'.&Apache::lonmenu::unloadevents().'"';
        $r->print(&Apache::lonmenu::registerurl(1));  
     }      }
 # -------------------------------------------------- Let's see who handles this  # -------------------------------------------------- Let's see who handles this
     my $externalsyllabus=$courseenv{'externalsyllabus'};      my $externalsyllabus=$courseenv{'externalsyllabus'};
   
     if ($externalsyllabus=~/\w/) {      if ($externalsyllabus=~/\w/) {
        $r->print(&Apache::loncommon::endheadtag());  
        if ($env{'form.wrapperdisplay'} eq 'menu') {         if ($env{'form.wrapperdisplay'} eq 'menu') {
 #     $r->print(&Apache::lonwrapper::simple_menu());
 # Producing the menu buttons         } else {    
 #     $r->print(&Apache::lonwrapper::wrapper("/public/$cdom/$cnum/syllabus?wrapperdisplay=menu",
            $r->print('<body bgcolor="#FFFFFF">'.     $externalsyllabus));
      &Apache::lonmenu::menubuttons(1,'web',1).         }
      &Apache::loncommon::end_page());         return OK;
         } 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 buck stops here: internal syllabus display
Removed from v.1.49  
changed lines
  Added in v.1.50

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