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

[albertel]

albertel		Mon Oct 16 17:39:37 2006 EDT

  Modified files:              
    /loncom/interface	lonmeta.pm 
  Log:
  - BUG# 5023 (missed some chunks)
  
  
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.182 loncom/interface/lonmeta.pm:1.183
--- loncom/interface/lonmeta.pm:1.182	Fri Oct  6 15:12:22 2006
+++ loncom/interface/lonmeta.pm	Mon Oct 16 17:39:37 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.182 2006/10/06 19:12:22 banghart Exp $
+# $Id: lonmeta.pm,v 1.183 2006/10/16 21:39:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -469,7 +469,7 @@
 	($type eq 'sequsage_list') ||
 	($type eq 'dependencies')) {
 	return '<font size="-1"><ul>'.join("\n",map {
-            my $url = &Apache::lonnet::clutter($_);
+            my $url = &Apache::lonnet::clutter_with_no_wrapper($_);
             my $title = &Apache::lonnet::gettitle($url);
             if ($title eq '') {
                 $title = 'Untitled';
@@ -829,8 +829,7 @@
     # displayed url
     my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/);
     $uri=~s/\.meta$//;
-    my $disuri=&Apache::lonnet::clutter($uri);
-    $disuri=~s/^\/adm\/wrapper//;
+    my $disuri=&Apache::lonnet::clutter_with_no_wrapper($uri);
     # version
     my $versiondisplay='';
     if (!$uploaded) {