[open-ils-commits] r15370 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-01-22 17:50:34 -0500 (Fri, 22 Jan 2010)
New Revision: 15370

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
Fix up minor (but fatal) typo for the birthday boy :)


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-01-22 21:18:10 UTC (rev 15369)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2010-01-22 22:50:34 UTC (rev 15370)
@@ -566,8 +566,8 @@
     while ($query =~ s/((?:keyword(?:\|\w+)?|title(?:\|\w+)?|author(?:\|\w+)?|subject(?:\|\w+)?|series(?:\|\w+)?|site|dir|sort|lang|available):.+?)$//so) {
         my $qpart = $1;
         my $where = index($qpart,':');
-        my $type = substr($qpart1, 0, $where++);
-        my $value = substr($qpart1, $where);
+        my $type = substr($qpart, 0, $where++);
+        my $value = substr($qpart, $where);
 
         next unless $type and $value;