Index: openacs-4/packages/lors-central/tcl/lors-central-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/tcl/lors-central-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lors-central/tcl/lors-central-procs.tcl 9 Feb 2009 03:57:30 -0000 1.4
+++ openacs-4/packages/lors-central/tcl/lors-central-procs.tcl 4 Apr 2018 20:29:27 -0000 1.5
@@ -41,7 +41,7 @@
@check_inst Set it to "t" if you want to check if the user_id that watch's this page is an dotlrn
instructor.
} {
- if { ![info exist user_id] } {
+ if { ![info exists user_id] } {
set user_id [ad_conn user_id]
}
set package_id [ad_conn package_id]
@@ -928,7 +928,7 @@
set item_id [lindex $item 0]
set indent [expr [lindex $item 1] + 1]
db_foreach get_items { } {
- if { ![info exist items_array($ims_item_id)] } {
+ if { ![info exists items_array($ims_item_id)] } {
lappend items_list [list $ims_item_id $indent]
set items_array($ims_item_id) $indent
incr count
Index: openacs-4/packages/lors-central/www/change-lo-version.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/change-lo-version.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lors-central/www/change-lo-version.tcl 31 May 2005 22:57:22 -0000 1.2
+++ openacs-4/packages/lors-central/www/change-lo-version.tcl 4 Apr 2018 20:29:27 -0000 1.3
@@ -1,6 +1,6 @@
ad_page_contract {
- Change the live revision to revision_id
-
+ Change the live revision to revision_id
+
@author Miguel Marin (miguelmarin@viaro.net)
@author Viaro Networks www.viaro.net
@creation_date 28-03-2005
@@ -15,7 +15,7 @@
# Checking privilege over lors-central
lors_central::check_permissions
-if { ![info exist name] } {
+if { ![info exists name] } {
set name [db_string get_name { select item_title from ims_cp_items where ims_item_id = :ims_item_id }]
}
@@ -35,4 +35,4 @@
}
}
-ad_returnredirect "one-learning-object?ims_item_id=$ims_item_id&man_id=$man_id&name=$name"
\ No newline at end of file
+ad_returnredirect "one-learning-object?ims_item_id=$ims_item_id&man_id=$man_id&name=$name"
Index: openacs-4/packages/lors-central/www/course-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-add-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lors-central/www/course-add-2.tcl 31 May 2005 22:57:22 -0000 1.2
+++ openacs-4/packages/lors-central/www/course-add-2.tcl 4 Apr 2018 20:29:27 -0000 1.3
@@ -30,7 +30,7 @@
lors_central::check_permissions
# To support versions
-if { ![info exist man_id] } {
+if { ![info exists man_id] } {
set man_id ""
}
Index: openacs-4/packages/lors-central/www/course-dotlrn-assoc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-dotlrn-assoc.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lors-central/www/course-dotlrn-assoc.tcl 9 Feb 2009 03:57:30 -0000 1.4
+++ openacs-4/packages/lors-central/www/course-dotlrn-assoc.tcl 4 Apr 2018 20:29:27 -0000 1.5
@@ -14,7 +14,7 @@
set title [_ lors-central.associate_to]
# Get the item_id that the manifest_id has associated
-if { ![info exist item_id] } {
+if { ![info exists item_id] } {
set item_id [lors_central::get_item_id -revision_id $man_id]
set context [list [list "one-course-associations?man_id=$man_id" [_ lors-central.one_course_assoc]] \
[_ lors-central.associate_to]]
Index: openacs-4/packages/lors-central/www/course-versions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-versions.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lors-central/www/course-versions.tcl 31 May 2005 22:57:22 -0000 1.2
+++ openacs-4/packages/lors-central/www/course-versions.tcl 4 Apr 2018 20:29:27 -0000 1.3
@@ -13,7 +13,7 @@
lors_central::check_permissions
-if { ![info exist item_id ] } {
+if { ![info exists item_id ] } {
set item_id [lors_central::get_item_id -revision_id $man_id]
set context [list [list "one-course?man_id=$man_id" \
[_ lors-central.one_course]] [_ lorsm.lt_one_course_versions]]
Index: openacs-4/packages/lors-central/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lors-central/www/index.tcl 31 May 2005 22:57:22 -0000 1.2
+++ openacs-4/packages/lors-central/www/index.tcl 4 Apr 2018 20:29:27 -0000 1.3
@@ -19,7 +19,7 @@
# To search courses
-if { [info exist keyword] } {
+if { [info exists keyword] } {
if { [string equal $keyword [_ lors-central.please_type]] } {
set extra_query ""
} else {
Index: openacs-4/packages/lors-central/www/one-course-associations.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/one-course-associations.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lors-central/www/one-course-associations.tcl 22 Jan 2007 08:09:25 -0000 1.4
+++ openacs-4/packages/lors-central/www/one-course-associations.tcl 4 Apr 2018 20:29:27 -0000 1.5
@@ -15,7 +15,7 @@
lors_central::check_permissions
# Get the item_id that the manifest_id has associated
-if { ![info exist item_id] } {
+if { ![info exists item_id] } {
set item_id [lors_central::get_item_id -revision_id $man_id]
}
Index: openacs-4/packages/lors-central/www/one-course-views.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/one-course-views.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lors-central/www/one-course-views.tcl 31 May 2005 22:57:22 -0000 1.2
+++ openacs-4/packages/lors-central/www/one-course-views.tcl 4 Apr 2018 20:29:27 -0000 1.3
@@ -10,7 +10,7 @@
lors_central::check_permissions
# Get the item_id that the manifest_id has associated
-if { ![info exist item_id] } {
+if { ![info exists item_id] } {
set item_id [lors_central::get_item_id -revision_id $man_id]
}
Index: openacs-4/packages/lors-central/www/one-course.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/one-course.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lors-central/www/one-course.tcl 31 May 2005 22:57:22 -0000 1.2
+++ openacs-4/packages/lors-central/www/one-course.tcl 4 Apr 2018 20:29:27 -0000 1.3
@@ -5,13 +5,13 @@
man_id:integer,optional
}
-if { ![info exist item_id] && ![info exist man_id] } {
+if { ![info exists item_id] && ![info exists man_id] } {
ad_return_complaint 1 "You must pass either item_id or man_id"
} else {
- if { ![info exist man_id] } {
+ if { ![info exists man_id] } {
set man_id [content::item::get_live_revision -item_id $item_id]
}
- if { ![info exist item_id] } {
+ if { ![info exists item_id] } {
set item_id [lors_central::get_item_id -revision_id $man_id]
}
}
Index: openacs-4/packages/lors-central/www/lc-admin/grant-permissions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/lc-admin/grant-permissions.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lors-central/www/lc-admin/grant-permissions.tcl 31 May 2005 23:00:53 -0000 1.1
+++ openacs-4/packages/lors-central/www/lc-admin/grant-permissions.tcl 4 Apr 2018 20:29:27 -0000 1.2
@@ -14,7 +14,7 @@
# To search courses
-if { [info exist keyword] } {
+if { [info exists keyword] } {
if { [string equal $keyword [_ lors-central.please_type]] } {
set extra_query ""
} else {
Index: openacs-4/packages/lors-central/www/lc-admin/grant.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/lc-admin/grant.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lors-central/www/lc-admin/grant.tcl 31 May 2005 23:00:53 -0000 1.1
+++ openacs-4/packages/lors-central/www/lc-admin/grant.tcl 4 Apr 2018 20:29:27 -0000 1.2
@@ -15,7 +15,7 @@
lors_central::check_permissions -check_inst t
-if { [info exist class_com_id] } {
+if { [info exists class_com_id] } {
# Grant admin privilige to all users in this class or community
db_foreach get_all_members { } {
permission::grant -party_id $user_id -object_id $man_id -privilege "admin"
Index: openacs-4/packages/lors-central/www/lc-admin/revoke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/lc-admin/revoke.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lors-central/www/lc-admin/revoke.tcl 31 May 2005 23:00:53 -0000 1.1
+++ openacs-4/packages/lors-central/www/lc-admin/revoke.tcl 4 Apr 2018 20:29:27 -0000 1.2
@@ -15,7 +15,7 @@
lors_central::check_permissions -check_inst t
-if { [info exist class_com_id] } {
+if { [info exists class_com_id] } {
# Grant admin privilige to all users in this class or community
db_foreach get_all_members { } {
if { ![lors_central::owner -user_id $user_id -object_id $man_id] } {
Index: openacs-4/packages/imsld/tcl/imsld-condition-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-condition-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/imsld/tcl/imsld-condition-procs.tcl 13 Jan 2010 16:07:26 -0000 1.31
+++ openacs-4/packages/imsld/tcl/imsld-condition-procs.tcl 4 Apr 2018 20:29:49 -0000 1.32
@@ -17,7 +17,7 @@
-user_id
} {
} {
- if {![info exist user_id]} {
+ if {![info exists user_id]} {
set user_id [ad_conn user_id]
}
@@ -44,7 +44,7 @@
} {
upvar recursivity_count recursivity_count
- if {![info exist user_id]} {
+ if {![info exists user_id]} {
set user_id [ad_conn user_id]
}
set ifNodes [$condition selectNodes {*[local-name()='if']}]
@@ -415,7 +415,7 @@
-user_id
} {
} {
- if {![info exist user_id]} {
+ if {![info exists user_id]} {
set user_id [ad_conn user_id]
}
foreach expressionNode $expression {
@@ -648,7 +648,7 @@
} {
upvar recursivity_count recursivity_count
- if {![info exist user_id]} {
+ if {![info exists user_id]} {
set user_id [ad_conn user_id]
}
ns_log Debug "statement::execute with user_id: $user_id"
Index: openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl 28 Mar 2018 23:36:17 -0000 1.3
+++ openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl 4 Apr 2018 20:29:49 -0000 1.4
@@ -73,7 +73,7 @@
where gt.gsi_trigger_id=gfu.gsi_trigger_id and
gt.trigger_type=:trigger
}]
- if {[info exist run_id]} {
+ if {[info exists run_id]} {
set services_in_run [imsld::gsi::get_services_in_run -run_id $run_id]
if {[llength $full_actions_list] && [llength $services_in_run]} {
set actions_list [db_list get_matching_actions "
@@ -839,7 +839,7 @@
@param gservice_id "The service_id to be configured"
} {
- if {![info exist gservice_id]} {
+ if {![info exists gservice_id]} {
#FIXME:we can obtain gservice_id because all of them belongs to the same service, obviously there's only one service
#what happens when more than a service appear?
#just an idea (I have no time to think more on this): a db_list and a foreach can solve the problem
@@ -851,7 +851,7 @@
group by gservice_id"
}
- if {![info exist multiplicity]} {
+ if {![info exists multiplicity]} {
db_1row get_service_multiplicity {
select c.multiplicity as multiplicity
from imsld_gsi_services s,
@@ -861,7 +861,7 @@
}
}
- if {![info exist plugin_URI]} {
+ if {![info exists plugin_URI]} {
db_1row get_plugin_URI {
select plugin_uri as plugin_URI
from imsld_gsi_service_status
@@ -897,10 +897,10 @@
Receive a node external-value dom node and a run_id and call the proper plugin to obtain the value from the service.
The meaning of the attributes depends on the handler plugin
} {
- if {![info exist user_id]} {
+ if {![info exists user_id]} {
set user_id [ad_conn user_id]
}
- if {![info exist gservice_id]} {
+ if {![info exists gservice_id]} {
#Given the serviceref, whe can obtain the service_id, since we also have the run_id
#Note: there can be more than one service with the same identifier (form different UoLs),
# so the run_id is used to guarantee uniqueness
@@ -913,7 +913,7 @@
}
}
- if {![info exist multiplicity]} {
+ if {![info exists multiplicity]} {
db_1row get_service_multiplicity {
select c.multiplicity as multiplicity
from imsld_gsi_services s,
@@ -923,7 +923,7 @@
}
}
- if {![info exist plugin_URI]} {
+ if {![info exists plugin_URI]} {
db_1row get_plugin_URI {
select plugin_uri as plugin_URI
from imsld_gsi_service_status
Index: openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl,v
diff -u -r1.85 -r1.86
--- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 29 Mar 2018 22:49:53 -0000 1.85
+++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 4 Apr 2018 20:29:49 -0000 1.86
@@ -718,7 +718,7 @@
# This callback gets the href of the imported content (if some package imported it)
#revoke permissions until first usage of resources
- if {[info exist acs_object_id]} {
+ if {[info exists acs_object_id]} {
permission::set_not_inherit -object_id $acs_object_id
}
@@ -1765,7 +1765,7 @@
}
#revoke read permissions until first usage
- if {[info exist acs_object_id]} {
+ if {[info exists acs_object_id]} {
permission::set_not_inherit -object_id $acs_object_id
}
return $acs_object_id
@@ -2124,7 +2124,7 @@
# an error happened, abort and return the list whit the error
return $item_list
}
- if { ![info exist role_id] } {
+ if { ![info exists role_id] } {
set role_id "";
}
# create the monitor service
Index: openacs-4/packages/imsld/tcl/imsld-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-procs.tcl,v
diff -u -r1.125 -r1.126
--- openacs-4/packages/imsld/tcl/imsld-procs.tcl 27 Mar 2018 17:08:50 -0000 1.125
+++ openacs-4/packages/imsld/tcl/imsld-procs.tcl 4 Apr 2018 20:29:49 -0000 1.126
@@ -4724,7 +4724,7 @@
@author Luis de la Fuente ValentÃn (lfuente@it.uc3m.es)
} {
- if {[info exist play_id] & ![info exist imsld_id]} {
+ if {[info exists play_id] & ![info exists imsld_id]} {
set imsld_id [db_string get_imsld_id_from_play {
select iii.item_id
from imsld_imsldsi iii,
Index: openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl 17 Jun 2009 08:00:01 -0000 1.19
+++ openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl 4 Apr 2018 20:29:50 -0000 1.20
@@ -39,7 +39,7 @@
#map role with group
set rel_id [relation_add imsld_role_group_rel $role_item_id $group_id]
#map group with his parent (composition_rel)
- if {[info exist parent_group_id] } {
+ if {[info exists parent_group_id] } {
relation_add composition_rel $parent_group_id $group_id
}
#map group with the run
@@ -272,7 +272,7 @@
Returns a list with all the roles_id from which the user are member. If run_id is given, restrict the list to the roles of the run.
} {
set roles_list [list]
- if {[info exist run_id]} {
+ if {[info exists run_id]} {
set roles_list [db_list get_user_roles_list {}]
} else {
set roles_list [db_list get_raw_user_roles_list {}]
@@ -287,7 +287,7 @@
Returns a list with all the users in a role. If run_id is given, restrict the list to the roles of the run.
} {
- if {[info exist run_id]} {
+ if {[info exists run_id]} {
set groups_list [db_list get_groups_in_run {
select ar1.object_id_two as groups
from acs_rels ar1,
@@ -334,7 +334,7 @@
} {
Returns the role_id which has a given ref in a run or imsld, 0 if no matches found.
} {
- if {[info exist imsld_id]} {
+ if {[info exists imsld_id]} {
if { [db_0or1row select_role_id_from_imsld {
select role_id
from imsld_roles ir,
@@ -345,7 +345,7 @@
}]} {
return $role_id
}
- } elseif { [info exist run_id] } {
+ } elseif { [info exists run_id] } {
if { [db_0or1row select_role_id_from_run {
select iri.role_id
from imsld_rolesi iri,
@@ -418,7 +418,7 @@
set role_item_id [content::revision::item_id -revision_id $role_id]
set rel_id [relation_add imsld_role_group_rel $role_item_id $group_id]
#map group with his parent (composition_rel)
- if {[info exist parent_group_id] } {
+ if {[info exists parent_group_id] } {
relation_add composition_rel $parent_group_id $group_id
}
#map group with the run
Index: openacs-4/packages/imsld/tcl/imsld-runtime-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-runtime-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/imsld/tcl/imsld-runtime-procs.tcl 28 Mar 2018 23:36:17 -0000 1.24
+++ openacs-4/packages/imsld/tcl/imsld-runtime-procs.tcl 4 Apr 2018 20:29:50 -0000 1.25
@@ -483,7 +483,7 @@
mark an environment as shown or hidden. NOTE: not recursively
} {
- if {![info exist user_id]} {
+ if {![info exists user_id]} {
set user_id [ad_conn user_id]
}
# according to the spec, the environments doesn't have any isvisible attribute
@@ -532,7 +532,7 @@
} {
mark an activity structure as show or hidden.
} {
- if {![info exist user_id]} {
+ if {![info exists user_id]} {
set user_id [ad_conn user_id]
}
Index: openacs-4/packages/imsld/www/admin/imsld-create-instance.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-create-instance.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/imsld/www/admin/imsld-create-instance.tcl 17 Apr 2008 17:17:54 -0000 1.6
+++ openacs-4/packages/imsld/www/admin/imsld-create-instance.tcl 4 Apr 2018 20:29:50 -0000 1.7
@@ -28,7 +28,7 @@
ad_script_abort
}
-if {[info exist parent_group_id] } {
+if {[info exists parent_group_id] } {
set new_instance [imsld::roles::create_instance -role_id $role -parent_group_id $parent_group_id -run_id $run_id]
ad_returnredirect [export_vars -base imsld-admin-roles {{role $role} {imsld_id $imsld_id} {run_id $run_id} {group_instance $new_instance}}]
} elseif { ![db_0or1row has_role_parent_p {}] } {
Index: openacs-4/packages/imsld/www/admin/imsld-role-members.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-role-members.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/imsld/www/admin/imsld-role-members.tcl 29 Oct 2009 11:09:59 -0000 1.12
+++ openacs-4/packages/imsld/www/admin/imsld-role-members.tcl 4 Apr 2018 20:29:50 -0000 1.13
@@ -35,7 +35,7 @@
set group_title [group::title -group_id $group_instance]
if {![string eq $group_instance "0"] && [db_0or1row has_role_parent_p {}]} {
- if {![info exist members_list]} {
+ if {![info exists members_list]} {
set members_list [db_list get_members_list_2 {}]
}
if {![llength $members_list]} {
@@ -49,7 +49,7 @@
} else {
- if {![info exist members_list]} {
+ if {![info exists members_list]} {
set members_list [db_list get_members_list {}]
}