[open-ils-commits] r10499 - trunk/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

Author: dbs
Date: 2008-09-01 14:08:44 -0400 (Mon, 01 Sep 2008)
New Revision: 10499

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
SRU: Map author and name names from the eg indexset to the "author" index instead of "title"
SRU: Log info and debug messages to osrfsys.log instead of the Apache logs


Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2008-09-01 17:41:23 UTC (rev 10498)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2008-09-01 18:08:44 UTC (rev 10499)
@@ -1291,7 +1291,7 @@
 
 our %qualifier_map = (
 
-    # Som EG qualifiers
+    # Some EG qualifiers
     'eg.site'               => 'site',
     'eg.sort'               => 'sort',
     'eg.direction'          => 'dir',
@@ -1308,8 +1308,8 @@
     'eg.series'             => 'title',
 
     # Author/Name class:
-    'eg.author'             => 'title',
-    'eg.name'               => 'title',
+    'eg.author'             => 'author',
+    'eg.name'               => 'author',
     'creator'               => 'author',
     'dc.creator'            => 'author',
     'dc.contributer'        => 'author',
@@ -1386,7 +1386,7 @@
 			site		=> ['site','Evergreen Site Code (shortname)'],
 			sort		=> ['sort','Sort on relevance, title, author, pubdate, create_date or edit_date'],
 			direction	=> ['dir','Sort direction (asc|desc)'],
-			available	=> ['available','Filter to availble (true|false)'],
+			available	=> ['available','Filter to available (true|false)'],
 			title		=> ['title'],
 			author		=> ['author'],
 			name		=> ['author'],
@@ -1531,7 +1531,7 @@
         my $limit = $req->maximumRecords;
         $limit ||= 10;
 
-        warn "SRU search string [$cql_query] converted to [$search_string]\n";
+        $log->info("SRU search string [$cql_query] converted to [$search_string]\n");
 
  		my $recs = $search->request(
 			'open-ils.search.biblio.multiclass.query' => {offset => $offset, limit => $limit} => $search_string => 1
@@ -1647,7 +1647,7 @@
         if ( $qualifier ) {
 			my ($qset, $qname) = split(/\./, $qualifier);
 
-			warn "!!! $qset, $qname   $OpenILS::WWW::SuperCat::nested_qualifier_map{$qset}{$qname}[0]\n";
+			$log->debug("SRU toEvergreen: $qset, $qname   $OpenILS::WWW::SuperCat::nested_qualifier_map{$qset}{$qname}[0]\n");
 
             if ( exists($OpenILS::WWW::SuperCat::nested_qualifier_map{$qset}{$qname}) ) {
                 $qualifier = $OpenILS::WWW::SuperCat::nested_qualifier_map{$qset}{$qname}[0] || 'kw';