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

Diff for /loncom/interface/lonmenu.pm between versions 1.369.2.20 and 1.369.2.21

version 1.369.2.20, 2012/08/07 01:35:47 version 1.369.2.21, 2012/08/07 13:15:29
Line 758  sub innerregister { Line 758  sub innerregister {
         ###          ###
         ###          ###
 # Prepare the rest of the buttons  # Prepare the rest of the buttons
         my ($menuitems,$got_prt,$got_wishlist);          my ($menuitems,$got_prt,$got_wishlist,$cstritems);
         if ($const_space) {          if ($const_space) {
 #  #
 # We are in construction space  # We are in construction space
Line 778  sub innerregister { Line 778  sub innerregister {
 # Probably should be in mydesk.tab  # Probably should be in mydesk.tab
 #  #
                 $menuitems=(<<ENDMENUITEMS);                  $menuitems=(<<ENDMENUITEMS);
 s&6&1&list.png&$swtext{'list'}&dir[_1]&golist('$esc_currdir')&List current directory  s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory
 s&6&2&rtrv.png&$swtext{'rtrv'}&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version  s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version
 s&6&3&pub.png&$swtext{'pub'}&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource  s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource
 s&7&1&del.png&$swtext{'del'}&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource  s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource
 s&7&2&prt.png&$swtext{'prt'}&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document  s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document
 ENDMENUITEMS  ENDMENUITEMS
                   unless ($noremote) {
                       $cstritems = $menuitems;
                       undef($menuitems);
                   }
             }              }
                 if (ref($bread_crumbs) eq 'ARRAY') {                  if (ref($bread_crumbs) eq 'ARRAY') {
                     &Apache::lonhtmlcommon::clear_breadcrumbs();                      &Apache::lonhtmlcommon::clear_breadcrumbs();
Line 933  ENDMENUITEMS Line 937  ENDMENUITEMS
                    . &Apache::lonhtmlcommon::scripttag('', 'end');                     . &Apache::lonhtmlcommon::scripttag('', 'end');
   
         } else {          } else {
               my $cstrcrumbs;
               if ($const_space) {
                   foreach (split(/\n/,$cstritems)) {
                       my ($command,@rest)=split(/\&/,$_);
                       my $idx=10*$rest[0]+$rest[1];
                       &switch('','',@rest);
                   }
                   &Apache::lonhtmlcommon::add_breadcrumb_tool('advtools',
                                                               @inlineremote[63,61,71,72]);
   
                   $cstrcrumbs = &Apache::lonhtmlcommon::scripttag('', 'start')
                                .&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
                                .&Apache::lonhtmlcommon::scripttag('', 'end');
               }
             my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));              my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
             $requri=&Apache::lonenc::check_encrypt(&unescape($requri));              $requri=&Apache::lonenc::check_encrypt(&unescape($requri));
             my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'});              my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
Line 981  var swmenu=null; Line 999  var swmenu=null;
 // END LON-CAPA Internal  // END LON-CAPA Internal
 // ]]>  // ]]>
 </script>  </script>
   
   $cstrcrumbs
 ENDREGTHIS  ENDREGTHIS
         }          }
     } else {      } else {
Line 1031  sub get_inline_text { Line 1051  sub get_inline_text {
                  pparm    => 'Content Settings',                   pparm    => 'Content Settings',
                  docs     => 'Folder/Page Content',                   docs     => 'Folder/Page Content',
                  pcstr    => 'Edit',                   pcstr    => 'Edit',
                  list     => 'Directory',  
                  rtrv     => 'Retrieve',  
                  pub      => 'Publish',  
                  del      => 'Delete',  
                  prt      => 'Print',                   prt      => 'Print',
                  alnk     => 'Stored Links',                   alnk     => 'Stored Links',
                  anot     => 'Notes',                   anot     => 'Notes',
Line 1051  sub get_rc_text { Line 1067  sub get_rc_text {
                    subm    => 'view sub-[_1]',                     subm    => 'view sub-[_1]',
                    pparm   => 'problem[_2]',                     pparm   => 'problem[_2]',
                    pcstr   => 'edit[_1]',                     pcstr   => 'edit[_1]',
                    list    => 'list[_1]',  
                    rtrv    => 'retrieve[_1]',  
                    pub     => 'publish[_1]',  
                    del     => 'delete[_1]',  
                    prt     => 'prepare[_1]',                     prt     => 'prepare[_1]',
                    back    => 'backward[_1]',                     back    => 'backward[_1]',
                    forw    => 'forward[_1]',                     forw    => 'forward[_1]',
Line 1302  sub switch { Line 1314  sub switch {
   
     if ($env{'environment.remote'} eq 'on') {      if ($env{'environment.remote'} eq 'on') {
         if (($row<1) || ($row>13)) { return ''; }          if (($row<1) || ($row>13)) { return ''; }
           if ($env{'request.state'} eq 'construct') {
               my $text = $top.' '.$bot;
               $text=~s/\s*\-\s*//gs;
               my $pic = '<img alt="'.$text.'" src="'.
                         &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
                         '" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';
              $inlineremote[$idx] =
                  '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.
                  $pic.'<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';
           }
 # Remote  # Remote
         $img=~s/\.png$/\.gif/;          $img=~s/\.png$/\.gif/;
         return "\n".          return "\n".
Removed from v.1.369.2.20  
changed lines
  Added in v.1.369.2.21

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