Author: MeredithLesly
Date: 2006-03-01 10:34:27 -0800 (Wed, 01 Mar 2006)
New Revision: 9024
Modified:
twiki/branches/DEVELOP/lib/TWiki/UI/Register.pm
Log:
Item1759: Adds optional customised user templates to bulkregistration
Modified: twiki/branches/DEVELOP/lib/TWiki/UI/Register.pm
===================================================================
--- twiki/branches/DEVELOP/lib/TWiki/UI/Register.pm 2006-03-01 17:14:53 UTC (rev 9023)
+++ twiki/branches/DEVELOP/lib/TWiki/UI/Register.pm 2006-03-01 18:34:27 UTC (rev 9024)
@@ -271,6 +271,7 @@
my $doOverwriteTopics = defined $settings->{doOverwriteTopics} ||
throw Error::Simple( 'No doOverwriteTopics' );
my $log;
+
#-- call to the registrationHandler (to amend fields) should
# really happen in here.
@@ -281,6 +282,9 @@
$row->{LoginName}."\n";
}
+ my $template = $row->{Template};
+ $template ||= 'NewUserTemplate';
+
#-- Ensure every required field exists
# NB. LoginName is OPTIONAL
my @requiredFields = qw(WikiName FirstName LastName);
@@ -303,7 +307,7 @@
$row->{Email}, $row->{WikiName} );
if( $doOverwriteTopics or !$session->{store}->topicExists( $row->{webName}, $row->{WikiName} ) ) {
- $log .= _newUserFromTemplate($session, 'NewUserTemplate', $row);
+ $log .= _newUserFromTemplate($session, $template, $row);
} else {
$log .= $b.' Not writing topic '.$row->{WikiName}."\n";
}
|