correcting argument count for staff version
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 6 Feb 2006 15:23:52 +0000 (15:23 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 6 Feb 2006 15:23:52 +0000 (15:23 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2975 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm

index aefcc42..aea6b07 100644 (file)
@@ -1155,7 +1155,7 @@ sub postfilter_search_class_fts {
                                        $metabib_metarecord_source_map_table mrs,
                                        $br_table br,
                                        $descendants d,
-                                       $metabib_record_descriptor ord,
+                                       $metabib_record_descriptor ord
                                
                                  WHERE mrs.metarecord = s.metarecord
                                        AND br.id = mrs.source
@@ -1200,7 +1200,7 @@ sub postfilter_search_class_fts {
                                 '^\\s*'.lc($REstring).'\\s*/?\s*$',) : # full exact match
                                 ()
                        ),
-                       @types, @forms,  ($self->api_name !~ /staff/o ? (@types, @forms) : () ) );
+                       @types, @forms, @types, @forms,  ($self->api_name =~ /staff/o ? (@types, @forms) : () ) );
        
        $log->debug("Search yielded ".scalar(@$recs)." results.",DEBUG);
 
@@ -1477,7 +1477,7 @@ sub postfilter_search_multi_class_fts {
 
        my $recs = $_cdbi->{title}->db_Main->selectall_arrayref(
                        $select, {},
-                       @types, @forms,  ($self->api_name !~ /staff/o ? (@types, @forms) : () ) );
+                       @types, @forms, @types, @forms,  ($self->api_name =~ /staff/o ? (@types, @forms) : () ) );
        
        $log->debug("Search yielded ".scalar(@$recs)." results.",DEBUG);