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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.125 and 1.126

version 1.125, 2009/06/05 12:49:50 version 1.126, 2009/06/11 16:48:33
Line 2333  sub displaymessage { Line 2333  sub displaymessage {
                           .&mt('Next')                            .&mt('Next')
                           .'</a>');                            .'</a>');
     }      }
 # Print functions  
     my $legendtext='<span class="LC_mail_functions">'  
                    .&mt('Functions')  
                    .'</span>';  
     $r->print('<div class="LC_left_float">'  
                      .&Apache::lontemplate::start_functionslist($legendtext)  
     );  
     foreach my $item (@functionlist) {  
         $r->print(&Apache::lontemplate::item_functionslist($item));  
     }  
     $r->print(&Apache::lontemplate::end_functionslist()  
              .'</div>'  
     );  
   
 # Prepare available actions  # Prepare available actions
     my $symb;      my $symb;
Line 2354  sub displaymessage { Line 2341  sub displaymessage {
     } elsif (defined($content{'baseurl'})) {      } elsif (defined($content{'baseurl'})) {
         $symb=&Apache::lonnet::symbread($content{'baseurl'});          $symb=&Apache::lonnet::symbread($content{'baseurl'});
     }      }
     if ($env{'user.adv'}) {  
         my @actionlist;          my @actionlist;
       if ($env{'user.adv'}) {
   
  if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {   if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
  push(@actionlist,&Apache::loncommon::track_student_link(   push(@actionlist,&Apache::loncommon::track_student_link(
Line 2380  sub displaymessage { Line 2367  sub displaymessage {
                                      ,$symb                                       ,$symb
                                      ,'check'));                                       ,'check'));
  }   }
       }
   
   # Print functionlist and actionlist in page header
           my $functions='<div class="LC_columnSection">';
   
 # Print actions          # Functionlist
           $functions.=&Apache::lonhtmlcommon::start_funclist();
           foreach my $item (@functionlist) {
               $functions.=&Apache::lonhtmlcommon::add_item_funclist($item);
           }
           $functions .= &Apache::lonhtmlcommon::end_funclist();
   
           # Actionlist
         if (@actionlist) {          if (@actionlist) {
             $legendtext=&mt('[_1]Currently available actions[_2] (will open extra window):'              my $legendtext=&mt('Currently available actions (will open extra window)');
                            ,'<span class="LC_mail_functions">','</span>');              $functions.=&Apache::lonhtmlcommon::start_funclist($legendtext);
             $r->print('<div class="LC_left_float">'  
                      .&Apache::lontemplate::start_functionslist($legendtext)  
             );  
             foreach my $item (@actionlist) {              foreach my $item (@actionlist) {
                 $r->print(&Apache::lontemplate::item_functionslist($item));                  $functions.=&Apache::lonhtmlcommon::add_item_funclist($item);
             }              }
             $r->print(&Apache::lontemplate::end_functionslist()              $functions.=&Apache::lonhtmlcommon::end_funclist();
                      .'</div>'  
             );  
         }          }
     }  
           $functions.='</div>';
           $r->print(&Apache::loncommon::head_subbox($functions));
   
   
     my ($tonum,$tolist,$cclist,$bcclist,$groupcclist,%recipients);      my ($tonum,$tolist,$cclist,$bcclist,$groupcclist,%recipients);
     if ($content{'recipid'}) {      if ($content{'recipid'}) {
Removed from v.1.125  
changed lines
  Added in v.1.126

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