[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 AuthoritiesMarc.pm
From: |
Bruno Toumi |
Subject: |
[Koha-cvs] koha/C4 AuthoritiesMarc.pm |
Date: |
Thu, 05 Apr 2007 12:17:55 +0000 |
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
#
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/C4 AuthoritiesMarc.pm,
Bruno Toumi <=