[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm

[albertel]

albertel		Mon Dec  6 14:37:46 2004 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
  - the (dot) link didn't work for versions requesrces cause the version number wasn't in the URL.
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.138 loncom/interface/lonmenu.pm:1.139
--- loncom/interface/lonmenu.pm:1.138	Sat Dec  4 13:53:24 2004
+++ loncom/interface/lonmenu.pm	Mon Dec  6 14:37:46 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.138 2004/12/04 18:53:24 raeburn Exp $
+# $Id: lonmenu.pm,v 1.139 2004/12/06 19:37:46 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -460,7 +460,7 @@
 ENDREGTEXT
 # Registered, graphical output
         } else {
-	    my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0];
+	    my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$ENV{'request.noversionuri'}))[0]));
 	    $requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::unescape($requri));
 	    my $cursymb=&Apache::lonenc::check_encrypt($ENV{'request.symb'});
 	    my $navstatus=&get_nav_status();