Index: openacs-4/packages/acs-subsite/www/register/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/user-new.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/register/user-new.tcl	13 Mar 2002 23:16:31 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/register/user-new.tcl	15 Mar 2002 20:09:27 -0000	1.4
@@ -32,15 +32,7 @@
 }
 
 # we're going to ask this guy to register
-if { ! [db_0or1row find_person {
-    select parties.party_id as user_id,
-           persons.first_names,
-           persons.last_name
-    from parties,
-         persons
-    where parties.party_id = persons.person_id
-    and lower(parties.email) = lower(:email)
-} ] } {
+if { ! [db_0or1row find_person "" ] } {
     set user_id [db_nextval acs_object_id_seq]
     set first_names ""
     set last_name ""
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/register/user-new.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	13 Mar 2002 22:50:53 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	15 Mar 2002 20:09:27 -0000	1.11
@@ -505,7 +505,7 @@
     }
     if { [catch {
 	set files [split [string trim \
-		[exec [apm_gunzip_cmd] -q -c $file_path | [apm_tar_cmd] tf -] "\n" 2>/dev/null]]
+		[exec [apm_gunzip_cmd] -q -c $file_path | [apm_tar_cmd] tf - 2>/dev/null] "\n"]]
 	apm_callback_and_log $callback  "<li>Done. Archive is [format "%.1f" [expr { [file size $file_path] / 1024.0 }]]KB, with [llength $files] files.<li>"
     } errmsg] } {
 	apm_callback_and_log $callback "The follow error occured during the uncompression process: