[open-ils-commits] r15370 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search (dbs)
svn at svn.open-ils.org
svn at svn.open-ils.org
Fri Jan 22 17:50:40 EST 2010
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;
More information about the open-ils-commits
mailing list