Index: openacs-4/packages/lorsm/www/delivery-scorm/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-scorm/index.tcl,v
diff -u -N
--- openacs-4/packages/lorsm/www/delivery-scorm/index.tcl	26 May 2005 21:13:32 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,70 +0,0 @@
-# packages/lorsm/www/delivery4/index.tcl
-
-ad_page_contract {
-    
-    New index file using new tree menu
-    
-    @author Roel Canicula (roelmc@info.com.ph)
-    @creation-date 2004-08-07
-    @arch-tag: 64f3397b-4558-4298-a995-fc63e472f2a1
-    @cvs-id $Id: index.tcl,v 1.1 2005/05/26 21:13:32 micheles Exp $
-} {
-    menu_off:integer,notnull,optional
-    man_id:integer,notnull
-    ims_id:integer,notnull,optional
-} -properties {
-} -validate {
-} -errors {
-}
-
-set debuglevel 0
-ad_set_client_property lorsm debuglevel $debuglevel
-
-set ses_renew    [ad_parameter -package_id [ad_acs_kernel_id] SessionRenew security 300]
-
-if { ! [info exists menu_off] } {
-	set menu_off 0
-}
-
-if { [info exists ims_id] } {
-    set item_id $ims_id
-    ad_set_client_property lorsm ims_id $ims_id    
-    set body_url [export_vars -base "record-view" -url {item_id man_id}]
-}
-
-# Get the course name
-if {[db_0or1row manifest "
-    select 
-         cp.course_name,
-	   cp.fs_package_id
-    from
-           ims_cp_manifests cp
-    where 
-	   cp.man_id = :man_id
-           and  cp.parent_man_id = 0"]} {
-    
-    # Course Name
-    if {[empty_string_p $course_name]} {
-	set course_name "No Course Name"
-    } 
-} else {
-    set course_name "No Course Name"
-}
-
-# Student tracking
-set package_id [ad_conn package_id]
-set community_id [dotlrn_community::get_community_id]
-set user_id [ad_conn user_id]
-ad_set_client_property lorsm currentcourse $man_id
-
-
-if {[lorsm::track::istrackable -course_id $man_id -package_id $package_id]} {
-    set track_id [lorsm::track::new \
-		      -user_id $user_id \
-		      -community_id $community_id \
-		      -course_id $man_id]
-    ad_set_client_property lorsm studenttrack $track_id
-} else {
-    set track_id 0
-    ad_set_client_property lorsm studenttrack 0
-}