version 1.11, 2006/02/07 04:54:17
|
version 1.12, 2006/02/07 05:08:21
|
Line 335 sub instcode_format () {
|
Line 335 sub instcode_format () {
|
return $outcome; |
return $outcome; |
} |
} |
|
|
|
############################### |
|
# sub institutional_photos |
|
# |
|
# Called when automated enrollment manager is used to update student photos. |
|
# |
|
# Incoming data: six arguments |
|
# (a) $dom (domain) |
|
# (b) $crs (LONCAPA course number) |
|
# (c) $affiliates: a reference to a hash with the keys set to the |
|
# institutional course IDs for the course. |
|
# (d) $result: a reference to a hash which will return usernames |
|
# of students (& separated) in following categories (the keys): |
|
# new, update, missing, same, deleted, noid, nouser. The list |
|
# includes those students for whom the result of the modification |
|
# process was either addition of a new photo. update of an |
|
# existing photo, photo was found to be missing from institution's |
|
# data store, photo used is same as before, or photo was |
|
# deleted from storage on LON-CAPA server housing student's |
|
# information, no student ID was available. |
|
|
|
# (e) $action: the type of action needed. (e.g., update, delete); |
|
# (f) $students: a reference to a hash with the keys set to student |
|
# usernames and domains in the form username:domain, and values set |
|
# to the studentID, if action is required for specific students. |
|
# |
|
# returns 1 parameter: 'ok' if no processing errors. |
|
# other course or student specific values can be stored as values |
|
# in the appropriate referenced hashes. |
|
############################### |
|
|
|
sub institutional_photos { |
|
my ($dom,$crs,$affiliates,$result,$action,$students) = @_; |
|
my $outcome = 'ok'; |
|
return $outcome; |
|
} |
|
|
|
############################### |
|
# sub photo_permission |
|
# |
|
# Incoming data: three arguments |
|
# (a) $dom (domain) |
|
# (b) $perm_reqd: a reference to a a scalar that is either 'yes' |
|
# if a course owner must indicate acceptance of conditions of use, |
|
# 'no' otherwise. |
|
# (c) $conditions: the text of the conditions of use. |
|
# |
|
# returns 1 parameter: 'ok' if no processing errors. |
|
# $$perm_reqd is set to 'yes' or 'no' |
|
# $$agreement is set to conditions of use - plain text string |
|
# which will be displayed in a textarea in a web form. |
|
############################### |
|
|
|
sub photo_permission { |
|
my ($dom,$perm_reqd,$conditions) = @_; |
|
$$perm_reqd = 'no'; |
|
$$conditions = ''; |
|
my $outcome = 'ok'; |
|
return $outcome; |
|
} |
|
|
|
|
|
############################### |
|
# sub manager_photo_update |
|
# |
|
# Incoming data: one argument |
|
# (a) $dom (domain) |
|
# |
|
# returns 2 parameters: update (0 or 1), and comment. |
|
# Called by automated enrollment manager, to determine |
|
# whether "Update Student photos" button will be available, |
|
# and if so, the message (plain text string) that will be displayed |
|
# with the button. |
|
############################### |
|
|
|
sub manager_photo_update { |
|
my ($dom) = @_; |
|
my $update = 0; |
|
my $comment = ''; |
|
return ($update,$comment); |
|
} |
|
|
1; |
1; |