From 0b7d7e8c357c6fa2d2b89261b8b18023645535da Mon Sep 17 00:00:00 2001
From: btoumi <btoumi>
Date: Thu, 5 Apr 2007 12:17:55 +0000
Subject: [PATCH] add "sort by" with heading-entity in authorities search

---
 C4/AuthoritiesMarc.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index a6572c87a9..07eff34186 100644
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -120,8 +120,8 @@ sub authoritysearch {
   }
   ##Add how many queries generated
   $query= $and.$query.$q2;
-  $query=' @or  @attr 7=1 @attr 1=Heading 0 '.$query if ($sortby eq "HeadingAsc");
-  $query=' @or  @attr 7=2 @attr 1=Heading 0 '.$query if ($sortby eq "HeadingDsc");
+  $query=' @or  @attr 7=1 @attr 1=Heading 0 @or  @attr 7=1 @attr 1=Heading-Entity 1'.$query if ($sortby eq "HeadingAsc");
+  $query=' @or  @attr 7=2 @attr 1=Heading 0 @or  @attr 7=1 @attr 1=Heading-Entity 1'.$query if ($sortby eq "HeadingDsc");
   warn $query;
   
   $offset=0 unless $offset;
@@ -842,6 +842,9 @@ Paul POULAIN paul.poulain@free.fr
 
 # $Id$
 # $Log$
+# Revision 1.44  2007/04/05 12:17:55  btoumi
+# add "sort by" with heading-entity in authorities search
+#
 # Revision 1.43  2007/03/30 11:59:16  tipaul
 # some cleaning (minor, the main one will come later) : removing some unused subs
 #
-- 
2.39.5