From 0f0d2419bf4169b93dd274bb44cd7e56bb783dd3 Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 5 Apr 2010 00:18:07 +0000 Subject: [PATCH] better regexp with new paging functionallity git-svn-id: svn://svn.open-ils.org/ILS/trunk@16127 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm index fe98cd038d..59e71a9ea6 100644 --- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm +++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm @@ -331,7 +331,7 @@ sub unapi { if (!$format) { my $body = "Content-type: application/xml; charset=utf-8\n\n"; - if ($uri =~ m{^tag:[^:]+:([^\/]+)/([^/]+?)(?:\[([^\]]+)\])?(?:/(.+))?}o) { + if ($uri =~ m{^tag:[^:]+:([^\/]+)/(\d+)(?:\[([0-9,]+)\])?(?:/(.+))?}o) { $id = $2; $paging = $3; $lib = uc($4); @@ -419,7 +419,7 @@ sub unapi { return Apache2::Const::OK; } - if ($uri =~ m{^tag:[^:]+:([^\/]+)/([^/]+?)(?:\[([^\]]+)\])?(?:/(.+))?}o) { + if ($uri =~ m{^tag:[^:]+:([^\/]+)/(\d+)(?:\[([0-9,]+)\])?(?:/(.+))?}o) { $id = $2; $paging = $3; $lib = uc($4); -- 2.11.0