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

Diff for /loncom/interface/lonmenu.pm between versions 1.300 and 1.301

version 1.300, 2009/11/04 16:22:24 version 1.301, 2009/11/10 13:58:55
Line 567  sub innerregister { Line 567  sub innerregister {
   
         &Apache::lonhtmlcommon::clear_breadcrumbs();          &Apache::lonhtmlcommon::clear_breadcrumbs();
         &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);          &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
         $breadcrumb .= &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);          #$breadcrumb .= &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);
  unless (($env{'request.state'} eq 'edit') || ($newmail) ||   unless (($env{'request.state'} eq 'edit') || ($newmail) ||
  ($env{'request.state'} eq 'construct') ||   ($env{'request.state'} eq 'construct') ||
  ($env{'form.register'})) {   ($env{'form.register'})) {
Line 817  ENDMENUITEMS Line 817  ENDMENUITEMS
     my $addremote=0;      my $addremote=0;
     foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }      foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
     my $inlinebuttons='';      my $inlinebuttons='';
     if ($addremote) {      if ($addremote) {
             # Registered, textual output  
                     if ($env{'environment.icons'} eq 'iconsonly') {          #SD START (work in progress!)
                         $inlinebuttons=(<<ENDARROWSINLINE);          # Arrows for navigation
 <tr><td>          Apache::lonhtmlcommon::add_breadcrumb_tool( 'A', $inlineremote[21] );
 $inlineremote[21] $inlineremote[23]          Apache::lonhtmlcommon::add_breadcrumb_tool( 'A', $inlineremote[23] );
 ENDARROWSINLINE          if(hidden_button_check() ne 'yes'){
                         if (&hidden_button_check() ne 'yes') {              # notes
                             $inlinebuttons .= (<<ENDINLINEICONS);              Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[93]);
 $inlineremote[61] $inlineremote[63]              # bookmark
 $inlineremote[71] $inlineremote[72] $inlineremote[73]              Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[91]);
 $inlineremote[81] $inlineremote[82] $inlineremote[83]              # evaluate
 $inlineremote[91] $inlineremote[92] $inlineremote[93]</td></tr>              Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[81]);
 ENDINLINEICONS              # feedback
                         }              Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[82]);
                     } else {              # print
  if ($inlineremote[21] ne '' || $inlineremote[23] ne '') {              Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[83]);
     $inlinebuttons=(<<ENDFIRSTLINE);              # metadata
 <tr><td>$inlineremote[21]</td><td>&nbsp;</td><td>$inlineremote[23]</td></tr>              Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[63]);
 ENDFIRSTLINE  
                         }              # ?
                         if (&hidden_button_check() ne 'yes') {               Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[61]);
     foreach my $row (6..9) {              # ?
  if ($inlineremote[${row}.'1'] ne ''              Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[71]);
     || $inlineremote[$row.'2'] ne ''              # ?
     || $inlineremote[$row.'3'] ne '') {              Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[72]);
     $inlinebuttons .= <<"ENDLINE";              # ?
 <tr><td>$inlineremote["${row}1"]</td><td>$inlineremote["${row}2"]</td><td>$inlineremote["${row}3"]</td></tr>              Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[73]);
 ENDLINE              # ?
  }              Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[92]);
     }  
  }          }
     }  
     }          #SD END
   #       # Registered, textual output
   #        if ( $env{'environment.icons'} eq 'iconsonly' ) {
   #            $inlinebuttons = (<<ENDARROWSINLINE);
   #<tr><td>
   #$inlineremote[21] $inlineremote[23]
   #ENDARROWSINLINE
   #            if ( &hidden_button_check() ne 'yes' ) {
   #                $inlinebuttons .= (<<ENDINLINEICONS);
   #$inlineremote[61] $inlineremote[63]
   #$inlineremote[71] $inlineremote[72] $inlineremote[73]
   #$inlineremote[81] $inlineremote[82] $inlineremote[83]
   #$inlineremote[91] $inlineremote[92] $inlineremote[93]</td></tr>
   #ENDINLINEICONS
   #            }
   #        } else { # not iconsonly
   #            if ( $inlineremote[21] ne '' || $inlineremote[23] ne '' ) {
   #                $inlinebuttons = (<<ENDFIRSTLINE);
   #<tr><td>$inlineremote[21]</td><td>&nbsp;</td><td>$inlineremote[23]</td></tr>
   #ENDFIRSTLINE
   #            }
   #            if ( &hidden_button_check() ne 'yes' ) {
   #                foreach my $row ( 6 .. 9 ) {
   #                    if (   $inlineremote[ ${row} . '1' ] ne ''
   #                        || $inlineremote[ $row . '2' ] ne ''
   #                        || $inlineremote[ $row . '3' ] ne '' )
   #                    {
   #                        $inlinebuttons .= <<"ENDLINE";
   #<tr><td>$inlineremote["${row}1"]</td><td>$inlineremote["${row}2"]</td><td>$inlineremote["${row}3"]</td></tr>
   #ENDLINE
   #                    }
   #                }
   #            }
   #        }
       }
           #SD see below
           $breadcrumb = &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);
     $result =(<<ENDREGTEXT);      $result =(<<ENDREGTEXT);
 <script type="text/javascript">  <script type="text/javascript">
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 </script>  </script>
 $timesync  $timesync
 $breadcrumb  $breadcrumb
 $tablestart  <!--$tablestart--!>
 $inlinebuttons  <!--$inlinebuttons--!>
 $tableend  <!--$tableend --!>
 $newmail  $newmail
 $separator  <!--$separator--!>
 <script type="text/javascript">  <script type="text/javascript">
 // END LON-CAPA Internal  // END LON-CAPA Internal
 </script>  </script>
Line 1245  sub switch { Line 1281  sub switch {
               $inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>';                $inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>';
            } else {             } else {
       $inlineremote[$idx]=        $inlineremote[$idx]=
    '<a class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.     '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
    '<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>';     '<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>';
            }             }
        }         }
Removed from v.1.300  
changed lines
  Added in v.1.301

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