@@ -, +, @@ --- .../opac-tmpl/prog/en/modules/opac-userupdate.tt | 6 +++--- koha-tmpl/opac-tmpl/prog/images/gnupgno.png | Bin 0 -> 880 bytes koha-tmpl/opac-tmpl/prog/images/gnupgyes.png | Bin 0 -> 913 bytes opac/opac-userupdate.pl | 15 +++++++++++++++ 4 files changed, 18 insertions(+), 3 deletions(-) create mode 100644 koha-tmpl/opac-tmpl/prog/images/gnupgno.png create mode 100644 koha-tmpl/opac-tmpl/prog/images/gnupgyes.png --- a/koha-tmpl/opac-tmpl/prog/en/modules/opac-userupdate.tt +++ a/koha-tmpl/opac-tmpl/prog/en/modules/opac-userupdate.tt @@ -43,8 +43,8 @@
  • -
  • -
  • +
  • +
  • @@ -65,7 +65,7 @@
  • -
  • +
  • --- a/opac/opac-userupdate.pl +++ a/opac/opac-userupdate.pl @@ -33,6 +33,7 @@ use C4::Dates qw/format_date/; use C4::Members; use C4::Members::Attributes; use C4::Branch; +use C4::GnuPG; my $query = new CGI; @@ -180,9 +181,23 @@ if (C4::Context->preference('OPACpatronimages')) { my @bordat; $bordat[0] = $borr; +my @gnupgmail = ('email', 'emailpro', 'B_email'); +for(my $i = 0; $i <= $#gnupgmail; $i++) { + if (C4::GnuPG->does_exist($borr->{$gnupgmail[$i]}) == 1) { + $gnupgmail[$i] = 'yes'; + } + else { + $gnupgmail[$i] = 'no'; + } +} + $template->param( BORROWER_INFO => \@bordat, userupdateview => 1, + GnuPGemail => $gnupgmail[0], + GnuPGemailpro => $gnupgmail[1], + GnuPGB_email => $gnupgmail[2], + GnuPGmail => \@gnupgmail, ); output_html_with_http_headers $query, $cookie, $template->output; --