X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Felements%2Fcontact.html;h=850c2540d6156c882c95446c2819bd984050b923;hb=31dadb4ddfbf29d7814f47a02142795f47a208ad;hp=ab14dfbe81aa0f5787b1c19b1bf8c967d510266c;hpb=b2fd002f3285b70311642f8ff0025598d42bd16e;p=freeside.git diff --git a/httemplate/elements/contact.html b/httemplate/elements/contact.html index ab14dfbe8..850c2540d 100644 --- a/httemplate/elements/contact.html +++ b/httemplate/elements/contact.html @@ -40,7 +40,9 @@ % } % } elsif ( $field eq 'emailaddress' ) { % $value = join(', ', map $_->emailaddress, $contact->contact_email); -% } elsif ( $field eq 'selfservice_access' || $field eq 'comment' ) { +% } elsif ( $field eq 'selfservice_access' +% or $field eq 'comment' +% or $field eq 'invoice_dest' ) { % $value = $X_contact->get($field); % } else { % $value = $contact->get($field); @@ -48,17 +50,34 @@ % if ( $field eq 'selfservice_access' ) { + + <& /elements/change_password.html, + 'contact_num' => $curr_value, + 'custnum' => $opt{'custnum'}, + 'curr_value' => '', + 'no_label_display' => '1', + 'noformtag' => '1', + 'pre_pwd_field_label' => $id.'_', + &> + % } elsif ( $field eq 'invoice_dest' ) { % my $curr_value = $cgi->param($name . '_' . $field); % $curr_value = $value if !defined($curr_value); @@ -92,6 +111,7 @@ my( %opt ) = @_; my $conf = new FS::Conf; + my $self_base_url = $conf->config('selfservice_server-base_url'); my $name = $opt{'element_name'} || $opt{'field'} || 'contactnum'; @@ -124,12 +144,17 @@ if ( $curr_value ) { 'contactnum' => $curr_value, 'prospectnum' => $opt{'prospectnum'}, }); + $opt{'for_prospect'} = 1; } else { die 'neither custnum nor prospectnum specified'; } } else { $contact = new FS::contact {}; - $X_contact = new FS::cust_contact; #arbitrary, it could be prospect_contact + if ($opt{'for_prospect'}) { + $X_contact = new FS::prospect_contact; + } else { + $X_contact = new FS::cust_contact; + } } my %size = ( 'title' => 12 ); @@ -138,11 +163,14 @@ tie my %label, 'Tie::IxHash', 'first' => 'First name', 'last' => 'Last name', 'title' => 'Title/Position', - 'emailaddress' => 'Email', - 'invoice_dest' => 'Send invoices', - 'selfservice_access' => 'Self-service' + 'emailaddress' => 'Email' ; +unless ($opt{'for_prospect'}) { + $label{'invoice_dest'} = 'Send invoices'; + $label{'selfservice_access'} = 'Self-service'; +} + my $first = 0; foreach my $phone_type ( qsearch({table=>'phone_type', order_by=>'weight'}) ) { next if $phone_type->typename =~ /^(Home|Fax)$/; @@ -155,4 +183,7 @@ $label{'comment'} = 'Comment'; my @fields = $opt{'name_only'} ? qw( first last ) : keys %label; +my $pwd_change_label = 'Change Password'; +$pwd_change_label = 'Setup Password' unless $contact->_password; +