85,90c80,83
< #SVEN - if topic exists, need to append this stuff to that topic
<     if(( $wikiName ) &&
< #       (  ( &wiki::topicExists( $webName,  $wikiName ) ) ||
<           (htpasswdExistUser( $wikiName )))
< #         ) ) 
< 	{
---
>     if(  ( $wikiName ) 
>       && (  ( &wiki::topicExists( $webName,  $wikiName ) )
>          || ( htpasswdExistUser( $wikiName ) ) 
>          ) ) {
159,184d151
< 	else
< 	{#users topic exists - should append to that page...
< 		my $textOld = &wiki::readWebTopic($wiki::mainWebname, $wikiName);
< 		if ( $textOld =~ /.*EDITBOXWIDTH.*/g )
< 		{#could update the options ...
< 		}
< 		else
< 		{
< 			$text = &wiki::readTemplate( "register" );
< 			( $before, $after) = split( /%FORMDATA%/, $text );
< 			for( $x = 0; $x < $formLen; $x++ ) {
< 				$name = $formDataName[$x];
< 				$value = $formDataValue[$x];
< 				$value =~ s/[\n\r]/ /go;
< 				if( ! (    ( $name eq "Wiki Name" )
< 						|| ( $name eq "Password" )
< 						|| ( $name eq "Confirm" ) ) ) {
< 					$before .= "   * $name\: $value\n";
< 				}
< 			}
< 			$text = "$before$after";
< 			$text =~ s/ {3}/\t/go;
< 			$text = $textOld."\n\n----\n\n".$text;
< 			&wiki::saveTopic( $wikiName, $text, "" );
< 		}
< 	}
195c162
<     print $query->redirect( "$wiki::urlHost$scriptUrlPath/oops$scriptSuffix/$webName/$wikiName?template=oopsregthanks&param1=$emailAddress" );
---
>     print $query->redirect( "$scriptUrlPath/oops$scriptSuffix/$webName/$wikiName?template=oopsregthanks&param1=$emailAddress" );
288d254
<