From f5d22a2ce1aff91e15941112c0d32c22d7853a34 Mon Sep 17 00:00:00 2001 From: Mirko Tietgen Date: Mon, 22 Oct 2012 15:08:53 +0200 Subject: [PATCH] Bug 8897 [ENH] Followup: add Icons to indicate encryption Adds icons to opac-userupdate.pl email fields indicating whether a GnuPG key is available for the respective email address. --- .../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 diff --git a/koha-tmpl/opac-tmpl/prog/en/modules/opac-userupdate.tt b/koha-tmpl/opac-tmpl/prog/en/modules/opac-userupdate.tt index 320b30b..eba72fb 100644 --- a/koha-tmpl/opac-tmpl/prog/en/modules/opac-userupdate.tt +++ b/koha-tmpl/opac-tmpl/prog/en/modules/opac-userupdate.tt @@ -43,8 +43,8 @@
  • -
  • -
  • +
  • +
  • @@ -65,7 +65,7 @@
  • -
  • +
  • diff --git a/koha-tmpl/opac-tmpl/prog/images/gnupgno.png b/koha-tmpl/opac-tmpl/prog/images/gnupgno.png new file mode 100644 index 0000000000000000000000000000000000000000..995e3d69a2a3ee640672cc4cba86e5f3c1871e54 GIT binary patch literal 880 zcmV-$1CRWPP)X1^@s6CN-WK0009wNkl?}>t zgcNEtK@>Lxl9d&VkWJi~TgWaqzW2tPM0iiNJA3v#bH3&b;hb}HA)Ip%LU46;g-j-c z$Hzx7#vqC!G)=?E$Owjqhdn)4NVnihrGnkvU8t&xsi`T*vW#lAinq5nl*?u0^La4F zu)MsCU@-VI;8LlCot+)b&dx#M9sx z;GBbVj$|?k0G)xKpPxY~MLwSgAp{c>6Y%+bO;zjWwx_2DV`F39J7WyRVzD!@X__E} z;Qjp_oO9^9-cmmrje3PfDg8`QCt$~MJP!asmgScEe!suzoiWyVj=Por4J`hI5x1{f zeg9f?WPg93=W;o3;a}U@tMm=5IwxK9W zccFG12a+Tq6bd064nxy43=R%LRaH<*AqYZK2ybp~kWQzuu&~fRm@x)j*D*IY2cOU9 z8UND={Qddl9FljUzTohY(m2KOo)oO4Y2a2M=@ArG- z?)3B&$z&3-SPb*?^Z)MgcTfOO6veApHv%s&FGwU3uq^AZUC?$_f4v{MVp$easT8iS zuTd_S5ekK%X&MZ}_!%%E1oe6yPft%M7K^AZdEx}(yU8~h_dwYv)HjBHvI|zc%QEol(@A=H- za>!&dD3wb1`1k-J1cD&Iwrw;T4M>s%N+|+?z_&B^JNX5YM|l|HH;#?~0000X1^@s6)5{gA000A6Nkl9a zQHT$OXsoN0S_)R8W1BQhI@+X@(PW%QX6D|x_qdoluVyB0`fcvxobx~b@BjbKcSI?r zXbPniBElz$Ea(2nGq+l#;(=udqy0874n=w4(Ova<%^`P#UE6dx^7&sJjG4TBWH%90 zNEJO+^B#!}hwqa`D!$_4iG4g0GdqDPeoZ?(aW=_^<9&p5IQc`mI;05*pcJU!+x3}$ zKF)BD)e5GR!u7#^Z;7dAdinVG96zs@z=MI9Nq<=5PSNL9#s#C1ny#Sq${@Och%}hJ zd?C$3#>EhryAZG0 zRz(uPQ(Q@v8(@nYE(oj_J@8>H9%iRF9uI?G6Hd61aT;K5%}^0giioN02o|%os9%w%UD^<9w4K`fIc19pKq57oKNJq`nN;TQ|JPgCS+Zo nt%@RKRI7h~_x5_c-`4mKPOWlY`*)Bs00000NkvXXu0mjftv$3n literal 0 HcmV?d00001 diff --git a/opac/opac-userupdate.pl b/opac/opac-userupdate.pl index 3b90498..41d7e66 100755 --- a/opac/opac-userupdate.pl +++ b/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; -- 1.7.2.5