Difference between revisions of "API:EPrints/List"

From EPrints Documentation
Jump to: navigation, search
 
(6 intermediate revisions by 4 users not shown)
Line 1: Line 1:
 
<!-- Pod2Wiki=_preamble_  
 
<!-- Pod2Wiki=_preamble_  
 
This page has been automatically generated from the EPrints 3.2 source. Any wiki changes made between the 'Pod2Wiki=*' and 'Edit below this comment' comments will be lost.
 
This page has been automatically generated from the EPrints 3.2 source. Any wiki changes made between the 'Pod2Wiki=*' and 'Edit below this comment' comments will be lost.
  -->
+
  -->{{API}}{{Pod2Wiki}}{{API:Source|file=perl_lib/EPrints/List.pm|package_name=EPrints::List}}[[Category:API|LIST]][[Category:API:EPrints/List|LIST]]<div><!-- Edit below this comment -->
__NOTOC__
 
{{Pod2Wiki}}{{API:Source|file=EPrints/List.pm|package_name=EPrints::List}}[[Category:API|List]]<div><!-- Edit below this comment -->
 
  
  
<!-- Pod2Wiki=head_name --></div>
+
<!-- Pod2Wiki=_private_ --><!-- Pod2Wiki=head_name -->
 
==NAME==
 
==NAME==
'''EPrints::List''' - List of data objects, usually a search result.
+
'''EPrints::List''' - List of data objects, usually a [[API:EPrints/Search|EPrints::Search]] result.
  
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 
<h4><span style='display:none'>User Comments</span></h4>
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
  
<!-- Pod2Wiki=head_synopsis --></div>
+
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_synopsis -->
 
==SYNOPSIS==
 
==SYNOPSIS==
  use EPrints::List;
+
<source lang="perl">$list = $search->execute();
 
+
 
  $list = EPrints::List-&gt;new( handle =&gt; $handle, dataset =&gt; $dataset, ids =&gt; $ids); # ref to an array of ids to populate the list with
+
$new_list = $list->reorder( "-creation_date" ); # makes a new list ordered by reverse order creation_date
 
+
 
  $new_list = $list-&gt;reorder( "-creation_date" ); # makes a new list ordered by reverse order creation_date
+
$new_list = $list->union( $list2, "creation_date" ) # makes a new list by adding the contents of $list to $list2. the resulting list is ordered by "creation_date"
 
+
 
  $new_list = $list-&gt;union( $list2, "creation_date" ) # makes a new list by adding the contents of $list to $list2. the resulting list is ordered by "creation_date"
+
$new_list = $list->remainder( $list2, "title" ); # makes a new list by removing the contents of $list2 from $list orders the resulting list by title
 
+
 
  $new_list = $list-&gt;remainder( $list2, "title" ); # makes a new list by removing the contents of $list2 from $list orders the resulting list by title
+
$n = $list->count() # returns the number of items in the list
 
+
 
  $n = $list-&gt;count() # returns the number of items in the list
+
@dataobjs = $list->slice( 0, 20 );  #get the first 20 DataObjs from the list in an array
 
+
 
  @dataobjs = $list-&gt;get_records( 0, 20 );  #get the first 20 DataObjs from the list in an array
+
$list->map( $function, $info ) # performs a function on every item in the list. This is very useful go and look at the detailed description.
 
+
 
  $list-&gt;map( $function, $info ) # performs a function on every item in the list. This is very useful go and look at the detailed description.
+
$plugin_output = $list->export( "BibTeX" ); #calls Plugin::Export::BibTeX on the list.
 
+
 
  $plugin_output = $list-&gt;export( "BibTeX" ); #calls Plugin::Export::BibTeX on the list.
+
$dataset = $list->get_dataset(); #returns the dataset in which the containing objects belong</source>
 
+
 
  $dataset = $list-&gt;get_dataset(); #returns the dataset in which the containing objects belong
 
 
 
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 
<h4><span style='display:none'>User Comments</span></h4>
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
  
<!-- Pod2Wiki=head_description --></div>
+
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=head_description -->
 
==DESCRIPTION==
 
==DESCRIPTION==
 
This class represents an ordered list of objects, all from the same dataset. Usually this is the results of a search.  
 
This class represents an ordered list of objects, all from the same dataset. Usually this is the results of a search.  
  
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 
<h4><span style='display:none'>User Comments</span></h4>
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
  
<!-- Pod2Wiki=head_see_also_l_eprints_search --></div>
+
<!-- Pod2Wiki= -->
==SEE ALSO ==
+
<!-- Pod2Wiki=head_see_also_l_eprints_search -->
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
+
==SEE ALSO [[API:EPrints/Search|EPrints::Search]]==
<h4><span style='display:none'>User Comments</span></h4>
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
  
<!-- Pod2Wiki=item_new --></div>
+
<!-- Pod2Wiki= -->
===$list = EPrints::List-&gt;new( handle =&gt; $handle, dataset =&gt; $dataset, ids =&gt; $ids, # a ref to the array of ids [order =&gt; $order] ); # the field on which to order the list===
+
<!-- Pod2Wiki=head_methods -->
 
+
==METHODS==
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 
<h4><span style='display:none'>User Comments</span></h4>
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
  
<!-- Pod2Wiki=item_new --></div>
+
<!-- Pod2Wiki= -->
===$list = EPrints::List-&gt;new( handle =&gt; $handle, dataset =&gt; $dataset, [desc =&gt; $desc], [desc_order =&gt; $desc_order], cache_id =&gt; $cache_id );===
+
$list = EPrints::List-&gt;new( repository =&gt; $repository, dataset =&gt; $dataset,ids =&gt; $ids, [order =&gt; $order] );
 +
$list = EPrints::List-&gt;new( repository =&gt; $repository, dataset =&gt; $dataset,[desc =&gt; $desc],[desc_order =&gt; $desc_order],cache_id =&gt; $cache_id );
 +
Note the new() method will be called very rarely since lists will usually created by an [[API:EPrints/Search|EPrints::Search]].
  
 
Creates a new list object in memory only. Lists will be cached if any method requiring order is called, or an explicit  cache() method is called.
 
Creates a new list object in memory only. Lists will be cached if any method requiring order is called, or an explicit  cache() method is called.
Line 73: Line 64:
 
encoded is the serialised version of the searchExpression which created this list, if there was one.
 
encoded is the serialised version of the searchExpression which created this list, if there was one.
  
If keep_cache is set then the cache will not be disposed of at the end of the current $handle. If cache_id is set then keep_cache is automatically true.
+
If keep_cache is set then the cache will not be disposed of at the end of the current $session. If cache_id is set then keep_cache is automatically true.
 
 
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 
<h4><span style='display:none'>User Comments</span></h4>
 
<!-- Edit below this comment -->
 
 
 
 
 
<!-- Pod2Wiki=item_reorder --></div>
 
===$new_list = $list-&gt;reorder( $new_order );===
 
  
 +
$new_list = $list-&gt;reorder( $new_order );
 
Create a new list from this one, but sorted in a new way.
 
Create a new list from this one, but sorted in a new way.
  
 
$new_list = $list-&gt;reorder( "-creation_date" ); # makes a new list ordered by reverse order creation_date
 
$new_list = $list-&gt;reorder( "-creation_date" ); # makes a new list ordered by reverse order creation_date
  
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '>
+
  $new_list = $list-&gt;union( $list2, [$order] );
<h4><span style='display:none'>User Comments</span></h4>
 
<!-- Edit below this comment -->
 
 
 
 
 
<!-- Pod2Wiki=item_union --></div>
 
===$new_list = $list-&gt;union( $list2, [$order] );===
 
 
 
 
Create a new list from this one plus another one. If order is not set then this list will not be in any certain order.
 
Create a new list from this one plus another one. If order is not set then this list will not be in any certain order.
  
Line 101: Line 78:
 
$order - a field which the the resulting list will be ordered on. (optional)
 
$order - a field which the the resulting list will be ordered on. (optional)
  
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '>
+
  $new_list = $list-&gt;remainder( $list2, [$order] );
<h4><span style='display:none'>User Comments</span></h4>
+
Create a new list from $list with elements from $list2 removed. If order is not set then this list will not be in any certain order.
<!-- Edit below this comment -->
 
 
 
 
 
<!-- Pod2Wiki=item_remainder --></div>
 
===$new_list = $list-&gt;remainder( $list2, [$order] );===
 
 
 
Create a new list from this one minus another one. If order is not set then this list will not be in any certain order.
 
  
 
Remove all items in $list2 from $list and return the result as a new EPrints::List.
 
Remove all items in $list2 from $list and return the result as a new EPrints::List.
Line 117: Line 87:
 
$order - the field the remaining list is to be ordered by
 
$order - the field the remaining list is to be ordered by
  
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '>
+
  $new_list = $list-&gt;intersect( $list2, [$order] );
<h4><span style='display:none'>User Comments</span></h4>
 
<!-- Edit below this comment -->
 
 
 
 
 
<!-- Pod2Wiki=item_intersect --></div>
 
===$new_list = $list-&gt;intersect( $list2, [$order] );===
 
 
 
 
Create a new list containing only the items which are in both lists. If order is not set then this list will not be in any certain order.
 
Create a new list containing only the items which are in both lists. If order is not set then this list will not be in any certain order.
  
Line 131: Line 94:
 
$order -  the field the resulting list will be ordered on
 
$order -  the field the resulting list will be ordered on
  
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '>
+
  $list-&gt;cache
<h4><span style='display:none'>User Comments</span></h4>
+
Cause this list to be cached in the database.
<!-- Edit below this comment -->
 
  
 +
<!-- Pod2Wiki=end -->
 +
InternalDoc $cache_id = $list-&gt;get_cache_id
 +
Return the ID of the cache table for this list, or undef.
  
<!-- Pod2Wiki=item_count --></div>
+
<!-- Pod2Wiki=end -->
===$n = $list-&gt;count ===
+
InternalDoc $list-&gt;dispose
 +
Clean up the cache table if appropriate.
  
 +
<!-- Pod2Wiki=end -->
 +
InternalDoc $n = $list-&gt;count
 
Return the number of values in this list.
 
Return the number of values in this list.
  
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
+
$dataobj = $list-&gt;item( $offset )
<h4><span style='display:none'>User Comments</span></h4>
+
Returns the item at offset $offset.
<!-- Edit below this comment -->
 
  
 +
Returns undef if $offset is out of range of the current list of items.
  
<!-- Pod2Wiki=item_get_records --></div>
+
@dataobjs = $list-&gt;slice( [$offset], [$count] )
===@dataobjs = $list-&gt;get_records( [$offset], [$count] )===
 
 
 
 
Returns the DataObjs in this list as an array.  $offset - what index through the list to start from. $count - the maximum to return.
 
Returns the DataObjs in this list as an array.  $offset - what index through the list to start from. $count - the maximum to return.
  
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '>
+
  $ids = $list-&gt;ids( [$offset], [$count] )
<h4><span style='display:none'>User Comments</span></h4>
+
Return a reference to an array containing the object ids of the items  in the list. You can specify a range of ids using $offset and $count. This is more efficient if you just need the ids.
<!-- Edit below this comment -->
 
 
 
 
 
<!-- Pod2Wiki=item_get_ids --></div>
 
===$ids = $list-&gt;get_ids( [$offset], [$count] )===
 
 
 
Return a reference to an array containing the ids of the specified range from the list. This is more efficient if you just need the ids.
 
  
 
$offset - what index through the list to start from. $count - the maximum to return.
 
$offset - what index through the list to start from. $count - the maximum to return.
  
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '>
+
  $list-&gt;map( $function, $info )
<h4><span style='display:none'>User Comments</span></h4>
 
<!-- Edit below this comment -->
 
 
 
 
 
<!-- Pod2Wiki=item_map --></div>
 
===$list-&gt;map( $function, $info )===
 
 
 
 
Map the given function pointer to all the items in the list, in order. This loads the items in batches of 100 to reduce memory  requirements.
 
Map the given function pointer to all the items in the list, in order. This loads the items in batches of 100 to reduce memory  requirements.
  
Line 177: Line 129:
 
Example:
 
Example:
  
my $info = { matches =&gt; 0 };
+
<pre> my $info = { matches =&gt; 0 };
 
  $list-&gt;map( \&amp;deal, $info );
 
  $list-&gt;map( \&amp;deal, $info );
 
  print "Matches: ".$info-&gt;{matches}."\n";
 
  print "Matches: ".$info-&gt;{matches}."\n";
 
    
 
    
  
 +
 
 
  sub deal
 
  sub deal
 
  {
 
  {
   my( $handle, $dataset, $eprint, $info ) = @_; # params passed to the function by $list-&gt;map
+
   my( $session, $dataset, $eprint, $info ) = @_;
+
 
   if( $eprint-&gt;get_value( "a" ) eq $eprint-&gt;get_value( "b" ) ) {
+
   if( $eprint->get_value( "a" ) eq $eprint->get_value( "b" ) ) {
     $info-&gt;{matches} += 1;
+
     $info->{matches} += 1;
 
   }
 
   }
  }
+
  }</pre>
 
 
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 
<h4><span style='display:none'>User Comments</span></h4>
 
<!-- Edit below this comment -->
 
 
 
 
 
<!-- Pod2Wiki=item_export --></div>
 
===$plugin_output = $list-&gt;export( $plugin_id, %params )===
 
  
 +
$plugin_output = $list-&gt;export( $plugin_id, %params )
 
Apply an output plugin to this list of items. If the param "fh" is set it will send the results to a filehandle rather than return them as a string.  
 
Apply an output plugin to this list of items. If the param "fh" is set it will send the results to a filehandle rather than return them as a string.  
  
 
$plugin_id - the ID of the Export plugin which is to be used to process the list. e.g. "BibTeX"
 
$plugin_id - the ID of the Export plugin which is to be used to process the list. e.g. "BibTeX"
  
$param{"fh"} = "temp_dir/my_file.txt"; - the file the results are to be out put to, useful for output too big to put into memory.
+
$param{"fh"} = "temp_dir/my_file.txt"; - the file the results are to be output to, useful for output too large to fit into memory.
  
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
+
<pre></pre>
<h4><span style='display:none'>User Comments</span></h4>
 
<!-- Edit below this comment -->
 
  
 +
$xhtml = $list-&gt;render_description
 +
Return a DOM XHTML description of this list, if available, or an empty fragment.
  
<!-- Pod2Wiki=item_get_dataset --></div>
+
<!-- Pod2Wiki=head_copyright -->
===$dataset = $list-&gt;get_dataset===
+
==COPYRIGHT==
 +
Copyright 2000-2011 University of Southampton.
  
Return the EPrints::DataSet which this list relates to.
+
This file is part of EPrints http://www.eprints.org/.
  
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
+
EPrints is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
<h4><span style='display:none'>User Comments</span></h4>
 
<!-- Edit below this comment -->
 
  
 +
EPrints is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for more details.
  
<!-- Pod2Wiki=item_render_description --></div>
+
You should have received a copy of the GNU Lesser General Public License along with EPrints.  If not, see http://www.gnu.org/licenses/.
===$xhtml = $list-&gt;render_description===
 
  
Return a DOM XHTML description of this list, if available, or an empty fragment.
 
 
<div style='background-color: #eef; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 
<h4><span style='display:none'>User Comments</span></h4>
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
  
<!-- Pod2Wiki=_postamble_ --><!-- Edit below this comment -->
+
<!-- Pod2Wiki= -->
 +
<!-- Pod2Wiki=_postamble_ -->
 +
<!-- Edit below this comment -->

Latest revision as of 09:56, 22 January 2013

EPrints 3 Reference: Directory Structure - Metadata Fields - Repository Configuration - XML Config Files - XML Export Format - EPrints data structure - Core API - Data Objects


API: Core API

Latest Source Code (3.4, 3.3) | Revision Log | Before editing this page please read Pod2Wiki


NAME

EPrints::List - List of data objects, usually a EPrints::Search result.


SYNOPSIS

$list = $search->execute();

$new_list = $list->reorder( "-creation_date" ); # makes a new list ordered by reverse order creation_date

$new_list = $list->union( $list2, "creation_date" ) # makes a new list by adding the contents of $list to $list2. the resulting list is ordered by "creation_date"

$new_list = $list->remainder( $list2, "title" ); # makes a new list by removing the contents of $list2 from $list orders the resulting list by title

$n = $list->count() # returns the number of items in the list

@dataobjs = $list->slice( 0, 20 );  #get the first 20 DataObjs from the list in an array

$list->map( $function, $info ) # performs a function on every item in the list. This is very useful go and look at the detailed description.

$plugin_output = $list->export( "BibTeX" ); #calls Plugin::Export::BibTeX on the list.

$dataset = $list->get_dataset(); #returns the dataset in which the containing objects belong


DESCRIPTION

This class represents an ordered list of objects, all from the same dataset. Usually this is the results of a search.


SEE ALSO EPrints::Search

METHODS

$list = EPrints::List->new( repository => $repository, dataset => $dataset,ids => $ids, [order => $order] ); 
$list = EPrints::List->new( repository => $repository, dataset => $dataset,[desc => $desc],[desc_order => $desc_order],cache_id => $cache_id );

Note the new() method will be called very rarely since lists will usually created by an EPrints::Search.

Creates a new list object in memory only. Lists will be cached if any method requiring order is called, or an explicit cache() method is called.

encoded is the serialised version of the searchExpression which created this list, if there was one.

If keep_cache is set then the cache will not be disposed of at the end of the current $session. If cache_id is set then keep_cache is automatically true.

$new_list = $list->reorder( $new_order );

Create a new list from this one, but sorted in a new way.

$new_list = $list->reorder( "-creation_date" ); # makes a new list ordered by reverse order creation_date

$new_list = $list->union( $list2, [$order] );

Create a new list from this one plus another one. If order is not set then this list will not be in any certain order.

$list2 - the list which is to be combined to the calling list

$order - a field which the the resulting list will be ordered on. (optional)

$new_list = $list->remainder( $list2, [$order] );

Create a new list from $list with elements from $list2 removed. If order is not set then this list will not be in any certain order.

Remove all items in $list2 from $list and return the result as a new EPrints::List.

$list2 - the eprints you want to remove from the calling list

$order - the field the remaining list is to be ordered by

$new_list = $list->intersect( $list2, [$order] );

Create a new list containing only the items which are in both lists. If order is not set then this list will not be in any certain order.

$list2 - a list to intersect with the calling list

$order - the field the resulting list will be ordered on

$list->cache

Cause this list to be cached in the database.

InternalDoc $cache_id = $list->get_cache_id Return the ID of the cache table for this list, or undef.

InternalDoc $list->dispose Clean up the cache table if appropriate.

InternalDoc $n = $list->count Return the number of values in this list.

$dataobj = $list->item( $offset )

Returns the item at offset $offset.

Returns undef if $offset is out of range of the current list of items.

@dataobjs = $list->slice( [$offset], [$count] )

Returns the DataObjs in this list as an array. $offset - what index through the list to start from. $count - the maximum to return.

$ids = $list->ids( [$offset], [$count] )

Return a reference to an array containing the object ids of the items in the list. You can specify a range of ids using $offset and $count. This is more efficient if you just need the ids.

$offset - what index through the list to start from. $count - the maximum to return.

$list->map( $function, $info )

Map the given function pointer to all the items in the list, in order. This loads the items in batches of 100 to reduce memory requirements.

$info is a datastructure which will be passed to the function each time and is useful for holding or collecting state.

Example:

 my $info = { matches => 0 };
 $list->map( \&deal, $info );
 print "Matches: ".$info->{matches}."\n";
  

  
 sub deal
 {
   my( $session, $dataset, $eprint, $info ) = @_;
  
   if( $eprint->get_value( "a" ) eq $eprint->get_value( "b" ) ) {
     $info->{matches} += 1;
   }
 }
$plugin_output = $list->export( $plugin_id, %params )

Apply an output plugin to this list of items. If the param "fh" is set it will send the results to a filehandle rather than return them as a string.

$plugin_id - the ID of the Export plugin which is to be used to process the list. e.g. "BibTeX"

$param{"fh"} = "temp_dir/my_file.txt"; - the file the results are to be output to, useful for output too large to fit into memory.


$xhtml = $list->render_description

Return a DOM XHTML description of this list, if available, or an empty fragment.

COPYRIGHT

Copyright 2000-2011 University of Southampton.

This file is part of EPrints http://www.eprints.org/.

EPrints is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.

EPrints is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public License along with EPrints. If not, see http://www.gnu.org/licenses/.