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

Diff for /loncom/interface/lonmenu.pm between versions 1.158 and 1.164

version 1.158, 2005/07/14 21:37:22 version 1.164, 2005/12/01 19:00:46
Line 78  sub menubuttons { Line 78  sub menubuttons {
     ['inhibitmenu']);      ['inhibitmenu']);
     if (($env{'form.inhibitmenu'} eq 'yes') ||      if (($env{'form.inhibitmenu'} eq 'yes') ||
         ($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; }          ($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; }
       my %lt=&initlittle();
     my $navmaps='';      my $navmaps='';
     my $reloadlink='';      my $reloadlink='';
     my $docs='';      my $docs='';
Line 94  sub menubuttons { Line 94  sub menubuttons {
     }      }
     if ($env{'browser.interface'} eq 'textual') {      if ($env{'browser.interface'} eq 'textual') {
 # Textual display only  # Textual display only
  my %lt=&initlittle();  
         $pgbg='#FFFFFF';          $pgbg='#FFFFFF';
         $tabbg='#FFFFFF';          $tabbg='#FFFFFF';
  $font='#000000';   $font='#000000';
Line 185  ENDINLINEMENU Line 184  ENDINLINEMENU
     }      }
     $navmaps=(<<ENDNAV);      $navmaps=(<<ENDNAV);
 <td bgcolor="$tabbg">  <td bgcolor="$tabbg">
 <a href="$link"><font $face color="$font">$lt{'nav'}</font></a></td>  <a href="$link" target="_top"><font $face color="$font">$lt{'nav'}</font></a></td>
 ENDNAV  ENDNAV
     if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {      if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
  $docs=(<<ENDDOCS);   $docs=(<<ENDDOCS);
 <td bgcolor="$tabbg">  <td bgcolor="$tabbg">
 <a href="/adm/coursedocs"><font $face color="$font">$lt{'docs'}</font></a></td>  <a href="/adm/coursedocs" target="_top"><font $face color="$font">$lt{'docs'}</font></a></td>
 ENDDOCS  ENDDOCS
             }              }
     if (      if (
Line 210  ENDDOCS Line 209  ENDDOCS
 ENDRELOAD  ENDRELOAD
             }              }
         }          }
    if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) {
       my $escreload=&Apache::lonnet::escape('return:');
       $reloadlink=(<<ENDCRELOAD);
   <td bgcolor="$tabbg">
   <a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></a></td>
   ENDCRELOAD
           }
         my $reg='';          my $reg='';
         if ($registration) {          if ($registration) {
            $reg=&innerregister($forcereg,$target,$titletable);             $reg=&innerregister($forcereg,$target,$titletable);
Line 363  sub innerregister { Line 369  sub innerregister {
   
         my $hwkadd='';          my $hwkadd='';
         if ($env{'request.symb'} ne '' &&          if ($env{'request.symb'} ne '' &&
     $env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) {      $env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) {
     if (&Apache::lonnet::allowed('mgr',$crs)) {      if (&Apache::lonnet::allowed('mgr',$crs)) {
  $hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]',   $hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]',
                        "gocmd('/adm/grades','gradingmenu')",                         "gocmd('/adm/grades','gradingmenu')",
Line 1102  function gocstr(url,filename) { Line 1108  function gocstr(url,filename) {
                 this.document.cstrprint.curseed.value = this.document.lonhomework.rndseed.value                  this.document.cstrprint.curseed.value = this.document.lonhomework.rndseed.value
             }              }
             if (this.document.lonhomework.problemtype) {              if (this.document.lonhomework.problemtype) {
                 for (var i=0; i<this.document.lonhomework.problemtype.options.length; i++) {   if (this.document.lonhomework.problemtype.value) {
                     if (this.document.lonhomework.problemtype.options[i].selected) {      this.document.cstrprint.problemtype.value = 
                         if (this.document.lonhomework.problemtype.options[i].value != null && this.document.lonhomework.problemtype.options[i].value != '') {    this.document.lonhomework.problemtype.value;
                             this.document.cstrprint.problemtype.value = this.document.lonhomework.problemtype.options[i].value   } else if (this.document.lonhomework.problemtype.options) {
                         }      for (var i=0; i<this.document.lonhomework.problemtype.options.length; i++) {
                     }   if (this.document.lonhomework.problemtype.options[i].selected) {
                 }      if (this.document.lonhomework.problemtype.options[i].value != null && this.document.lonhomework.problemtype.options[i].value != '') { 
             }   this.document.cstrprint.problemtype.value = this.document.lonhomework.problemtype.options[i].value
         }   }
    }
       }
    }
       }
    }
         this.document.cstrprint.submit();          this.document.cstrprint.submit();
         return;          return;
     }      }
Line 1186  sub get_nav_status { Line 1197  sub get_nav_status {
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
       &Apache::loncommon::no_cache($r);
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
Removed from v.1.158  
changed lines
  Added in v.1.164

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