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

Diff for /loncom/interface/lonmenu.pm between versions 1.101 and 1.106

version 1.101, 2003/11/10 16:51:12 version 1.106, 2003/12/09 22:10:23
Line 43  use Apache::lonnet; Line 43  use Apache::lonnet;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::File;  
 use Apache::lonlocal;  use Apache::lonlocal;
   
 use vars qw(@desklines $readdesk);  use vars qw(@desklines $readdesk);
Line 274  sub innerregister { Line 273  sub innerregister {
     $crs=~s/\_/\//g;      $crs=~s/\_/\//g;
   
     if (&Apache::lonnet::allowed('vgr',$crs)) {      if (&Apache::lonnet::allowed('vgr',$crs)) {
  $hwkadd.=&switch('','',7,1,'subm.gif','view sub-','missions',   $hwkadd.=&switch('','',7,1,'subm.gif','view sub-[_1]','missions[_1]',
                        "gocmd('/adm/grades','submission')",                         "gocmd('/adm/grades','submission')",
        'View user submissions for this assessment resource');         'View user submissions for this assessment resource');
             }              }
     if (&Apache::lonnet::allowed('mgr',$crs)) {      if (&Apache::lonnet::allowed('mgr',$crs)) {
  $hwkadd.=&switch('','',7,2,'pgrd.gif','problem','grades',   $hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]',
                        "gocmd('/adm/grades','gradingmenu')",                         "gocmd('/adm/grades','gradingmenu')",
                        'Modify user grades for this assessment resource');                         'Modify user grades for this assessment resource');
             }              }
     if (&Apache::lonnet::allowed('opa',$crs)) {      if (&Apache::lonnet::allowed('opa',$crs)) {
  $hwkadd.=&switch('','',7,3,'pparm.gif','problem','parms',   $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',
                        "gocmd('/adm/parmset','set')",                         "gocmd('/adm/parmset','set')",
                        'Modify deadlines, etc, for this assessment resource');                         'Modify deadlines, etc, for this assessment resource');
             }              }
Line 338  sub innerregister { Line 337  sub innerregister {
             # Finally, turn the button on or off              # Finally, turn the button on or off
             if ($cfile) {              if ($cfile) {
                 $editbutton=&switch                  $editbutton=&switch
                     ('','',6,1,'cstr.gif','edit','resource',                      ('','',6,1,'cstr.gif','edit[_1]','resource[_2]',
                      "go('".$cfile."');","Edit this resource");                       "go('".$cfile."');","Edit this resource");
             } elsif ($editbutton eq '') {              } elsif ($editbutton eq '') {
                 $editbutton=&clear(6,1);                  $editbutton=&clear(6,1);
Line 349  sub innerregister { Line 348  sub innerregister {
 # Prepare the rest of the buttons  # Prepare the rest of the buttons
  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[_1]&&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&3  s&2&3&forw.gif&forward[_1]&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&3
 c&6&3  c&6&3
 c&8&1  c&8&1
 c&8&2  c&8&2
 s&8&3&prt.gif&prepare&printout&gopost('/adm/printout',currentURL)&Prepare a printable document  s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
 s&9&1&sbkm.gif&set&bookmark&set_bookmark()&Set a bookmark for this resource&2  s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&2
 s&9&3&anot.gif&anno-&tations&annotate()&Make notes and annotations about this resource&2  s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&2
 ENDMENUITEMS  ENDMENUITEMS
         unless ($ENV{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {          unless ($ENV{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.gif&catalog&info&catalog_info()&Show catalog information  s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information
 s&8&1&eval.gif&evaluate&this&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource  s&8&1&eval.gif&evaluate[_1]&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
 s&8&2&fdbk.gif&feedback&discuss&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource  s&8&2&fdbk.gif&feedback[_1]&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
 ENDREALRES  ENDREALRES
  }   }
         my $buttons='';          my $buttons='';
Line 378  ENDREALRES Line 377  ENDREALRES
 # Registered, textual output  # Registered, textual output
             my $utility=&utilityfunctions();              my $utility=&utilityfunctions();
             my $form=&serverform();              my $form=&serverform();
             my $inlinebuttons=      my $inlinebuttons='';
   
       if ($ENV{'browser.interface'} eq 'textual') {
    $inlinebuttons=
                         join('',map { (defined($_)?$_:'') } @inlineremote);                          join('',map { (defined($_)?$_:'') } @inlineremote);
       } else {
    $inlinebuttons=(<<ENDINLINE);
   <tr><td>$inlineremote[21]</td><td>&nbsp</td><td>$inlineremote[23]</td></tr>
   <tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr>
   <tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr>
   <tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr>
   <tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr>
   ENDINLINE
       }
     $result =(<<ENDREGTEXT);      $result =(<<ENDREGTEXT);
 <script>  <script>
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
Line 634  sub switch { Line 645  sub switch {
     $top=&mt($top);      $top=&mt($top);
     $bot=&mt($bot);      $bot=&mt($bot);
     $desc=&mt($desc);      $desc=&mt($desc);
       $img=&mt($img);
     unless (($ENV{'browser.interface'} eq 'textual')  ||      unless (($ENV{'browser.interface'} eq 'textual')  ||
             ($ENV{'environment.remote'} eq 'off')) {              ($ENV{'environment.remote'} eq 'off')) {
 # Remote  # Remote
Line 656  sub switch { Line 668  sub switch {
        if ($nobreak==2) { return ''; }         if ($nobreak==2) { return ''; }
        my $text=$top.' '.$bot;         my $text=$top.' '.$bot;
        $text=~s/\s*\-\s*//gs;         $text=~s/\s*\-\s*//gs;
   
          my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
          if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
        my $pic=         my $pic=
    '<img border="0" alt="'.$text.'" src="/res/adm/pages/'.$img.'" />';     '<img border="0" alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}.
        if ($nobreak==3) {     ':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'.
    $inlineremote[10*$row+$col]="\n".     ($nobreak==3?'right':'left').'" />';
      '<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.         if (($ENV{'browser.interface'} eq 'textual') || ($ENV{'browser.interface'} eq 'faketextual')) {
      '</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.  # Accessibility
      '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';     if ($nobreak==3) {
        } elsif ($nobreak) {         $inlineremote[10*$row+$col]="\n".
    $inlineremote[10*$row+$col]="\n<tr>".     '<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.
      '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.     '</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.
      '<a href="javascript:'.$act.';">'.$pic.     '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
      '</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></td>';     } elsif ($nobreak) {
          $inlineremote[10*$row+$col]="\n<tr>".
      '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.
      '<a href="javascript:'.$act.';">'.$pic.
      '</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></td>';
      } else {
          $inlineremote[10*$row+$col]="\n<tr>".
      '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.
      '<a href="javascript:'.$act.';">'.$pic.
      '</a></td><td colspan="3"><font color="'.$font.'">'.$desc.
      '</font></td></tr>';       
      }
        } else {         } else {
    $inlineremote[10*$row+$col]="\n<tr>".  # Inline Menu
      '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.     $inlineremote[10*$row+$col]=
      '<a href="javascript:'.$act.';">'.$pic.     '<a href="javascript:'.$act.';">'.$pic.
      '</a></td><td colspan="3"><font color="'.$font.'">'.$desc.     '</a><font color="'.$font.'" size="2">'.$desc.
      '</font></td></tr>';            '</font>';
        }         }
    }     }
     return '';      return '';
Line 869  function gocmd(url,cmd) { Line 895  function gocmd(url,cmd) {
 }  }
   
 function catalog_info() {  function catalog_info() {
    loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizeable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');     loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
 }  }
   
 function chat_win() {  function chat_win() {
    lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizeable=yes,location=no,menubar=no,toolbar=no');     lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
 }  }
 ENDUTILITY  ENDUTILITY
 }  }
Line 916  sub handler { Line 942  sub handler {
     $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);      $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
     $font=&Apache::loncommon::designparm($function.'.font',$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{'browser.interface'} eq 'textual') {
    $ENV{'browser.interface'}='faketextual';
  $ENV{'environment.remote'}='off';   $ENV{'environment.remote'}='off';
     }      }
     my $utility=&utilityfunctions();      my $utility=&utilityfunctions();
Line 939  ENDHEADER Line 966  ENDHEADER
 BEGIN {  BEGIN {
   if (! defined($readdesk)) {    if (! defined($readdesk)) {
    {     {
     my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.      my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';
   '/mydesk.tab');      if ( CORE::open( my $config,"<$tabfile") ) {
     while (my $configline=<$config>) {          while (my $configline=<$config>) {
        $configline=(split(/\#/,$configline))[0];              $configline=(split(/\#/,$configline))[0];
        $configline=~s/^\s+//;              $configline=~s/^\s+//;
        chomp($configline);              chomp($configline);
        if ($configline) {              if ($configline) {
           $desklines[$#desklines+1]=$configline;                  $desklines[$#desklines+1]=$configline;
        }              }
           }
           CORE::close($config);
     }      }
    }     }
    $readdesk='done';     $readdesk='done';
Removed from v.1.101  
changed lines
  Added in v.1.106

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