X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Felements%2Frandom_pass.html;h=778aa20e64e00eb54418a6c15a35e22c3eaccbbd;hb=833cfe5c9938d33c3e6b97ed610c25a7afa6eb04;hp=b215b77d998b8fa0022df2caf342d1e72f95ddca;hpb=a5e611f5ffc045a59fee9e1b03f8ac79ef794d00;p=freeside.git
diff --git a/httemplate/elements/random_pass.html b/httemplate/elements/random_pass.html
index b215b77d9..778aa20e6 100644
--- a/httemplate/elements/random_pass.html
+++ b/httemplate/elements/random_pass.html
@@ -1,17 +1,37 @@
-
+
<%init>
my $id = shift;
my $label = shift || 'Generate';
+my $submitid = shift;
+my $pw_set = join('', FS::Password_Mixin->pw_set);
+my $lower = join('', $pw_set =~ /[[:lower:]]/g);
+my $upper = join('', $pw_set =~ /[[:upper:]]/g);
+my $digit = join('', $pw_set =~ /[[:digit:]]/g);
+my $punct = join('', $pw_set =~ /[[:punct:]]/g);
+
%init>