[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.15 and 1.371

version 1.369.2.15, 2012/08/01 20:36:05 version 1.371, 2012/05/18 14:27:11
Line 115  entries from mydesk.tab Line 115  entries from mydesk.tab
   
 Same as primary_menu() but operates on @secondary_menu.  Same as primary_menu() but operates on @secondary_menu.
   
 =item create_submenu()  
   
 Creates XHTML for unordered list of sub-menu items which belong to a  
 particular top-level menu item. Uses hover pseudo class in css to display  
 dropdown list when mouse hovers over top-level item. Support for IE6  
 (no hover psuedo class) via LC_hoverable class for <li> tag for top-  
 level item, which employs jQuery to handle behavior on mouseover.  
   
 Inputs: 4 - (a) link and (b) target for anchor href in top level item,  
             (c) title for text wrapped by anchor tag in top level item.  
             (d) reference to array of arrays of sub-menu items.  
   
 =item innerregister()  =item innerregister()
   
 This gets called in order to register a URL in the body of the document  This gets called in order to register a URL in the body of the document
Line 182  use HTML::Entities(); Line 170  use HTML::Entities();
 use Apache::lonwishlist();  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 %primary_submenu @secondary_menu %secondary_submenu);              $readdesk @primary_menu %primary_submenu @secondary_menu);
   
 my @inlineremote;  my @inlineremote;
   
Line 237  sub primary_menu { Line 225  sub primary_menu {
                   
         my $title = $menuitem->[3];          my $title = $menuitem->[3];
         if (defined($primary_submenu{$title})) {          if (defined($primary_submenu{$title})) {
             my ($link,$target);              my ($link,$target,$numsub);
             if ($menuitem->[0] ne '') {              if ($menuitem->[0] ne '') {
                 $link = $menuitem->[0];                  $link = $menuitem->[0];
                 $target = '_top';                  $target = '_top';
             } else {              } else {
                 $link = '#';                  $link = '#';
             }              }
             my @primsub;  
             if (ref($primary_submenu{$title}) eq 'ARRAY') {              if (ref($primary_submenu{$title}) eq 'ARRAY') {
                 foreach my $item (@{$primary_submenu{$title}}) {                  $numsub = @{$primary_submenu{$title}};
                     next if (($item->[2] eq 'wishlist') &&                   if ($numsub) {
                              ((!&Apache::lonnet::allowed('bre',"/res/$env{'user.domain'}/")) &&                      $title =
                               (!&Apache::lonnet::allowed('bro',"/res/$env{'user.domain'}/"))));                          '<span class="LC_nobreak">'.$title.
                     next if (($item->[2] eq 'reqcrs') && (!&check_for_rcrs()));                          '<span class="LC_fontsize_small">'.
                     next if ((($item->[2] eq 'portfolio') ||                           '&#9660;</span></span>';
                              ($item->[2] eq 'blog')) &&                   }
                              (!&Apache::lonnet::usertools_access('','',$item->[2],              }
                                                            undef,'tools')));              $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.$title.'</a>';
                     push(@primsub,$item);              if ($numsub) {
                 }                  $menu .= '<ul>';
                 if (@primsub > 0) {                  foreach my $item (@{$primary_submenu{$menuitem->[3]}}) {
                     $menu .= &create_submenu($link,$target,$title,\@primsub);                      if (ref($item) eq 'ARRAY') {
                 } elsif ($link) {                          if ($item->[2] eq 'wishlist') {
                     $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';                              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          } 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'};
Line 319  sub secondary_menu { Line 325  sub secondary_menu {
                                                ? "/$env{'request.course.sec'}"                                                 ? "/$env{'request.course.sec'}"
                                                : '');                                                 : '');
     my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});      my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
     my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};      my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec); 
     my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec);      my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); 
     my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);      my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec); 
     my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec);  
     my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);      my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);
     my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);      my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);
     my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec);      my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec); 
     my $author        = &getauthor();      my $author        = &getauthor();
   
     my %groups = &Apache::lonnet::get_active_groups(      my %groups = &Apache::lonnet::get_active_groups(
Line 341  sub secondary_menu { Line 346  sub secondary_menu {
                 && !$env{'request.course.id'};                  && !$env{'request.course.id'};
         next if    $$menuitem[4]   =~ /^mdc/          next if    $$menuitem[4]   =~ /^mdc/
                 && !$canedit;                  && !$canedit;
         next if    $$menuitem[4]  eq 'mdcCourse'  
                 && ($crstype eq 'Community');  
         next if    $$menuitem[4]  eq 'mdcCommunity'  
                 && ($crstype eq 'Course');  
         next if    $$menuitem[4]  eq 'nvgr'          next if    $$menuitem[4]  eq 'nvgr'
                 && $canvgr;                  && $canvgr;
         next if    $$menuitem[4]  eq 'vgr'          next if    $$menuitem[4]  eq 'vgr'
Line 352  sub secondary_menu { Line 353  sub secondary_menu {
         next if    $$menuitem[4]   eq 'cst'          next if    $$menuitem[4]   eq 'cst'
                 && !$canmodifyuser;                  && !$canmodifyuser;
         next if    $$menuitem[4]   eq 'ncst'          next if    $$menuitem[4]   eq 'ncst'
                 && ($canmodifyuser || !$canviewroster);                  && $canmodifyuser;
         next if    $$menuitem[4]   eq 'mgr'          next if    $$menuitem[4]   eq 'mgr'
                 && !$canmgr;                  && !$canmgr;
         next if    $$menuitem[4]   eq 'nmgr'          next if    $$menuitem[4]   eq 'nmgr'
Line 361  sub secondary_menu { Line 362  sub secondary_menu {
                 && !$canviewwnew;                  && !$canviewwnew;
         next if    $$menuitem[4]   eq 'opa'          next if    $$menuitem[4]   eq 'opa'
                 && !$canmodpara;                  && !$canmodpara;
         next if    $$menuitem[4]   eq 'nvcg'          next if    $$menuitem[4]   =~ /showgroups$/
                 && ($canviewgrps || !%groups);                  && !$canviewgrps
                   && !%groups;
         next if    $$menuitem[4]    eq 'author'          next if    $$menuitem[4]    eq 'author'
                 && !$author;                  && !$author;
   
         my $title = $menuitem->[3];          if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
         if (defined($secondary_submenu{$title})) {  
             my ($link,$target);  
             if ($menuitem->[0] ne '') {  
                 $link = $menuitem->[0];  
                 $target = '_top';  
             } else {  
                 $link = '#';  
             }  
             my @scndsub;     
             if (ref($secondary_submenu{$title}) eq 'ARRAY') {  
                 foreach my $item (@{$secondary_submenu{$title}}) {  
                     if (ref($item) eq 'ARRAY') {  
                         next if ($item->[2] eq 'vgr' && !$canvgr);  
                         next if ($item->[2] eq 'opa' && !$canmodpara);  
                         next if ($item->[2] eq 'cst' && !$canmodifyuser);  
                         next if ($item->[2] eq 'mgr' && !$canmgr);  
                         next if ($item->[2] eq 'vcg' && !$canviewgrps);  
                         push(@scndsub,$item);   
                     }  
                 }  
                 if (@scndsub > 0) {  
                     $menu .= &create_submenu($link,$target,$title,\@scndsub);  
                 } elsif ($link) {  
                     $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';  
                 }  
             }  
         } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {  
             # special treatment for role selector              # special treatment for role selector
             my $roles_selector = &roles_selector(              my $roles_selector = &roles_selector(
                         $env{'course.' . $env{'request.course.id'} . '.domain'},                          $env{'course.' . $env{'request.course.id'} . '.domain'},
                         $env{'course.' . $env{'request.course.id'} . '.num'}  );                          $env{'course.' . $env{'request.course.id'} . '.num'}  );
   
             $menu .= $roles_selector ? "<li style=\"padding: 0 0.8em;\">$roles_selector</li>"              $menu .= $roles_selector ? "<li>$roles_selector</li>"
                                      : '';                                       : '';
         } else {          } else {
             $menu .= &prep_menuitem(\@$menuitem);              $menu .= &prep_menuitem(\@$menuitem);
Line 429  sub secondary_menu { Line 404  sub secondary_menu {
     return "<ul id=\"LC_secondary_menu\">$menu</ul>";      return "<ul id=\"LC_secondary_menu\">$menu</ul>";
 }  }
   
 sub create_submenu {  
     my ($link,$target,$title,$submenu) = @_;  
     return unless (ref($submenu) eq 'ARRAY');  
     my $disptarget;  
     if ($target ne '') {  
         $disptarget = ' target="'.$target.'"';  
     }  
     my $menu = '<li class="LC_hoverable">'.  
                '<a href="'.$link.'"'.$disptarget.'>'.   
                '<span class="LC_nobreak">'.&mt($title).  
                '<span class="LC_fontsize_small" style="font-weight:normal;">'.  
                ' &#9660;</span></span></a>'.  
                '<ul>';  
     my $count = 0;  
     my $numsub = scalar(@{$submenu});  
     foreach my $item (@{$submenu}) {  
         $count ++;  
         if (ref($item) eq 'ARRAY') {  
             my $borderbot;  
             if ($count == $numsub) {  
                 $borderbot = 'border-bottom:1px solid black;';  
             }  
             $menu .= '<li style="margin:0;padding:0;'.  
                      $borderbot.'"><a href="'.$item->[0].'">'.  
                      &mt($item->[1]).'</a></li>';  
         }  
     }  
     $menu .= '</ul></li>';  
     return $menu;  
 }  
   
 sub innerregister {  sub innerregister {
     my ($forcereg,$bread_crumbs) = @_;      my ($forcereg,$bread_crumbs) = @_;
     my $const_space = ($env{'request.state'} eq 'construct');      my $const_space = ($env{'request.state'} eq 'construct');
Line 762  $menuitems.="&Notes&&annotate()&"; Line 706  $menuitems.="&Notes&&annotate()&";
 $menuitems.="Make notes and annotations about this resource&&1\n";  $menuitems.="Make notes and annotations about this resource&&1\n";
   
             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {
  if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) {   if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/})) {
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.png&Info&info[_1]&catalog_info()&Show Metadata  s&6&3&catalog.png&Info&info[_1]&catalog_info()&Show Metadata
 ENDREALRES  ENDREALRES
                 }                  }
                 unless ($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) {          $menuitems.=(<<ENDREALRES);
             $menuitems.=(<<ENDREALRES);  
 s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource  s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
 ENDREALRES  
                 }  
                 $menuitems.=(<<ENDREALRES);  
 s&8&2&fdbk.png&Communicate&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource  s&8&2&fdbk.png&Communicate&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
 ENDREALRES  ENDREALRES
     }      }
Line 784  ENDMENUITEMS Line 724  ENDMENUITEMS
             if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F') {              if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F') {
                 # wishlist is only available for users with access to resource-pool                  # wishlist is only available for users with access to resource-pool
                 $menuitems .= (<<ENDMENUITEMS);                  $menuitems .= (<<ENDMENUITEMS);
 s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1  s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in in your personal Stored Links repository&&1
 ENDMENUITEMS  ENDMENUITEMS
             }              }
  }   }
Line 816  ENDMENUITEMS Line 756  ENDMENUITEMS
             &Apache::lonhtmlcommon::add_breadcrumb_tool(              &Apache::lonhtmlcommon::add_breadcrumb_tool(
                 'navigation', @inlineremote[21,23]);                  'navigation', @inlineremote[21,23]);
   
         my $countdown = &countdown_timer();          if(hidden_button_check() ne 'yes') {
         if (&hidden_button_check() eq 'yes') {  
             if ($countdown) {  
                 &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);  
             }  
         } else {  
             my @tools = @inlineremote[93,91,81,82,83];  
             if ($countdown) {  
                 unshift(@tools,$countdown);  
             }  
             &Apache::lonhtmlcommon::add_breadcrumb_tool(              &Apache::lonhtmlcommon::add_breadcrumb_tool(
                 'tools',@tools);                  'tools', @inlineremote[93,91,81,82,83]);
   
             #publish button in construction space              #publish button in construction space
             if ($env{'request.state'} eq 'construct'){              if ($env{'request.state'} eq 'construct'){
Line 886  sub edit_course_upload { Line 817  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 1096  sub switch { Line 869  sub switch {
    }     }
     } else {      } else {
 # Inline Menu  # Inline Menu
         my @tools = (93,91,81,82,83);        $inlineremote[$idx]=
         unless ($env{'request.state'} eq 'construct') {  
             push(@tools,63);  
         }  
         if (($env{'environment.icons'} eq 'iconsonly') &&  
             (grep(/^$idx$/,@tools))) {  
             $inlineremote[$idx] =  
         '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>';  
         } else {  
             $inlineremote[$idx] =  
        '<a title="'.$desc.'" 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">'.$top.'&nbsp;</span></a>';         '<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';
         }  
     }      }
     return '';      return '';
 }  }
Line 1369  sub check_for_rcrs { Line 1132  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 1416  END Line 1157  END
   
 }  }
   
 sub countdown_toggle_js {  
     return <<"END";  
   
 function toggleCountdown() {  
     var countdownid = document.getElementById('duedatecountdown');  
     var currstyle = countdownid.style.display;  
     if (currstyle == 'inline') {  
         countdownid.style.display = 'none';  
         document.getElementById('ddcountcollapse').innerHTML='';  
         document.getElementById('ddcountexpand').innerHTML='&#9668;&nbsp;';  
     } else {  
         countdownid.style.display = 'inline';  
         document.getElementById('ddcountcollapse').innerHTML='&#9658;&nbsp;';  
         document.getElementById('ddcountexpand').innerHTML='';  
     }  
     return;  
 }  
   
 END  
 }  
   
 sub utilityfunctions {  sub utilityfunctions {
     my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));      my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
     if ($currenturl =~ m{^/adm/wrapper/ext/}      if ($currenturl =~ m{^/adm/wrapper/ext/}
Line 1471  sub utilityfunctions { Line 1191  sub utilityfunctions {
     my $esc_url=&escape($currenturl);      my $esc_url=&escape($currenturl);
     my $esc_symb=&escape($currentsymb);      my $esc_symb=&escape($currentsymb);
   
     my $countdown = &countdown_toggle_js();  
   
 return (<<ENDUTILITY)  return (<<ENDUTILITY)
   
     var currentURL=unescape("$esc_url");      var currentURL=unescape("$esc_url");
Line 1609  function open_StoredLinks_Import(rat) { Line 1327  function open_StoredLinks_Import(rat) {
    newWin.focus();     newWin.focus();
 }  }
   
 (function (\$) {  
   \$(document).ready(function () {  
     \$.single=function(a){return function(b){a[0]=b;return a}}(\$([1]));  
     /*\@cc_on  
       if (!window.XMLHttpRequest) {  
         \$('.LC_hoverable').each(function () {  
           this.attachEvent('onmouseenter', function (evt) { \$.single(evt.srcElement).addClass('hover'); });  
           this.attachEvent('onmouseleave', function (evt) { \$.single(evt.srcElement).removeClass('hover'); });  
         });  
       }  
     \@*/  
   });  
 }(jQuery));  
   
 $countdown  
   
 ENDUTILITY  ENDUTILITY
 }  }
   
Line 2023  sub required_privs { Line 1725  sub required_privs {
     return $privs;      return $privs;
 }  }
   
 sub countdown_timer {  
     if (($env{'request.course.id'}) && ($env{'request.symb'} ne '') &&  
         ($env{'request.filename'}=~/$LONCAPA::assess_re/) &&  
         ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {  
         my $duedate = &Apache::lonnet::EXT("resource.0.duedate");  
         my @interval=&Apache::lonnet::EXT("resource.0.interval");  
         my $hastimeleft;  
         if (@interval > 1) {  
             my $first_access=&Apache::lonnet::get_first_access($interval[1]);  
             if ($first_access > 0) {  
                 if ($first_access+$interval[0] > time) {  
                     $hastimeleft = 1;  
                 }  
             }  
         }  
         if (($duedate && $duedate > time) ||  
             (!$duedate && $hastimeleft)) {  
             my ($collapse,$expand,$alttxt,$title,$currdisp);  
             if (@interval > 1 && $hastimeleft) {  
                 $currdisp = 'inline';  
                 $collapse = '&#9658;&nbsp;';  
             } else {  
                 $currdisp = 'none';  
                 $expand = '&#9668;&nbsp;';  
             }  
             unless ($env{'environment.icons'} eq 'iconsonly') {  
                 $alttxt = &mt('Timer');  
                 $title = $alttxt.'&nbsp;';  
             }  
             my $desc = &mt('Countdown to due date/time');  
             return <<END;  
   
 <a href="javascript:toggleCountdown();" class="LC_menubuttons_link">  
 <span id="ddcountcollapse" class="LC_menubuttons_inline_text">  
 $collapse  
 </span></a>  
 <span id="duedatecountdown" class="LC_menubuttons_inline_text" style="display: $currdisp;"></span>  
 <a href="javascript:toggleCountdown();" class="LC_menubuttons_link">  
 <span id="ddcountexpand" class="LC_menubuttons_inline_text" >$expand</span>  
 <img src="/res/adm/pages/timer.png" title="$desc" class="LC_icon" alt="$alttxt" /><span class="LC_menubuttons_inline_text">$title</span></a>  
 END  
         }  
     }  
     return;  
 }  
   
 # ================================================================ Main Program  # ================================================================ Main Program
   
 BEGIN {  BEGIN {
Line 2093  BEGIN { Line 1749  BEGIN {
                     } 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; 
                     } elsif ($configline=~/^scndsub\:/) {  
                         my ($parent,@entries) = (split(/\:/, $configline))[1..4];  
                         push (@{$secondary_submenu{$parent}},\@entries);  
                     } elsif ($configline) {                      } elsif ($configline) {
                         push(@desklines,$configline);                          push(@desklines,$configline);
                     }                      }
Removed from v.1.369.2.15  
changed lines
  Added in v.1.371

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