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

Diff for /loncom/interface/lonmenu.pm between versions 1.57 and 1.58

version 1.57, 2003/04/04 22:00:26 version 1.58, 2003/04/05 22:14:40
Line 46  use Apache::loncommon; Line 46  use Apache::loncommon;
 use Apache::File;  use Apache::File;
 use vars qw(@desklines $readdesk);  use vars qw(@desklines $readdesk);
 my @inlineremote;  my @inlineremote;
   my $font;
   my $tabbg;
   my $pgbg;
   
 # ============================= This gets called at the top of the body section  # ============================= This gets called at the top of the body section
   
Line 77  ENDMAINMENU Line 80  ENDMAINMENU
  return $output."<hr />";   return $output."<hr />";
     } elsif ($ENV{'environment.remote'} eq 'off') {      } elsif ($ENV{'environment.remote'} eq 'off') {
 # Remote Control is switched off  # Remote Control is switched off
   # figure out colors
    my $function='student';
           if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {
       $function='coordinator';
           }
    if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {
               $function='admin';
           }
           if (($ENV{'request.role'}=~/^(au|ca)/) ||
               ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {
               $function='author';
           }
           my $domain=&Apache::loncommon::determinedomain();
           $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);
           $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
           $font=&Apache::loncommon::designparm($function.'.font',$domain);
           my $link=&Apache::loncommon::designparm($function.'.link',$domain);
           my $alink=&Apache::loncommon::designparm($function.'.alink',$domain);
           my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);
           my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain);
   # Do we have a NAV link?
         if ($ENV{'request.course.id'}) {          if ($ENV{'request.course.id'}) {
     $navmaps=(<<ENDNAVREM);      $navmaps=(<<ENDNAVREM);
 <a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">Navigate Contents</a>  <td bgcolor="$tabbg">
   <a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top"><font color="$font">Navigate Contents</font></a></td>
 ENDNAVREM  ENDNAVREM
         }          }
  my $output=(<<ENDINLINEMENU);          my $reg='';
           if ($registration) {
              $reg=&innerregister($forcereg,$target);
           }
    return (<<ENDINLINEMENU);
 <script>  <script>
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 </script>  </script>
 <table bgcolor="#AAAAAA" width="100%" border="2"><tr><td>  <table bgcolor="$pgbg" width="100%" border="0" cellpadding="3" cellspacing="3">
 <a href="/adm/menu" target="_top">Main Menu</a>  <tr>
   <td bgcolor="$tabbg">
   <a href="/adm/menu" target="_top"><font color="$font">Main Menu</font></a>
   </td>
 $navmaps  $navmaps
 <a href="/adm/remote?action=launch&url=$escurl" target="_top">Launch Remote Control</a>  <td bgcolor="$tabbg">
 <br />  <a href="/adm/remote?action=launch&url=$escurl" target="_top">
   <font color="$font">Launch Remote Control</font></a></td>
   </tr>
   </table>
 <script>  <script>
 // END LON-CAPA Internal  // END LON-CAPA Internal
 </script>  </script>
   $reg
 ENDINLINEMENU  ENDINLINEMENU
         if ($registration) { $output.=&innerregister($forcereg,$target); }  
  return $output."</td></tr></table>";  
     } else {      } else {
  return '';   return '';
     }      }
Line 156  sub innerregister { Line 190  sub innerregister {
                           'swmenu.setstatus("you have","messages");');                            'swmenu.setstatus("you have","messages");');
     }      }
     my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');      my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
       my $tablestart=($noremote?'<table bgcolor="'.$pgbg.'" border="0" cellspacing="3" cellpadding="3" width="100%">':'');
       my $tableend=($noremote?'</table>':'');
 # =============================================================================  # =============================================================================
 # ============================ This is for URLs that actually can be registered  # ============================ This is for URLs that actually can be registered
     if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) {      if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) {
Line 240  sub innerregister { Line 276  sub innerregister {
  my $menuitems=(<<ENDMENUITEMS);   my $menuitems=(<<ENDMENUITEMS);
 c&3&1  c&3&1
 s&2&1&back.gif&backward&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&1  s&2&1&back.gif&backward&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&1
 s&2&3&forw.gif&forward&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&1  s&2&3&forw.gif&forward&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&3
 s&6&3&catalog.gif&catalog&info&catalog_info()&Show catalog information  s&6&3&catalog.gif&catalog&info&catalog_info()&Show catalog information
 s&8&1&eval.gif&evaluate&this&gopost('/adm/evaluate',currentURL)&Provide my evaluation of this resource  s&8&1&eval.gif&evaluate&this&gopost('/adm/evaluate',currentURL)&Provide my evaluation of this resource
 s&8&2&fdbk.gif&feedback&discuss&gopost('/adm/feedback',currentURL)&Provide feedback messages or contribute to the course discussion about this resource  s&8&2&fdbk.gif&feedback&discuss&gopost('/adm/feedback',currentURL)&Provide feedback messages or contribute to the course discussion about this resource
Line 271  $utility Line 307  $utility
 </script>  </script>
 $timesync  $timesync
 $newmail  $newmail
   $tablestart
 $inlinebuttons  $inlinebuttons
   $tableend
 $form  $form
 <script>  <script>
 //END LON-CAPA Internal  //END LON-CAPA Internal
Line 527  sub switch { Line 565  sub switch {
        if ($nobreak==2) { return ''; }         if ($nobreak==2) { return ''; }
        my $text=$top.' '.$bot;         my $text=$top.' '.$bot;
        $text=~s/\- //;         $text=~s/\- //;
        $inlineremote[10*$row+$col]="\n".($nobreak?' ':'<br />').         $inlineremote[10*$row+$col]="\n".
         '<a href="javascript:'.$act.';" target="_top">'.$text.'</a> '.           ($nobreak==3?'<td width="50%" colspan="2" align="right"':'<tr><td').
         ($nobreak?'':$desc);           ' bgcolor="'.$tabbg.'"'.($nobreak==1?' width="50%" colspan="2"':'').
        '"><a href="javascript:'.$act.';" target="_top"><font color="'.$font.'"'.
             ($nobreak?' size="+1"':'').
        '>'.$text.'</font></a></td>'.
        ($nobreak?'':'<td colspan="3" width="80%"><font color="'.$font.'" size="-1">'.$desc.'</font>').($nobreak!=1?'</tr>':'');
    }     }
     return '';      return '';
 }  }
Line 747  sub handler { Line 789  sub handler {
   
     my $form=&serverform();      my $form=&serverform();
     my $bodytag=&Apache::loncommon::bodytag('Main Menu');      my $bodytag=&Apache::loncommon::bodytag('Main Menu');
       my $function='student';
       if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {
    $function='coordinator';
       }
       if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {
    $function='admin';
       }
       if (($ENV{'request.role'}=~/^(au|ca)/) ||
    ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {
    $function='author';
       }
       my $domain=&Apache::loncommon::determinedomain();
       $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);
       $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
       $font=&Apache::loncommon::designparm($function.'.font',$domain);
 # ---- Print the screen, pretent to be in text mode to generate text-based menu  # ---- Print the screen, pretent to be in text mode to generate text-based menu
     unless ($ENV{'brower.interface'} eq 'textual') {      unless ($ENV{'brower.interface'} eq 'textual') {
  $ENV{'environment.remote'}='off';   $ENV{'environment.remote'}='off';
Line 761  $utility Line 818  $utility
 </head>  </head>
 $bodytag  $bodytag
 ENDHEADER  ENDHEADER
     $r->print(&inlinemenu().$form);      $r->print('<table>'.&inlinemenu().'</table>'.$form);
     $r->print('</body></html>');      $r->print('</body></html>');
     return OK;      return OK;
 }  }
Removed from v.1.57  
changed lines
  Added in v.1.58

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