Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn/www/class-new-2.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn/www/class-new.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn/www/class-new.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/dotlrn/www/student-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/student-list.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/student-list.tcl	9 Oct 2001 15:02:49 -0000	1.1
+++ openacs-4/packages/dotlrn/www/student-list.tcl	7 Nov 2001 18:49:41 -0000	1.2
@@ -26,7 +26,6 @@
 template::multirow create students user_id first_names last_name email
 
 foreach student $list_of_students {
-    ns_log Notice "one student - $student"
     template::multirow append students [lindex $student 1] [lindex $student 2] [lindex $student 3] [lindex $student 4]
 }
 
Index: openacs-4/packages/dotlrn/www/admin/class-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-new-2.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/class-new-2.tcl	7 Nov 2001 18:49:41 -0000	1.1
@@ -0,0 +1,16 @@
+
+ad_page_contract {
+    Create a New Class - processing
+
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-08-20
+} {
+    class_key:trim
+    class_pretty_name:trim
+    description
+}
+
+set class_key [dotlrn_class::new -description $description $class_key $class_pretty_name]
+
+ns_returnredirect ./
+
Index: openacs-4/packages/dotlrn/www/admin/class-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-new.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/class-new.adp	7 Nov 2001 18:49:41 -0000	1.1
@@ -0,0 +1,20 @@
+<master src="master">
+<property name="title">dotLRN New Class</property>
+
+<form action="class-new-2" method=POST>
+<table border=0>
+<tr>
+<td>Class Key (a short name, no spaces):</td>
+<td><INPUT TYPE=text name=class_key size=50></td>
+</tr>
+<tr>
+<td>Class Pretty Name:</td>
+<td><INPUT TYPE=text name=class_pretty_name size=50></td>
+</tr>
+<tr>
+<td valign=top>Description:</td>
+<td><textarea name=description cols=50 rows=5 wrap=soft></textarea></td>
+</tr>
+</table>
+<INPUT type=submit value="Create Class">
+</form>
Index: openacs-4/packages/dotlrn/www/admin/class-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-new.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	7 Nov 2001 18:49:41 -0000	1.1
@@ -0,0 +1,12 @@
+
+ad_page_contract {
+    Create a New Class - input form
+
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2001-08-20
+} {
+}
+
+
+ad_return_template
+