Index: openacs-4/packages/lorsm/tcl/lorsm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	22 Apr 2004 03:58:09 -0000	1.1
+++ openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	4 May 2004 05:38:45 -0000	1.2
@@ -49,7 +49,53 @@
 	}
     }
 
+    ad_proc -public fix_href {
+	-item_title:required
+	-identifierref:required
+	-fs_package_id:required
+	-folder_id:required
+    } {
+	Function use to fix the HREF of resources.
+	It could be that the reference to a resource is outside the 
+	scope of the learning object (somewhere on the web) instead
+	of a file or resource in the course. 
 
+	Therefore, this function determines whether ther link to the
+	resource is within the course materials. If that is the case
+	it created the link to where the file is stored in the file-
+	storage. Otherwise, if the resource needs to be fetched from
+	the web (http://) then we use that href instead.
+	
+	@param item_title The title of the item in question
+	@param identifierref The resource's identifierref 
+	@param fs_package_id the file-storage package id
+	@param folder_id file-storage folder id
+	@author Ernie Ghiglione (ErnieG@mm.st)
+	
+    } {
+
+	if {![empty_string_p $identifierref]} {
+	    
+	    if {[regexp "http://" $identifierref]} {
+		
+		return "<a href=\"$identifierref\" target=\"body\">$item_title</a>"
+
+	    } else {
+
+		set url1 "[apm_package_url_from_id $fs_package_id]view/"
+		set url2 "[db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]/"
+		set url3 [lorsm::fix_url -url $identifierref]
+
+		set url "<a href=\"$url1$url2/$url3\" target=\"body\">$item_title</a>"
+
+		return $url
+	    }
+	
+	} else {
+	    return $item_title
+	}
+
+    }
 }
     
 
Index: openacs-4/packages/lorsm/www/delivery/toc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/Attic/toc.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/delivery/toc.tcl	22 Apr 2004 03:58:12 -0000	1.1
+++ openacs-4/packages/lorsm/www/delivery/toc.tcl	4 May 2004 05:37:51 -0000	1.2
@@ -37,7 +37,7 @@
 
     set table_extra_html { width="100%" }
     set table_def {
-	{ title "" "no_sort" "<td>$indent[if {![empty_string_p $identifierref]} {set href \"<a href='[apm_package_url_from_id $fs_package_id]view/[db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]/[lorsm::fix_url -url $identifierref]' target=body>$item_title</a>\"} else {set href $item_title}]</td>" }
+	{ title "" "no_sort" "<td>$indent[lorsm::fix_href -item_title $item_title -identifierref $identifierref -fs_package_id $fs_package_id -folder_id $folder_id]</td>" }
     }
 
     set table_item [concat $table_item [ad_table -Tmissing_text $missing_text  -Ttable_extra_html $table_extra_html blah {