[LON-CAPA-cvs] cvs: loncom(version_2_3_X) /metadata_database searchcat.pl
albertel
lon-capa-cvs@mail.lon-capa.org
Wed, 03 Jan 2007 03:58:35 -0000
albertel Tue Jan 2 22:58:35 2007 EDT
Modified files: (Branch: version_2_3_X)
/loncom/metadata_database searchcat.pl
Log:
- backport 1.72
Index: loncom/metadata_database/searchcat.pl
diff -u loncom/metadata_database/searchcat.pl:1.70 loncom/metadata_database/searchcat.pl:1.70.2.1
--- loncom/metadata_database/searchcat.pl:1.70 Sun Dec 10 19:32:24 2006
+++ loncom/metadata_database/searchcat.pl Tue Jan 2 22:58:34 2007
@@ -2,7 +2,7 @@
# The LearningOnline Network
# searchcat.pl "Search Catalog" batch script
#
-# $Id: searchcat.pl,v 1.70 2006/12/11 00:32:24 albertel Exp $
+# $Id: searchcat.pl,v 1.70.2.1 2007/01/03 03:58:34 albertel 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});