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

Diff for /loncom/interface/lonmenu.pm between versions 1.315.2.15 and 1.315.2.15.2.3

version 1.315.2.15, 2011/11/30 18:34:25 version 1.315.2.15.2.3, 2012/05/01 12:39:32
Line 743  s&2&3&forw.gif&forward[_1]&&gopost('/adm Line 743  s&2&3&forw.gif&forward[_1]&&gopost('/adm
 c&6&3  c&6&3
 c&8&1  c&8&1
 c&8&2  c&8&2
 s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icon_text{'printout'}  
 s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1&$icon_text{'bookmark'}  
 ENDMENUITEMS  ENDMENUITEMS
               if ((($env{'request.course.id'} ne 'relate_3e100973b27484f2drelatel1') &&
                    ($env{'request.course.id'} ne 'relate_2764113e81b9e4f0crelatel1')) ||
                   ($env{'request.role'} =~ /^cc/)) {
                   $menuitems .= "s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icon_text{'printout'}\n";
               }
               $menuitems .= "s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1&$icon_text{'bookmark'}\n";
   
 my $currentURL = &Apache::loncommon::get_symb();  my $currentURL = &Apache::loncommon::get_symb();
 my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);  my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);
Line 783  ENDREALRES Line 787  ENDREALRES
     }      }
         }          }
  if ($env{'request.uri'} =~ /^\/res/) {   if ($env{'request.uri'} =~ /^\/res/) {
             my $icontext = &mt('Print');              if ((($env{'request.course.id'} ne 'relate_3e100973b27484f2drelatel1') &&
     $menuitems .= (<<ENDMENUITEMS);                   ($env{'request.course.id'} ne 'relate_2764113e81b9e4f0crelatel1')) ||
                   ($env{'request.role'} =~ /^cc/)) {
                   my $icontext = &mt('Print');
           $menuitems .= (<<ENDMENUITEMS);
 s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icontext  s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icontext
 ENDMENUITEMS  ENDMENUITEMS
  }      }
           }
         my $buttons='';          my $buttons='';
         foreach (split(/\n/,$menuitems)) {          foreach (split(/\n/,$menuitems)) {
     my ($command,@rest)=split(/\&/,$_);      my ($command,@rest)=split(/\&/,$_);
Removed from v.1.315.2.15  
changed lines
  Added in v.1.315.2.15.2.3

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