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

Diff for /loncom/interface/lonmenu.pm between versions 1.35 and 1.37

version 1.35, 2003/02/13 20:35:39 version 1.37, 2003/02/14 15:14:37
Line 146  ENDOPEN Line 146  ENDOPEN
     return '<script>'.$returnval.'</script>';      return '<script>'.$returnval.'</script>';
 }  }
   
 # ============================================================ Switch Menu Item  
   
 sub switchmenu {  
     my ($row,$col,$imgsrc,$texttop,$textbot,$action,$description)=@_;  
     if ($ENV{'browser.interface'} eq 'textual') { return ''; }  
     my $openwin=&openmenu();  
     return(<<ENDSMENU);  
 <script>  
    var swmenu=$openwin  
    swmenu.switchbutton($row,$col,"$imgsrc","$texttop","$textbot","$action","$description");  
 </script>  
 ENDSMENU  
 }  
   
 # ================================================================== Raw Config  # ================================================================== Raw Config
   
Line 181  sub switch { Line 168  sub switch {
    } else {     } else {
        my $text=$top.' '.$bot;         my $text=$top.' '.$bot;
        $text=~s/\- //;         $text=~s/\- //;
        return '<br /><a href="'.$act.'">'.$text.'</a> '.$desc;         return '<br /><a href="javascript:'.$act.';">'.$text.'</a> '.$desc;
    }     }
 }  }
   
Line 328  sub handler { Line 315  sub handler {
   
     my $bodytag=&Apache::loncommon::bodytag('Main Menu');      my $bodytag=&Apache::loncommon::bodytag('Main Menu');
 # ------------------------------------------------------------ Print the screen  # ------------------------------------------------------------ Print the screen
     $r->print('<html><head><title>LON-CAPA Main Menu</title></head>'.$bodytag);      $r->print(<<ENDHEADER);
   <html><head>
   <title>LON-CAPA Main Menu</title>
   <script>
   function go(url) {
       window.location=url;
   }
   function gopost(url) {
       window.location=url;
   }
   </script>
   </head>
   $bodytag
   ENDHEADER
     $r->print(&rawconfig(1));      $r->print(&rawconfig(1));
     $r->print('</body></html>');      $r->print('</body></html>');
     return OK;      return OK;
Removed from v.1.35  
changed lines
  Added in v.1.37

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