From: mike <mike>
Date: Fri, 4 Nov 2005 17:08:00 +0000 (+0000)
Subject: Add ZOOM::ResultSet::sort()
X-Git-Tag: cpan_1_22~396
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=94f37eff1870835e623751151d69c9f305b556c6;p=ZOOM-Perl-moved-to-github.git

Add ZOOM::ResultSet::sort()
---

diff --git a/lib/ZOOM.pm b/lib/ZOOM.pm
index e1bc921..0bceec7 100644
--- a/lib/ZOOM.pm
+++ b/lib/ZOOM.pm
@@ -1,4 +1,4 @@
-# $Id: ZOOM.pm,v 1.11 2005-11-03 16:32:10 mike Exp $
+# $Id: ZOOM.pm,v 1.12 2005-11-04 17:08:00 mike Exp $
 
 use strict;
 use warnings;
@@ -556,6 +556,14 @@ sub records {
     return \@res;
 }
 
+sub sort {
+    my $this = shift();
+    my($sort_type, $sort_spec) = @_;
+
+    Net::Z3950::ZOOM::resultset_sort($this->_rs(), $sort_type, $sort_spec);
+    ### There's no way to check for success, as this is a void function
+}
+
 sub destroy {
     my $this = shift();