convenience link to patron paypal sub, for faster cancelation

app/views/user/mod.scala.html

@@ -203,17 +203,24 @@
     </table>
   </div>
   }
+    @charges.headOption.map { firstCharge =>
   <div class="plan_charges">
-    <strong class="text" data-icon="@patronIconChar">Patron payments@if(charges.isEmpty){: none.}</strong>
-    @if(charges.nonEmpty) {
+    <strong class="text" data-icon="@patronIconChar">
+      Patron payments
+      @if(isGranted(_.PayPal)) {
+      @firstCharge.payPal.flatMap(_.subId).map { subId =>
+      - <a href="https://www.paypal.com/fr/cgi-bin/webscr?cmd=_profile-recurring-payments&encrypted_profile_id=@subId">[PayPal sub]</a>
+      }
+      }
+    </strong>
     <ul>
       @charges.map { c =>
       <li>@c.cents.usd with @c.serviceName on @absClientDateTime(c.date)</li>
       }
     </ul>
     <br />
-    }
   </div>
+    }
   <div class="mod_log">
     <strong class="text" data-icon="!">Moderation history@if(history.isEmpty){: nothing to show.}</strong>
     @if(history.nonEmpty) {

modules/security/src/main/Permission.scala

@@ -47,6 +47,7 @@ object Permission {
   case object ModMessage extends Permission("ROLE_MOD_MESSAGE")
   case object Impersonate extends Permission("ROLE_IMPERSONATE")
   case object DisapproveCoachReview extends Permission("ROLE_DISAPPROVE_COACH_REVIEW")
+  case object PayPal extends Permission("ROLE_PAYPAL")
 
   case object Hunter extends Permission("ROLE_HUNTER", List(
     ViewBlurs, MarkEngine, MarkBooster, StaffForum,
@@ -62,7 +63,7 @@ object Permission {
   ))
 
   case object SuperAdmin extends Permission("ROLE_SUPER_ADMIN", List(
-    Admin, ChangePermission, PublicMod, Developer, Impersonate
+    Admin, ChangePermission, PublicMod, Developer, Impersonate, PayPal
   ))
 
   lazy val allButSuperAdmin: List[Permission] = List(