[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[banghart]

banghart		Mon Mar 27 18:43:47 2006 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  	Typo.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.722 loncom/lonnet/perl/lonnet.pm:1.723
--- loncom/lonnet/perl/lonnet.pm:1.722	Mon Mar 27 18:00:18 2006
+++ loncom/lonnet/perl/lonnet.pm	Mon Mar 27 18:43:43 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.722 2006/03/27 23:00:18 albertel Exp $
+# $Id: lonnet.pm,v 1.723 2006/03/27 23:43:43 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4743,11 +4743,10 @@
     $uri = &clutter($uri);
 
     # we want just the url part without the unneeded accessor url bits
-    if ($file =~ m-^/adm/-) {
-	$file=~s-^/adm/wrapper/-/-;
-	$file=~s-^/adm/coursedocs/showdoc/-/-;
+    if ($uri =~ m-^/adm/-) {
+	$uri=~s-^/adm/wrapper/-/-;
+	$uri=~s-^/adm/coursedocs/showdoc/-/-;
     }
-    
     my ($udom,$uname,$file,$dir);
     if ($uri =~ m-^/(uploaded|editupload)/-) {
 	($udom,$uname,$file) =