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

Diff for /loncom/interface/lonmenu.pm between versions 1.354 and 1.369.2.4

version 1.354, 2011/10/24 23:29:33 version 1.369.2.4, 2012/05/21 16:25:37
Line 26 Line 26
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 #  #
 # There is one parameter controlling the action of this module:  
 #  
   
 =head1 NAME  =head1 NAME
   
Line 35  Apache::lonmenu Line 33  Apache::lonmenu
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 Coordinates the response to clicking an image.  Loads contents of /home/httpd/lonTabs/mydesk.tab, 
   used to generate inline menu, and Main Menu page. 
   
 This is part of the LearningOnline Network with CAPA project  This is part of the LearningOnline Network with CAPA project
 described at http://www.lon-capa.org.  described at http://www.lon-capa.org.
Line 74  It is set to 'done' in the BEGIN block o Line 73  It is set to 'done' in the BEGIN block o
 =item @primary_menu  =item @primary_menu
   
 The elements of this array reference arrays that are made up of the components  The elements of this array reference arrays that are made up of the components
 of those lines of mydesk.tab that start with prim.  of those lines of mydesk.tab that start with prim:.
 It is used by primary_menu() to generate the corresponding menu.  It is used by primary_menu() to generate the corresponding menu.
 It gets filled in the BEGIN block of this module.  It gets filled in the BEGIN block of this module.
   
   =item %primary_sub_menu
   
   The keys of this hash reference are the names of items in the primary_menu array 
   which have sub-menus.  For each key, the corresponding value is a reference to
   an array containing components extracted from lines in mydesk.tab which begin
   with primsub:.
   This hash, which is used by primary_menu to generate sub-menus, is populated in
   the BEGIN block.
   
 =item @secondary_menu  =item @secondary_menu
   
 The elements of this array reference arrays that are made up of the components  The elements of this array reference arrays that are made up of the components
Line 153  use Apache::lonhtmlcommon(); Line 161  use Apache::lonhtmlcommon();
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonenc();  use Apache::lonenc();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonmsg();
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
 use HTML::Entities();  use HTML::Entities();
 use Apache::lonwishlist();  
   
 use vars qw(@desklines %category_names %category_members %category_positions   use vars qw(@desklines %category_names %category_members %category_positions 
             $readdesk @primary_menu @secondary_menu);              $readdesk @primary_menu %primary_submenu @secondary_menu);
   
 my @inlineremote;  my @inlineremote;
   
Line 181  sub prep_menuitem { Line 189  sub prep_menuitem {
   
 # primary_menu() evaluates @primary_menu and returns XHTML for the menu  # primary_menu() evaluates @primary_menu and returns XHTML for the menu
 # that contains following links:  # that contains following links:
 # About, Message, Roles, Help, Logout  # About, Message, Personal, Roles, Help, Logout
 # @primary_menu is filled within the BEGIN block of this module with   # @primary_menu is filled within the BEGIN block of this module with 
 # entries from mydesk.tab  # entries from mydesk.tab
 sub primary_menu {  sub primary_menu {
Line 211  sub primary_menu { Line 219  sub primary_menu {
         next if    $$menuitem[4]        eq 'courses'   ##'Roles' wanted          next if    $$menuitem[4]        eq 'courses'   ##'Roles' wanted
                 && !&Apache::loncommon::show_course(); ##                  && !&Apache::loncommon::show_course(); ##
                   
                       my $title = $menuitem->[3];
         if ($$menuitem[3] eq 'Help') { # special treatment for helplink          if (defined($primary_submenu{$title})) {
               my ($link,$target,$numsub);
               if ($menuitem->[0] ne '') {
                   $link = $menuitem->[0];
                   $target = '_top';
               } else {
                   $link = '#';
               }
               if (ref($primary_submenu{$title}) eq 'ARRAY') {
                   $numsub = @{$primary_submenu{$title}};
                   if ($numsub) {
                       $title =
                           '<span class="LC_nobreak">'.$title.
                           '<span class="LC_fontsize_small">'.
                           '&#9660;</span></span>';
                   }
               }
               $menu .= '<li class="LC_hoverable">'.
                        '<a href="'.$link.'" target="'.$target.'">'.$title.'</a>';
               if ($numsub) {
                   $menu .= '<ul>';
                   foreach my $item (@{$primary_submenu{$menuitem->[3]}}) {
                       if (ref($item) eq 'ARRAY') {
                           if ($item->[2] eq 'wishlist') {
                               next unless ((&Apache::lonnet::allowed('bre',"/res/$env{'user.domain'}/")) ||
                                            (&Apache::lonnet::allowed('bro',"/res/$env{'user.domain'}/")));
                           } elsif ($item->[2] eq 'reqcrs') {
                               next unless(&check_for_rcrs());
                           } elsif (($item->[2] eq 'portfolio') ||
                                    ($item->[2] eq 'blog')) {
                               if (!&Apache::lonnet::usertools_access(
                                       $env{'user.name'},
                                       $env{'user.domain'},
                                       $item->[2],undef,'tools')) {
                                   next;
                               }
                           }
                           $menu .= '<li style="margin:0;padding:0">'.
                                    '<a href="'.$item->[0].
                                    '" style="padding:0 0 0 10px">'.
                                    $item->[1].'</a></li>';
                       }
                   }
                   $menu .= '</ul>';
               }
               $menu .= '</li>';
           } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
             if ($public) {              if ($public) {
                 my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};                  my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
                 my $defdom = &Apache::lonnet::default_login_domain();                  my $defdom = &Apache::lonnet::default_login_domain();
Line 334  sub secondary_menu { Line 388  sub secondary_menu {
             and (   $env{'request.noversionuri'} eq ''               and (   $env{'request.noversionuri'} eq '' 
                  || !defined($env{'request.noversionuri'})))                    || !defined($env{'request.noversionuri'}))) 
         {          {
             ($escurl = $env{'request.filename'}) =~ s{^/home/httpd/html}{};              my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
               ($escurl = $env{'request.filename'}) =~ s{^\Q$londocroot\E}{};
             $escurl  = &escape($escurl);              $escurl  = &escape($escurl);
         }              }    
         $menu =~ s/\[url\]/$escurl/g;          $menu =~ s/\[url\]/$escurl/g;
Line 409  sub innerregister { Line 464  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|task)$/) {      $env{'request.filename'}=~/$LONCAPA::assess_re/) {
     if (&Apache::lonnet::allowed('mgr',$crs)) {      if (&Apache::lonnet::allowed('mgr',$crs)) {
  $hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',   $hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',
                        "gocmd('/adm/grades','gradingmenu')",                         "gocmd('/adm/grades','gradingmenu')",
Line 426  sub innerregister { Line 481  sub innerregister {
      "gocmd('/adm/parmset','set')",       "gocmd('/adm/parmset','set')",
      'Content Settings');       'Content Settings');
  }   }
           if ($env{'request.symb'}=~/^uploaded/ &&
               &Apache::lonnet::allowed('mdc',$crs)) {
               $hwkadd.=&switch('','',7,4,'docs.png','Folder/Page Content','parms[_2]',
                                "gocmd('/adm/coursedocs','direct')",
                                'Folder/Page Content');
           }
 # -- End Homework  # -- End Homework
         ###          ###
         ### Determine whether or not to display the 'cstr' button for this          ### Determine whether or not to display the 'cstr' button for this
Line 491  sub innerregister { Line 552  sub innerregister {
                     $uploaded = &is_course_upload($file,$cnum,$cdom);                      $uploaded = &is_course_upload($file,$cnum,$cdom);
                 }                  }
                 if (!$uploaded) {                  if (!$uploaded) {
                     $file=~s/^($match_domain)\/($match_username)/\/priv\/$1\/$2/;  
                       $file=~s{^(priv/$match_domain/$match_username)}{/$1};
                       $file=~s{^($match_domain/$match_username)}{/priv/$1};
   
                     # Check that the user has permission to edit this resource                      # Check that the user has permission to edit this resource
                     ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file);                      my $setpriv = 1;
                       ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$setpriv);
                     if (defined($cfudom)) {                      if (defined($cfudom)) {
         $home=&Apache::lonnet::homeserver($cfuname,$cfudom);          $home=&Apache::lonnet::homeserver($cfuname,$cfudom);
         my $allowed=0;          my $allowed=0;
Line 575  sub innerregister { Line 640  sub innerregister {
 # We are in construction space  # We are in construction space
 #  #
   
               my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
     my ($udom,$uname,$thisdisfn) =      my ($udom,$uname,$thisdisfn) =
  ($env{'request.filename'}=~m|^/home/httpd/html/priv/([^/]+)/([^/]+)/(.*)$|);   ($env{'request.filename'}=~m{^\Q$londocroot/priv/\E([^/]+)/([^/]+)/(.*)$});
             my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;              my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;
             if ($currdir =~ m-/$-) {              if ($currdir =~ m-/$-) {
                 $is_const_dir = 1;                  $is_const_dir = 1;
Line 616  c&6&3 Line 681  c&6&3
 c&8&1  c&8&1
 c&8&2  c&8&2
 s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document  s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
   s&9&1&sbkm.png&Bookmark&set[_1]bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1
   
 ENDMENUITEMS  ENDMENUITEMS
             if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F' && $env{'request.uri'} =~ /^\/res/) {  
                 # wishlist is only available for users with access to resource-pool  
                 # and links can only be set for resources within the resource-pool  
                 $menuitems .= (<<ENDMENUITEMS);  
 s&9&1&wishlist-link.png&Wishlist&wishlistlink[_2]&set_wishlistlink()&Set a link for this resource to wishlist&&1  
 ENDMENUITEMS  
             }  
   
 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 653  ENDREALRES Line 713  ENDREALRES
     $menuitems .= (<<ENDMENUITEMS);      $menuitems .= (<<ENDMENUITEMS);
 s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document  s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
 ENDMENUITEMS  ENDMENUITEMS
             if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F') {  
                 # wishlist is only available for users with access to resource-pool  
                 $menuitems .= (<<ENDMENUITEMS);  
 s&9&1&wishlist-link.png&Wishlist&wishlistlink[_2]&set_wishlistlink()&Set a link for this resource to wishlist&&1  
 ENDMENUITEMS  
             }  
  }   }
         my $buttons='';          my $buttons='';
         foreach (split(/\n/,$menuitems)) {          foreach (split(/\n/,$menuitems)) {
Line 703  ENDMENUITEMS Line 757  ENDMENUITEMS
                           
             unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {              unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {
                 &Apache::lonhtmlcommon::add_breadcrumb_tool(                  &Apache::lonhtmlcommon::add_breadcrumb_tool(
                     'advtools', @inlineremote[61,71,72,73,92]);                      'advtools', @inlineremote[61,71,72,73,74,92]);
             }              }
         }          }
     }      }
Line 749  sub edit_course_upload { Line 803  sub edit_course_upload {
     return $cfile;      return $cfile;
 }  }
   
   sub startupremote {
       my ($lowerurl)=@_;
       if ($env{'environment.remote'} eq 'off') {
        return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');
       }
   #
   # The Remote actually gets launched!
   #
       my $configmenu=&rawconfig();
       my $esclowerurl=&escape($lowerurl);
       my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');
       return(<<ENDREMOTESTARTUP);
   <script type="text/javascript">
   // <![CDATA[
   var timestart;
   function wheelswitch() {
       if (typeof(document.wheel) != 'undefined') {
           if (typeof(document.wheel.spin) != 'undefined') {
               var date=new Date();
               var waited=Math.round(30-((date.getTime()-timestart)/1000));
               document.wheel.spin.value=$message;
           }
       }
      if (window.status=='|') {
         window.status='/';
      } else {
         if (window.status=='/') {
            window.status='-';
         } else {
            if (window.status=='-') {
               window.status='\\\\';
            } else {
               if (window.status=='\\\\') { window.status='|'; }
            }
         }
      }
   }
   
   // ---------------------------------------------------------- The wait function
   var canceltim;
   function wait() {
      if ((menuloaded==1) || (tim==1)) {
         window.status='Done.';
         if (tim==0) {
            clearTimeout(canceltim);
            $configmenu
            window.location='$lowerurl';
         } else {
             window.location='/adm/remote?action=collapse&url=$esclowerurl';
         }
      } else {
         wheelswitch();
         setTimeout('wait();',200);
      }
   }
   
   function main() {
      canceltim=setTimeout('tim=1;',30000);
      window.status='-';
      var date=new Date();
      timestart=date.getTime();
      wait();
   }
   
   // ]]>
   </script>
   ENDREMOTESTARTUP
   }
   
   sub setflags() {
       return(<<ENDSETFLAGS);
   <script type="text/javascript">
   // <![CDATA[
       menuloaded=0;
       tim=0;
   // ]]>
   </script>
   ENDSETFLAGS
   }
   
   sub maincall() {
       if ($env{'environment.remote'} eq 'off') { return ''; }
       return(<<ENDMAINCALL);
   <script type="text/javascript">
   // <![CDATA[
       main();
   // ]]>
   </script>
   ENDMAINCALL
   }
   
   sub load_remote_msg {
       my ($lowerurl)=@_;
   
       if ($env{'environment.remote'} eq 'off') { return ''; }
   
       my $esclowerurl=&escape($lowerurl);
       my $link=&mt('[_1]Continue[_2] on in Inline Menu mode'
                   ,'<a href="/adm/remote?action=collapse&amp;url='.$esclowerurl.'">'
                   ,'</a>');
       return(<<ENDREMOTEFORM);
   <p>
   <form name="wheel">
   <input name="spin" type="text" size="60" />
   </form>
   </p>
   <p>$link</p>
   ENDREMOTEFORM
   }
   
   sub get_menu_name {
       my $hostid = $Apache::lonnet::perlvar{'lonHostID'};
       $hostid =~ s/\W//g;
       return 'LCmenu'.$hostid;
   }
   
   
   sub reopenmenu {
      if ($env{'environment.remote'} eq 'off') { return ''; }
      my $menuname = &get_menu_name();
      my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
      return('window.open('.$nothing.',"'.$menuname.'","",false);');
   }
   
   
   sub open {
       my $returnval='';
       if ($env{'environment.remote'} eq 'off') {
           return
           '<script type="text/javascript">'."\n"
          .'// <![CDATA['."\n"
          .'self.name="loncapaclient";'."\n"
          .'// ]]>'."\n"
          .'</script>';
       }
       my $menuname = &get_menu_name();
   
   #    unless (shift eq 'unix') {
   # resizing does not work on linux because of virtual desktop sizes
   #       $returnval.=(<<ENDRESIZE);
   #if (window.screen) {
   #    self.resizeTo(screen.availWidth-215,screen.availHeight-55);
   #    self.moveTo(190,15);
   #}
   #ENDRESIZE
   #    }
       $returnval=(<<ENDOPEN);
   // <![CDATA[
   window.status='Opening LON-CAPA Remote Control';
   var menu=window.open("/res/adm/pages/menu.html?inhibitmenu=yes","$menuname",
   "height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
   self.name='loncapaclient';
   // ]]>
   ENDOPEN
       return '<script type="text/javascript">'.$returnval.'</script>';
   }
   
   
 # ================================================================== Raw Config  # ================================================================== Raw Config
   
 sub clear {  sub clear {
Line 1064  sub check_for_rcrs { Line 1276  sub check_for_rcrs {
     return $showreqcrs;      return $showreqcrs;
 }  }
   
   # ======================================================================= Close
   
   sub close {
       if ($env{'environment.remote'} eq 'off') { return ''; }
       my $menuname = &get_menu_name();
       return(<<ENDCLOSE);
   <script type="text/javascript">
   // <![CDATA[
   window.status='Accessing Remote Control';
   menu=window.open("/adm/rat/empty.html","$menuname",
                    "height=350,width=150,scrollbars=no,menubar=no");
   window.status='Disabling Remote Control';
   menu.active=0;
   menu.autologout=0;
   window.status='Closing Remote Control';
   menu.close();
   window.status='Done.';
   // ]]>
   </script>
   ENDCLOSE
   }
   
 sub dc_popup_js {  sub dc_popup_js {
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                                           more => '(More ...)',                                            more => '(More ...)',
Line 1075  function showCourseID() { Line 1309  function showCourseID() {
     document.getElementById('dccid').style.display='block';      document.getElementById('dccid').style.display='block';
     document.getElementById('dccid').style.textAlign='left';      document.getElementById('dccid').style.textAlign='left';
     document.getElementById('dccid').style.textFace='normal';      document.getElementById('dccid').style.textFace='normal';
     document.getElementById('dccidtext').innerHTML ='<a href="javascript:hideCourseID();">$lt{'less'}</a>';      document.getElementById('dccidtext').innerHTML ='<a href="javascript:hideCourseID();" class="LC_menubuttons_link">$lt{'less'}</a>';
     return;      return;
 }  }
   
 function hideCourseID() {  function hideCourseID() {
     document.getElementById('dccid').style.display='none';      document.getElementById('dccid').style.display='none';
     document.getElementById('dccidtext').innerHTML ='<a href="javascript:showCourseID()">$lt{'more'}</a>';      document.getElementById('dccidtext').innerHTML ='<a href="javascript:showCourseID()" class="LC_menubuttons_link">$lt{'more'}</a>';
     return;      return;
 }  }
   
Line 1117  sub utilityfunctions { Line 1351  sub utilityfunctions {
     my $end_page_annotate =       my $end_page_annotate = 
         &Apache::loncommon::end_page({'js_ready' => 1});          &Apache::loncommon::end_page({'js_ready' => 1});
   
       my $start_page_bookmark =
           &Apache::loncommon::start_page('Bookmarks',undef,
                                          {'only_body' => 1,
                                           'js_ready'  => 1,
                                           'bgcolor'   => '#BBBBBB',});
   
       my $end_page_bookmark =
           &Apache::loncommon::end_page({'js_ready' => 1});
   
     my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.      my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.
                          &mt('Switch server?');                           &mt('Switch server?');
   
       my $esc_url=&escape($currenturl);
       my $esc_symb=&escape($currentsymb);
   
 return (<<ENDUTILITY)  return (<<ENDUTILITY)
   
     var currentURL="$currenturl";      var currentURL=unescape("$esc_url");
     var reloadURL="$currenturl";      var reloadURL=unescape("$esc_url");
     var currentSymb="$currentsymb";      var currentSymb=unescape("$esc_symb");
   
 $dc_popup_cid  $dc_popup_cid
   
Line 1218  function golist(url) { Line 1463  function golist(url) {
   
   
 function catalog_info() {  function catalog_info() {
    loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');     openMyModal(window.location.pathname+'.meta',500,400,'yes');
 }  }
   
 function chat_win() {  function chat_win() {
Line 1231  function group_chat(group) { Line 1476  function group_chat(group) {
    grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');     grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
 }  }
   
   function edit_bookmarks() {
      go('');
      w_BookmarkPal_flag=1;
      bookmarkpal=window.open("/adm/bookmarks",
                  "BookmarkPal", "width=500,height=505,scrollbars=0");
   }
   
 function annotate() {  function annotate() {
    w_Annotator_flag=1;     w_Annotator_flag=1;
    annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');     annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');
Line 1244  function annotate() { Line 1496  function annotate() {
    annotator.document.close();     annotator.document.close();
 }  }
   
 function set_wishlistlink(title, path) {  (function (\$) {
     if (!title) {    \$(document).ready(function () {
         title = document.title;      \$.single=function(a){return function(b){a[0]=b;return a}}(\$([1]));
         title = title.replace(/^LON-CAPA /,'');      /*\@cc_on
     }        if (!window.XMLHttpRequest) {
     if (!path) {          \$('.LC_hoverable').each(function () {
         path = location.pathname;            this.attachEvent('onmouseenter', function (evt) { \$.single(evt.srcElement).addClass('hover'); });
     }            this.attachEvent('onmouseleave', function (evt) { \$.single(evt.srcElement).removeClass('hover'); });
     Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path,          });
                       'wishlistNewLink','width=560,height=350,scrollbars=0');        }
 }      \@*/
     });
 function open_Wishlist_Import(rat) {  }(jQuery));
    var newWin;  
    if (rat) {  function set_bookmark() {
        newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,     go('');
                             'wishlistImport','scrollbars=1,resizable=1,menubar=0');     clienttitle=document.title;
    }     clienthref=location.pathname;
    else {     w_bmquery_flag=1;
        newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import',     bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');
                             'wishlistImport','scrollbars=1,resizable=1,menubar=0');     bmquery.document.write(
    }     '$start_page_bookmark'
    newWin.focus();     +'<center><form method="post"'
      +' name="newlink" action="/adm/bookmarks" target="bmquery" '
      +'> <table width="340" height="150" '
      +'bgcolor="#FFFFFF" align="center"><tr><td>Link Name:<br /><input '
      +'type="text" name="title" size="45" value="'+clienttitle+'" />'
      +'<br />Address:<br /><input type="text" name="address" size="45" '
      +'value="'+clienthref+'" /><br /><center><input type="submit" '
      +'value="Save" /> <input type="button" value="Close" '
      +'onclick="javascript:window.close();" /></center></td>'
      +'</tr></table></form></center>'
      +'$end_page_bookmark' );
      bmquery.document.close();
 }  }
   
 ENDUTILITY  ENDUTILITY
Line 1656  sub required_privs { Line 1919  sub required_privs {
              '/adm/populate'     => 'cst',               '/adm/populate'     => 'cst',
              '/adm/trackstudent' => 'vsa',               '/adm/trackstudent' => 'vsa',
              '/adm/statistics'   => 'vgr',               '/adm/statistics'   => 'vgr',
                '/adm/setblock'     => 'dcm',
                '/adm/coursedocs'   => 'mdc',
            };             };
     unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {      unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {
         $privs->{'/adm/classcalc'}   => 'vgr',          $privs->{'/adm/classcalc'}   = 'vgr',
         $privs->{'/adm/assesscalc'}  => 'vgr',          $privs->{'/adm/assesscalc'}  = 'vgr',
         $privs->{'/adm/studentcalc'} => 'vgr';          $privs->{'/adm/studentcalc'} = 'vgr';
     }      }
     return $privs;      return $privs;
 }  }
Line 1683  BEGIN { Line 1948  BEGIN {
                     } elsif ($configline=~/^prim\:/) {                      } elsif ($configline=~/^prim\:/) {
                         my @entries = (split(/\:/, $configline))[1..5];                          my @entries = (split(/\:/, $configline))[1..5];
                         push @primary_menu, \@entries;                          push @primary_menu, \@entries;
                       } elsif ($configline=~/^primsub\:/) {
                           my ($parent,@entries) = (split(/\:/, $configline))[1..4];
                           push (@{$primary_submenu{$parent}},\@entries);
                     } elsif ($configline=~/^scnd\:/) {                      } elsif ($configline=~/^scnd\:/) {
                         my @entries = (split(/\:/, $configline))[1..5];                          my @entries = (split(/\:/, $configline))[1..5];
                         push @secondary_menu, \@entries;                           push @secondary_menu, \@entries; 
Removed from v.1.354  
changed lines
  Added in v.1.369.2.4

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