Lines 1223-1230
sub overdues {
Link Here
|
1223 |
); |
1223 |
); |
1224 |
} |
1224 |
} |
1225 |
|
1225 |
|
|
|
1226 |
=head3 Patron Restrictions |
1226 |
|
1227 |
|
1227 |
=head3 restrictions |
1228 |
=head4 restrictions |
1228 |
|
1229 |
|
1229 |
my $restrictions = $patron->restrictions; |
1230 |
my $restrictions = $patron->restrictions; |
1230 |
|
1231 |
|
Lines 1238-1243
sub restrictions {
Link Here
|
1238 |
return Koha::Patron::Restrictions->_new_from_dbic($restrictions_rs); |
1239 |
return Koha::Patron::Restrictions->_new_from_dbic($restrictions_rs); |
1239 |
} |
1240 |
} |
1240 |
|
1241 |
|
|
|
1242 |
=head4 add_restriction |
1243 |
|
1244 |
my $new_restriction = $patron->add_restriction({}); |
1245 |
|
1246 |
Method to add a new restriction to a patrons account |
1247 |
|
1248 |
=cut |
1249 |
|
1250 |
sub add_restriction { |
1251 |
my ($self, $params) = @_; |
1252 |
|
1253 |
my $manager_id = $params->{'manager_id'}; |
1254 |
$manager_id //= C4::Context->userenv ? C4::Context->userenv->{'number'} : undef; |
1255 |
|
1256 |
my $restriction_rs = $self->_result->add_to_borrower_debarments( |
1257 |
{ |
1258 |
expiration => $params->{expiration}, |
1259 |
type => $params->{type}, |
1260 |
comment => $params->{comment}, |
1261 |
manager_id => $manager_id, |
1262 |
created => \'NOW()' |
1263 |
} |
1264 |
)->discard_changes; |
1265 |
|
1266 |
# FIXME: Drop this next |
1267 |
Koha::Patron::Debarments::UpdateBorrowerDebarmentFlags($self->borrowernumber); |
1268 |
|
1269 |
return Koha::Patron::Restriction->_new_from_dbic($restriction_rs); |
1270 |
} |
1271 |
|
1241 |
=head3 get_routing_lists |
1272 |
=head3 get_routing_lists |
1242 |
|
1273 |
|
1243 |
my $routinglists = $patron->get_routing_lists |
1274 |
my $routinglists = $patron->get_routing_lists |
1244 |
- |
|
|