[LON-CAPA-cvs] cvs: loncom /metadata_database searchcat.pl

[raeburn]

raeburn		Mon Jan  1 16:23:11 2007 EDT

  Modified files:              
    /loncom/metadata_database	searchcat.pl 
  Log:
  Extra / in fullpath and a typo.
  
  
Index: loncom/metadata_database/searchcat.pl
diff -u loncom/metadata_database/searchcat.pl:1.71 loncom/metadata_database/searchcat.pl:1.72
--- loncom/metadata_database/searchcat.pl:1.71	Fri Dec 29 14:15:27 2006
+++ loncom/metadata_database/searchcat.pl	Mon Jan  1 16:23:10 2007
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # searchcat.pl "Search Catalog" batch script
 #
-# $Id: searchcat.pl,v 1.71 2006/12/29 19:15:27 raeburn Exp $
+# $Id: searchcat.pl,v 1.72 2007/01/01 21:23:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -241,11 +241,11 @@
             my ($group,$url,$fullpath);
             if ($is_course) {
                 ($group, my ($path)) = ($file =~ /^(\w+)(\/.+)$/);
-                $fullpath = $pathstart.'/groups/'.$group.'/portfolio/'.$path;
+                $fullpath = $pathstart.'/groups/'.$group.'/portfolio'.$path;
                 $url = $urlstart.'/groups/'.$group.'/portfolio'.$path;
             } else {
                 $fullpath = $pathstart.'/portfolio'.$file;
-                $url .= $urlstart.'/portfolio'.$file;
+                $url = $urlstart.'/portfolio'.$file;
             }
             if (ref($access{$file}) eq 'HASH') {
                 &process_portfolio_access_data($url,$access{$file});