Index: openacs-4/packages/dotlrn/dotlrn.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/dotlrn.info,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/dotlrn/dotlrn.info 22 Jan 2002 03:37:49 -0000 1.36
+++ openacs-4/packages/dotlrn/dotlrn.info 22 Jan 2002 19:59:31 -0000 1.37
@@ -39,6 +39,7 @@
+
@@ -64,6 +65,7 @@
+
@@ -239,9 +241,6 @@
-
-
-
@@ -256,6 +255,10 @@
+
+
+
+
Index: openacs-4/packages/dotlrn/sql/oracle/dotlrn-user-extension-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/Attic/dotlrn-user-extension-create.sql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/sql/oracle/dotlrn-user-extension-create.sql 22 Jan 2002 19:59:31 -0000 1.1
@@ -0,0 +1,78 @@
+
+--
+-- The dotLRN extension to user data notifications
+-- copyright 2002, OpenForce
+-- distributed under GPL v2.0
+--
+--
+-- ben@openforce.net
+--
+-- 01/22/2002
+--
+
+
+declare
+ foo integer;
+begin
+ -- create the implementation
+ foo := acs_sc_impl.new (
+ 'UserData',
+ 'dotlrn_user_extension',
+ 'dotlrn_user_extension'
+ );
+
+ -- add all the hooks
+
+ -- UserNew
+ foo := acs_sc_impl.new_alias (
+ 'UserData',
+ 'dotlrn_user_extension',
+ 'UserNew',
+ 'dotlrn_user_extension::user_new',
+ 'TCL'
+ );
+
+ -- UserNew
+ foo := acs_sc_impl.new_alias (
+ 'UserData',
+ 'dotlrn_user_extension',
+ 'UserApprove',
+ 'dotlrn_user_extension::user_approve',
+ 'TCL'
+ );
+
+ -- UserNew
+ foo := acs_sc_impl.new_alias (
+ 'UserData',
+ 'dotlrn_user_extension',
+ 'UserDeapprove',
+ 'dotlrn_user_extension::user_deapprove',
+ 'TCL'
+ );
+
+ -- UserNew
+ foo := acs_sc_impl.new_alias (
+ 'UserData',
+ 'dotlrn_user_extension',
+ 'UserModify',
+ 'dotlrn_user_extension::user_modify',
+ 'TCL'
+ );
+
+ -- UserNew
+ foo := acs_sc_impl.new_alias (
+ 'UserData',
+ 'dotlrn_user_extension',
+ 'UserDelete',
+ 'dotlrn_user_extension::user_delete',
+ 'TCL'
+ );
+
+ -- Add the binding
+ acs_sc_binding.new (
+ contract_name => 'UserData',
+ impl_name => 'dotlrn_user_extension'
+ );
+end;
+/
+show errors
Index: openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl 22 Jan 2002 19:59:31 -0000 1.1
@@ -0,0 +1,82 @@
+
+#
+# Procs for DOTLRN user extension
+# Copyright 2002 OpenForce, inc.
+# Distributed under the GNU GPL v2
+#
+# Jan 22, 2002
+#
+
+ad_library {
+
+ Procs for dotLRN user extension
+
+ @author ben@openforce.net
+ @creation-date 2002-01-22
+
+}
+
+namespace eval dotlrn_user_extension {
+
+ ad_proc -public automatic_email_patterns {} {
+ Returns a list of email patterns for which a user is automatically made into a dotLRN user
+ } {
+ set param [ad_parameter -package_id [dotlrn::get_package_id] auto_dotlrn_user_email_patterns]
+
+ return [split $param ","]
+ }
+
+ ad_proc -public user_new {
+ user_id
+ } {
+ A new user has been added: process dotLRN specific stuff
+ } {
+ # Get the user's email address
+ set email [cc_email_from_party $user_id]
+
+ # Loop through patterns
+ foreach pattern [automatic_email_patterns] {
+ ns_log Notice "DOTLRN: checking if $email matches $pattern"
+ if {[string match $pattern $email]} {
+ ns_log Notice "DOTLRN: YES IT DOES!"
+ # create the dotLRN user now
+ dotlrn::user_add -rel_type dotlrn_full_user_rel -user_id $user_id
+
+ break
+ }
+ }
+ }
+
+ ad_proc -public user_approve {
+ user_id
+ } {
+ A user has been approved: process dotLRN specific stuff
+ } {
+
+ }
+
+ ad_proc -public user_deapprove {
+ user_id
+ } {
+ A user has been deapproved
+ } {
+
+ }
+
+ ad_proc -public user_modify {
+ user_id
+ } {
+ A user has been modified
+ } {
+
+ }
+
+ ad_proc -public user_delete {
+ user_id
+ } {
+ A user is being deleted
+ } {
+
+ }
+
+}