X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=lib%2FZOOM.pm;h=0bceec76e5c3cb352353eae0737a5e77796e764b;hb=94f37eff1870835e623751151d69c9f305b556c6;hp=e1bc921b7d2f2729bff63b6da6544cdc78313b73;hpb=72cd1888081c79a708e865d0a42f8c4e0ff8f84e;p=ZOOM-Perl-moved-to-github.git

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();