projects
/
ZOOM-Perl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cd34893
)
Add ZOOM::ResultSet::sort()
author
mike
<mike>
Fri, 4 Nov 2005 17:08:00 +0000
(17:08 +0000)
committer
mike
<mike>
Fri, 4 Nov 2005 17:08:00 +0000
(17:08 +0000)
lib/ZOOM.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM.pm
b/lib/ZOOM.pm
index
e1bc921
..
0bceec7
100644
(file)
--- 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;
use strict;
use warnings;
@@
-556,6
+556,14
@@
sub records {
return \@res;
}
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();
sub destroy {
my $this = shift();