@@ -, +, @@ --- svc/split_callnumbers | 1 + 1 file changed, 1 insertion(+) --- a/svc/split_callnumbers +++ a/svc/split_callnumbers @@ -3,6 +3,7 @@ use Modern::Perl; use JSON qw( from_json ); use C4::Service; +use C4::ClassSplitRoutine::RegEx; our ( $query, $response ) = C4::Service->init( parameters => 'parameters_remaining_permissions' ); --