| $org_title | $hasmetadata | "
@@ -161,64 +105,8 @@
}
set table_item [ad_table -Tmissing_text $missing_text -Textra_vars $table_extra_vars -Theader_row_extra "style=\"background-color: #e0e0e0; font-weight: bold;\" class=\"list-header\"" -Ttable_extra_html $table_extra_html blah {
- SELECT
- o.object_id,
- repeat(' ', (tree_level(tree_sortkey) - :indent)* 3) as indent,
- i.ims_item_id as item_id,
- i.item_title as item_title,
- i.hasmetadata,
- i.org_id,
- case
- when i.isshared = 'f' then (
- 'false'
- )
- else 'true'
- end as isshared,
- case
- when i.identifierref <> '' then (
- SELECT
- res.href
- FROM
- ims_cp_items_to_resources i2r,
- ims_cp_resources res
- WHERE
- i2r.res_id = res.res_id
- AND
- i2r.ims_item_id = i.ims_item_id
-)
- else ''
- end as identifierref,
- case
- when i.identifierref <> '' then (
- SELECT
- res.type
- FROM
- ims_cp_items_to_resources i2r,
- ims_cp_resources res
- WHERE
- i2r.res_id = res.res_id
- AND
- i2r.ims_item_id = i.ims_item_id
-)
- else ''
- end as type,
- m.fs_package_id,
- m.folder_id,
- m.course_name
- FROM
- acs_objects o, ims_cp_items i, ims_cp_manifests m
- WHERE
- o.object_type = 'ims_item_object'
- AND
- i.org_id = :org_id
- AND
- o.object_id = i.ims_item_id
- AND
- m.man_id = :man_id
- ORDER BY
- tree_sortkey, object_id
+
-
} $table_def]
append orgs_list "$table_item"
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/shared/course-info.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/tracking/index-oracle.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/tracking/index-postgresql.xql'.
Fisheye: No comparison available. Pass `N' to diff?
Index: openacs-4/packages/lorsm/www/tracking/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking/Attic/index.tcl,v
diff -u -r1.6 -r1.6.4.1
--- openacs-4/packages/lorsm/www/tracking/index.tcl 17 May 2005 17:03:43 -0000 1.6
+++ openacs-4/packages/lorsm/www/tracking/index.tcl 5 Dec 2006 10:51:38 -0000 1.6.4.1
@@ -67,22 +67,7 @@
}
}
- db_multirow -extend { ims_md_id } student_track select_students {
- select
- user_id as student_name,
- start_time,
- end_time
- from
- lorsm_student_track
- where
- community_id = :community_id
- and
- course_id = :man_id
- and
- end_time NOTNULL
- order by
- start_time desc
- } {
+ db_multirow -extend { ims_md_id } student_track select_students1 {} {
set ims_md_id $man_id
}
@@ -96,7 +81,7 @@
viewer_name {
label "[_ lorsm.Viewed_By]"
}
- views {
+ views_count {
label "[_ lorsm.Total_Views]"
}
last_viewed {
@@ -111,20 +96,7 @@
set extra_where ""
}
- db_multirow -extend {viewer_name} object_views objects_views "
- select v.*,
- i.item_title as title
- from views v,
- ims_cp_items i,
- ims_cp_organizations o
- where
- i.ims_item_id = v.object_id
- and
- i.org_id = o.org_id
- and
- o.man_id = :man_id
- $extra_where
- " {
+ db_multirow -extend {viewer_name} object_views objects_views1 "" {
set viewer_name [acs_user::get_element -user_id $viewer_id -element name]
}
@@ -155,22 +127,7 @@
}
}
- db_multirow -extend { ims_md_id } student_track select_students {
- select
- user_id as student_name,
- count(*) as counter,
- sum(end_time - start_time) as time_spent
- from
- lorsm_student_track
- where
- community_id = :community_id
- and
- course_id = :man_id
- and
- end_time NOTNULL
- group by user_id
-
- } {
+ db_multirow -extend { ims_md_id } student_track select_students2 {} {
set ims_md_id $man_id
}
@@ -181,7 +138,7 @@
title {
label "[_ lorsm.Title_1]"
}
- views {
+ views_count {
label "[_ lorsm.Total_Views]"
}
unique_views {
@@ -198,19 +155,6 @@
set extra_where ""
}
- db_multirow object_views objects_views "
- select v.*,
- i.item_title as title
- from view_aggregates v,
- ims_cp_items i,
- ims_cp_organizations o
- where
- i.ims_item_id = v.object_id
- and
- i.org_id = o.org_id
- and
- o.man_id = :man_id
- $extra_where
- "
+ db_multirow object_views objects_views2 ""
}
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/tracking/index.xql'.
Fisheye: No comparison available. Pass `N' to diff?
|