[Koha-cvs] koha/C4 AuthoritiesMarc.pm

[Bruno Toumi]

CVSROOT:	/cvsroot/koha
Module name:	koha
Changes by:	Bruno Toumi <btoumi>	07/04/05 12:17:55

Modified files:
	C4             : AuthoritiesMarc.pm 

Log message:
	add "sort by" with heading-entity in authorities search

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/AuthoritiesMarc.pm?cvsroot=koha&r1=1.43&r2=1.44

Patches:
Index: AuthoritiesMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/AuthoritiesMarc.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- AuthoritiesMarc.pm	30 Mar 2007 11:59:16 -0000	1.43
+++ AuthoritiesMarc.pm	5 Apr 2007 12:17:55 -0000	1.44
@@ -120,8 +120,8 @@
   }
   ##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;
@@ -840,8 +840,11 @@
 
 =cut
 
-# $Id: AuthoritiesMarc.pm,v 1.43 2007/03/30 11:59:16 tipaul Exp $
+# $Id: AuthoritiesMarc.pm,v 1.44 2007/04/05 12:17:55 btoumi Exp $
 # $Log: AuthoritiesMarc.pm,v $
+# 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
 #