View | Details | Raw Unified | Return to bug 8897
Collapse All | Expand All

(-)a/koha-tmpl/opac-tmpl/prog/en/modules/opac-userupdate.tt (-3 / +3 lines)
Lines 43-50 Link Here
43
<li><label for="mobile">Secondary phone:</label> <input id="mobile" type="text" value="[% BORROWER_INF.mobile %]"  name="mobile" /></li>
43
<li><label for="mobile">Secondary phone:</label> <input id="mobile" type="text" value="[% BORROWER_INF.mobile %]"  name="mobile" /></li>
44
<li><label for="phonepro">Other phone:</label> <input id="phonepro"  type="text" value="[% BORROWER_INF.phonepro %]"  name="phonepro" /></li>
44
<li><label for="phonepro">Other phone:</label> <input id="phonepro"  type="text" value="[% BORROWER_INF.phonepro %]"  name="phonepro" /></li>
45
<li><label for="fax">Fax:</label> <input id="fax" type="text" value="[% BORROWER_INF.fax %]"  name="fax" /></li>
45
<li><label for="fax">Fax:</label> <input id="fax" type="text" value="[% BORROWER_INF.fax %]"  name="fax" /></li>
46
<li><label for="emailaddress">Primary email:</label> <input id="emailaddress" type="text" value="[% BORROWER_INF.email %]"  name="emailaddress" /></li>
46
<li><label for="emailaddress">Primary email:</label> <input id="emailaddress" type="text" value="[% BORROWER_INF.email %]"  name="emailaddress" /> <img src="/opac-tmpl/prog/images/gnupg[% GnuPGemail %].png" align="absbottom"></li>
47
<li><label for="emailpro">Secondary email:</label> <input id="emailpro" type="text" value="[% BORROWER_INF.emailpro %]"  name="emailpro" /></li>
47
<li><label for="emailpro">Secondary email:</label> <input id="emailpro" type="text" value="[% BORROWER_INF.emailpro %]"  name="emailpro" /> <img src="/opac-tmpl/prog/images/gnupg[% GnuPGemailpro %].png" align="absbottom"></li>
48
</ol>
48
</ol>
49
</fieldset>
49
</fieldset>
50
50
Lines 65-71 Link Here
65
<li><label for="B_zipcode">Zip code:</label> <input type="text" id="B_zipcode" value="[% BORROWER_INF.B_zipcode %]" name="B_zipcode" /></li>
65
<li><label for="B_zipcode">Zip code:</label> <input type="text" id="B_zipcode" value="[% BORROWER_INF.B_zipcode %]" name="B_zipcode" /></li>
66
<li><label for="B_country">Country:</label> <input type="text" id="B_country" value="[% BORROWER_INF.B_country %]" name="B_country" /></li>
66
<li><label for="B_country">Country:</label> <input type="text" id="B_country" value="[% BORROWER_INF.B_country %]" name="B_country" /></li>
67
<li><label for="B_phone">Phone:</label> <input type="text" id="B_phone" value="[% BORROWER_INF.B_phone %]" name="B_phone" /></li>
67
<li><label for="B_phone">Phone:</label> <input type="text" id="B_phone" value="[% BORROWER_INF.B_phone %]" name="B_phone" /></li>
68
<li><label for="B_email">Email:</label> <input type="text" id="B_email" value="[% BORROWER_INF.B_email %]" name="B_email" /></li>
68
<li><label for="B_email">Email:</label> <input type="text" id="B_email" value="[% BORROWER_INF.B_email %]" name="B_email" /> <img src="/opac-tmpl/prog/images/gnupg[% GnuPGB_email %].png" align="absbottom"</li>
69
</ol>
69
</ol>
70
</fieldset>
70
</fieldset>
71
<fieldset class="brief">
71
<fieldset class="brief">
(-)a/opac/opac-userupdate.pl (-1 / +15 lines)
Lines 33-38 use C4::Dates qw/format_date/; Link Here
33
use C4::Members;
33
use C4::Members;
34
use C4::Members::Attributes;
34
use C4::Members::Attributes;
35
use C4::Branch;
35
use C4::Branch;
36
use C4::GnuPG;
36
37
37
my $query = new CGI;
38
my $query = new CGI;
38
39
Lines 180-188 if (C4::Context->preference('OPACpatronimages')) { Link Here
180
my @bordat;
181
my @bordat;
181
$bordat[0] = $borr;
182
$bordat[0] = $borr;
182
183
184
my @gnupgmail = ('email', 'emailpro', 'B_email');
185
for(my $i = 0; $i <= $#gnupgmail; $i++) {
186
    if (C4::GnuPG->does_exist($borr->{$gnupgmail[$i]}) == 1) {
187
        $gnupgmail[$i] = 'yes';
188
    }
189
    else {
190
        $gnupgmail[$i] = 'no';
191
    }
192
}
193
183
$template->param( 
194
$template->param( 
184
    BORROWER_INFO => \@bordat,
195
    BORROWER_INFO => \@bordat,
185
    userupdateview => 1,
196
    userupdateview => 1,
197
    GnuPGemail => $gnupgmail[0],
198
    GnuPGemailpro => $gnupgmail[1],
199
    GnuPGB_email => $gnupgmail[2],
200
    GnuPGmail => \@gnupgmail,
186
);
201
);
187
202
188
output_html_with_http_headers $query, $cookie, $template->output;
203
output_html_with_http_headers $query, $cookie, $template->output;
189
- 

Return to bug 8897