Advertisement
chrissharp123

Untitled

Aug 28th, 2020
1,803
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.43 KB | None | 0 0
  1. sub add_usr_settings {
  2.     my $self = shift;
  3.     my $cgi = $self->cgi;
  4.     my $ctx = $self->ctx;
  5.     my $user = $ctx->{user};
  6.     my $uid = $user->id;
  7.     $logger->info("csharp: \$uid = $uid");
  8.     my %settings = (
  9.         'opac.hold_notify' => 'email'
  10.     );
  11.  
  12.     $U->simplereq(
  13.         'open-ils.actor',
  14.         'open-ils.actor.patron.settings.update',
  15.         $self->ctx->{authtoken}, $uid, \%settings);
  16.  
  17.     return 1;
  18. }
  19.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement