Difference between revisions of "API:EPrints/Database"

From EPrints Documentation
Jump to: navigation, search
 
(26 intermediate revisions by 2 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.4 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/Database.pm|package_name=EPrints::Database}}[[Category:API|DATABASE]][[Category:API:EPrints/Database|DATABASE]]<div><!-- Edit below this comment -->
+
  -->{{API}}{{Pod2Wiki}}{{API:Source|file=EPrints/Database.pm|package_name=EPrints::Database}}[[Category:API|DATABASE]]<div><!-- Edit below this comment -->
  
  
 
<!-- Pod2Wiki=_private_ --><!-- Pod2Wiki=head_name -->
 
<!-- Pod2Wiki=_private_ --><!-- Pod2Wiki=head_name -->
 
==NAME==
 
==NAME==
'''EPrints::Database''' - a connection to the SQL database for an eprints session
+
'''EPrints::Database''' - a connection to the SQL database for an eprints session.
  
<!-- Edit below this comment -->
+
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 
+
<span style='display:none'>User Comments</span>
 
 
<!-- Pod2Wiki= -->
 
</div>
 
<!-- Pod2Wiki=head_synopsis -->
 
==SYNOPSIS==
 
  $db = $repo-&gt;database
 
  $sth = $db-&gt;prepare("SELECT 'hello, world!'");
 
  $sth-&gt;execute;
 
  print $sth-&gt;fetchrow_arrayref-&gt;[0], "\n";
 
 
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 29: Line 19:
 
EPrints Database Access Module
 
EPrints Database Access Module
  
Provides access to the backend database. All database access is performed via this module to 1) provide cross-database support and 2) improve security through enforcing proper quoting of SQL values.
+
Provides access to the backend database. All database access done via this module, in the hope that the backend can be replaced as easily as possible.
  
In most use-cases it should not be necessary to use the database module directly. Instead you should use [[API:EPrints/DataSet|EPrints::DataSet]] or [[API:EPrints/MetaField|EPrints::MetaField]] accessor methods to access objects and field values respectively.
+
In most use-cases it should not be necessary to use the database module directly. Instead you should use [[API:EPrints/DataSet|EPrints::DataSet]] or [[API:EPrints/MetaField|EPrints::MetaField]] accessor methods to access objects and field values respectively.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 40: Line 32:
 
<!-- Pod2Wiki=head_cross_database_support -->
 
<!-- Pod2Wiki=head_cross_database_support -->
 
===Cross-database Support===
 
===Cross-database Support===
Any use of SQL statements must use [[API:EPrints/Database#quote_identifier|quote_identifier]] to quote database tables and columns and [[API:EPrints/Database#quote_value|quote_value]] to quote values. The only exception to this are the EPrints::Database::* modules which provide database-driver specific extensions.
+
Any use of SQL statements must use [[API:EPrints/Database#quote_identifier|quote_identifier]] to quote database tables and columns and quote_value to quote values. The only exception to this are the EPrints::Database::* modules which provide database-driver specific extensions.  
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 49: Line 43:
 
<!-- Pod2Wiki=head_quoting_sql_values -->
 
<!-- Pod2Wiki=head_quoting_sql_values -->
 
===Quoting SQL Values===
 
===Quoting SQL Values===
By convention variables that contain already quoted values are prefixed with 'Q_' so they can be easily recognised when used in string interpolation:
+
By convention variables that contain already quoted values are prefixed with <tt>Q_</tt> so they can be easily recognised when used in string interpolation:  
  
  my $Q_value = $db-&gt;quote_value( "Hello, World!" );
+
my $Q_value = $db-&gt;quote_value( "Hello, World!" );
  $db-&gt;do("SELECT $Q_value");
+
$db-&gt;do("SELECT $Q_value");
 
    
 
    
Where possible you should avoid quoting values yourself, instead use a method that accepts unquoted values which will (safely) do the work for you.
+
Where possible you should avoid quoting values yourself, instead use a method that accepts unquoted values which will (safely) do the work for you.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 +
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=head_constants -->
 +
==CONSTANTS==
 +
All the <tt>SQL_</tt> column types defined by Perl module {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}} and the  following:
 +
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 +
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_sql_null -->
 +
===SQL_NULL===
 +
 +
A column value is undefined.
 +
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 +
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_sql_not_null -->
 +
===SQL_NOT_NULL===
 +
 +
A column value is defined.
 +
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 +
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=head_instance_variables -->
 +
==INSTANCE VARIABLES==
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 +
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_$self->{session} -->
 +
===$self-&gt;{session}===
 +
 +
The [[API:EPrints/Session|EPrints::Session]] which is associated with this database  connection.
 +
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 +
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_$self->{debug} -->
 +
===$self-&gt;{debug}===
 +
 +
If <tt>true</tt> then SQL is logged.
 +
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 +
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_$self->{dbh} -->
 +
===$self-&gt;{dbh}===
 +
 +
The handle on the actual database connection.
 +
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 63: Line 139:
 
<!-- Pod2Wiki=head_methods -->
 
<!-- Pod2Wiki=head_methods -->
 
==METHODS==
 
==METHODS==
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 70: Line 148:
 
<!-- Pod2Wiki=head_database -->
 
<!-- Pod2Wiki=head_database -->
 
===Database===
 
===Database===
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 78: Line 158:
 
====new====
 
====new====
  
  $db = EPrints::Database-&gt;new( $repo )
+
  $db = EPrints::Database-&gt;new( $repo, [ %opts ] )
 
Create a connection to the database.
 
Create a connection to the database.
  
 +
Options:
 +
  db_connect - Boolean. Also connect to the database (default: true).
 +
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 90: Line 175:
  
 
  $db = $db-&gt;create( $username, $password )
 
  $db = $db-&gt;create( $username, $password )
Create and connect to a new database using super user account $username and $password.
+
Create and connect to a new database using user account <tt>$username</tt>  and <tt>$password</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 +
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_build_connection_string -->
 +
====build_connection_string====
 +
 +
$dbstr = EPrints::Database::build_connection_string( %params )
 +
Build the string to use to connect to the database via {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}}.
 +
 +
Parameters:
 +
dbname - Database name (REQUIRED).
 +
dbdriver - Database driver (e.g. mysql, Oracle, pgsql, default: mysql).
 +
dbhost - Database host.  Assumes localhost if unset.
 +
dbport - Port to connect to database host.  Assumes default for driver if unset.
 +
dbsock - Socket file to connect to database through.
 +
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 100: Line 207:
 
====connect====
 
====connect====
  
  $ok = $db-&gt;connect
+
  $db-&gt;connect()
 
Connects to the database.  
 
Connects to the database.  
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 111: Line 220:
 
====disconnect====
 
====disconnect====
  
  $db-&gt;disconnect
+
  $db-&gt;disconnect()
Disconnects from the EPrints database.
+
Disconnects from the EPrints database. Should always be done before  any script exits.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 123: Line 234:
  
 
  $db-&gt;set_debug( $boolean )
 
  $db-&gt;set_debug( $boolean )
Set the SQL debug mode to true or false.
+
Set the SQL debug mode to <tt>true</tt> or <tt>false</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 134: Line 247:
  
 
  $db-&gt;set_version( $versionid );
 
  $db-&gt;set_version( $versionid );
Set the version id table in the SQL database to the given value (used by the upgrade script).
+
Set the version id table in the SQL database to the given <tt>versionid</tt> (used by the upgrade script).
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 145: Line 260:
  
 
  $version = $db-&gt;get_version
 
  $version = $db-&gt;get_version
Returns the current database schema version.
+
Returns the current database schema version.  
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 156: Line 273:
  
 
  $boolean = $db-&gt;is_latest_version
 
  $boolean = $db-&gt;is_latest_version
Return true if the database schema is in the correct configuration for this version of eprints. Otherwise false.
+
Return <tt>true</tt> if the SQL tables are in the correct configuration for this edition of eprints. Otherwise, <tt>false</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 169: Line 288:
 
Return the database server version.
 
Return the database server version.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 177: Line 298:
 
====get_default_charset====
 
====get_default_charset====
  
  $charset = $db-&gt;get_default_charset( LANGUAGE )
+
  $charset = $db-&gt;get_default_charset
Return the character set to use for LANGUAGE.
+
Return the character set to use.
  
Returns undef if character sets are unsupported.
+
Returns <tt>undef</tt> if character sets are unsupported.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 190: Line 313:
 
====get_default_collation====
 
====get_default_collation====
  
  $collation = $db-&gt;get_default_collation( LANGUAGE )
+
  $collation = $db-&gt;get_default_collation( $lang )
Return the collation to use for LANGUAGE.
+
Return the collation to use for language <tt>$lang</tt>.
  
Returns undef if collation is unsupported.
+
Returns <tt>undef</tt> if collation is unsupported.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 206: Line 331:
 
Return the database driver name.
 
Return the database driver name.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 214: Line 341:
 
====error====
 
====error====
  
  $errstr = $db-&gt;error
+
  $errstr = $db-&gt;error()
 
Return a string describing the last SQL error.
 
Return a string describing the last SQL error.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 225: Line 354:
 
====retry_error====
 
====retry_error====
  
  $bool = $db-&gt;retry_error
+
  $boolean = $db-&gt;retry_error()
Returns true if the current error is a retry error.
+
Returns a boolean for whether the database error is a retry error.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 236: Line 367:
 
====duplicate_error====
 
====duplicate_error====
  
  $bool = $db-&gt;duplicate_error
+
  $boolean = $db-&gt;duplicate_error()
Returns true if the current error is a PRIMARY KEY or UNIQUE error.
+
Returns a boolean for whether the database error is a duplicate error.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 247: Line 380:
 
====begin====
 
====begin====
  
  $db-&gt;begin
+
  $db-&gt;begin()
 
Begin a transaction.
 
Begin a transaction.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 258: Line 393:
 
====commit====
 
====commit====
  
  $db-&gt;commit
+
  $db-&gt;commit()
 
Commit the previously begun transaction.
 
Commit the previously begun transaction.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 269: Line 406:
 
====rollback====
 
====rollback====
  
  $db-&gt;rollback
+
  $db-&gt;rollback()
Roll-back the current transaction.
+
Rollback the partially completed transaction.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 280: Line 419:
 
====type_info====
 
====type_info====
  
  $type_info = $db-&gt;type_info( DATA_TYPE )
+
  $type_info = $db-&gt;type_info( $data_type )
 
See {{API:PodLink|file=DBI|package_name=DBI|section=type_info|text=DBI/type_info}}.
 
See {{API:PodLink|file=DBI|package_name=DBI|section=type_info|text=DBI/type_info}}.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 291: Line 432:
 
====get_column_type====
 
====get_column_type====
  
  $real_type = $db-&gt;get_column_type( NAME, TYPE, NOT_NULL, [ LENGTH/PRECISION ], [ SCALE ], %opts )
+
  $real_type = $db-&gt;get_column_type( $name, $data_type, $not_null, [ $length, $scale, %opts ] )
Returns a SQL column definition for NAME of type TYPE, usually something like:
+
Returns a SQL column definition for <tt>$name</tt> of type <tt>$type</tt>, usually something like:
  
 
   $name $type($length,$scale) [ NOT NULL ]
 
   $name $type($length,$scale) [ NOT NULL ]
 
    
 
    
If NOT_NULL is true column will be set "not null".
+
If <tt>$not_null</tt> is <tt>true</tt> column will be set to <tt>NOT NULL</tt>.
  
LENGTH/PRECISION and SCALE control the maximum lengths of character or decimal types (see below).
+
<tt>$length</tt> and <tt>$scale</tt> control the maximum lengths of character or decimal types (see below).
  
 
Other options available to refine the column definition:
 
Other options available to refine the column definition:
Line 305: Line 446:
 
   sorted - whether this column will be used to order by
 
   sorted - whether this column will be used to order by
 
    
 
    
'''langid''' is mapped to real database values by the "dblanguages" configuration option. The database may not be able to order the request column type in which case, if '''sorted''' is true, the database may use a substitute column type.
+
'''langid''' is mapped to real database values by the "dblanguages" configuration option. The database may not be able to order the request column type in which case, if <tt>sorted</tt> is true, the database may use a substitute column type.
  
TYPE is the SQL type. The types are constants defined by this module, to import them use:
+
<tt>$data_type</tt> is the SQL type. The types are constants defined by this module, to import them use:
  
 
   use EPrints::Database qw( :sql_types );
 
   use EPrints::Database qw( :sql_types );
 
    
 
    
Supported types (n = requires LENGTH argument):
+
Supported types (n = requires <tt>$length</tt> argument):
  
Character data: SQL_VARCHAR(n), SQL_LONGVARCHAR, SQL_CLOB.
+
Character data: <tt>SQL_VARCHAR(n)</tt>, <tt>SQL_LONGVARCHAR</tt>, <tt>SQL_CLOB</tt>.
  
Binary data: SQL_VARBINARY(n), SQL_LONGVARBINARY.
+
Binary data: <tt>SQL_VARBINARY(n)</tt>, <tt>SQL_LONGVARBINARY</tt>.
  
Integer data: SQL_TINYINT, SQL_SMALLINT, SQL_INTEGER, SQL_BIGINT.
+
Integer data: <tt>SQL_TINYINT</tt>, <tt>SQL_SMALLINT</tt>, <tt>SQL_INTEGER</tt>, <tt>SQL_BIGINT</tt>.
  
Floating-point data: SQL_REAL, SQL_DOUBLE.
+
Floating-point data: <tt>SQL_REAL</tt>, <tt>SQL_DOUBLE</tt>.
  
Time data: SQL_DATE, SQL_TIME.
+
Time data: <tt>SQL_DATE</tt>, <tt>SQL_TIME</tt>.
  
 
The actual column types used will be database-specific.
 
The actual column types used will be database-specific.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 330: Line 473:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=head_schema_manipulation -->
+
<!-- Pod2Wiki=head_basic_sql_operations -->
===Schema Manipulation===
+
===Basic SQL Operations===
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 337: Line 482:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_archive_tables -->
+
<!-- Pod2Wiki=item_do -->
====create_archive_tables====
+
====do====
  
  $success = $db-&gt;create_archive_tables
+
  $success = $db-&gt;do( $sql )
Create all the SQL tables for each dataset.
+
Execute the given <tt>$sql</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 348: Line 495:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_drop_archive_tables -->
+
<!-- Pod2Wiki=item_prepare -->
====drop_archive_tables====
+
====prepare====
 +
 
 +
$sth = $db-&gt;prepare( $sql )
 +
Prepare the given <tt>$sql</tt> and return a handle on it.
  
$db-&gt;drop_archive_tables()
+
Use the <tt>execute</tt> method on the returned {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}} handle to execute the SQL:
Destroy all tables used by eprints in the database.
 
  
 +
  my $sth = $db-&gt;prepare_select( "SELECT 'Hello, World'" );
 +
  $sth-&gt;execute;
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 359: Line 513:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_version_table -->
+
<!-- Pod2Wiki=item_prepare_select -->
====create_version_table====
+
====prepare_select====
 +
 
 +
$sth = $db-&gt;prepare_select( $sql, [ %options ] )
 +
Prepare a <tt>SELECT</tt> statement <tt>$sql</tt> and return a handle to it. After  preparing a statement use <tt>execute()</tt> to execute it.
 +
 
 +
Returns a {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}} statement handle.
 +
 
 +
The <tt>LIMIT</tt> SQL keyword is not universally supported, to specify this  use the <tt>limit</tt> option.
  
$db-&gt;create_version_table
+
Options:
Make the version table (and set the only value to be the current version of eprints).
 
  
 +
  limit - limit the number of rows returned
 +
  offset - return '''limit''' number of rows after offset
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 370: Line 535:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_drop_version_table -->
+
<!-- Pod2Wiki=item_execute -->
====drop_version_table====
+
====execute====
  
  $db-&gt;drop_version_table
+
  $success = $db-&gt;execute( $sth, $sql )
Drop the version table.
+
Execute the SQL prepared earlier in the <tt>$sth</tt>. <tt>$sql</tt> is only  required for debugging purposes.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 381: Line 548:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_dataset_tables -->
+
<!-- Pod2Wiki=item_update -->
====create_dataset_tables====
+
====update====
 +
 
 +
$success = $db-&gt;update( $dataset, $data, $changed )
 +
Updates a <tt>EPrints::DataObj</tt> from <tt>$dataset</tt> with the given <tt>$data</tt>.  The primary key field (e.g. <tt>eprintid</tt>) value must be included.
  
  $success = $db-&gt;create_dataset_tables( $dataset )
+
Updates the <tt>ordervalues</tt> if the <tt>$dataset</tt> is {{API:PodLink|file=EPrints/DataSet#ordered|package_name=EPrints::DataSet#ordered|section=|text=ordered}}.
Create all the SQL tables for a single dataset.
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 392: Line 563:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_drop_dataset_tables -->
+
<!-- Pod2Wiki=item__update -->
====drop_dataset_tables====
+
====_update====
 +
 
 +
$rows = $db-&gt;_update( $tablename, $keycols, $keyvals, $columns, @values )
 +
Updates <tt>$columns</tt> in <tt>$tablename</tt> with <tt>@values</tt> where <tt>$keycols</tt>  equals <tt>$keyvals</tt> and returns the number of rows affected.
 +
 
 +
N.B. If no rows are affected, the result is still <tt>true</tt>,  see {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}}'s <tt>execute()</tt> method.
  
$db-&gt;drop_dataset_tables( $dataset )
+
This is an internal method.
Drop all the SQL tables for a single dataset.
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 403: Line 580:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_dataset_index_tables -->
+
<!-- Pod2Wiki=item_insert -->
====create_dataset_index_tables====
+
====insert====
  
  $success = $db-&gt;create_dataset_index_tables( $dataset )
+
  $success = $db-&gt;insert( $table, $columns, @values )
Create all the index tables for a single dataset.
+
Inserts <tt>@values</tt> into the table <tt>$table</tt>. If <tt>$columns</tt> is defined  it will be used as a list of columns to insert into. <tt>@values</tt> is a list of arrays containing values to insert. These will be quoted before  insertion.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 414: Line 593:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_dataset_ordervalues_tables -->
+
<!-- Pod2Wiki=item_insert_quoted -->
====create_dataset_ordervalues_tables====
+
====insert_quoted====
  
  $success = $db-&gt;create_dataset_ordervalues_tables( $dataset )
+
  $success = $db-&gt;insert_quoted( $table, $columns, @qvalues )
Create all the ordervalues tables for a single dataset.
+
Inserts values into the table <tt>$table</tt>. If <tt>$columns</tt> is defined it  will be used as a list of columns to insert into. <tt>@qvalues</tt> is a list of arrays containing values to insert. These will NOT be quoted  before insertion - care must be exercised!
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 425: Line 606:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_has_dataset -->
+
<!-- Pod2Wiki=item_delete_from -->
====has_dataset====
+
====delete_from====
  
  $db-&gt;has_dataset( $dataset )
+
  $success = $db-&gt;delete_from( $table, $columns, @values )
Returns true if $dataset exists in the database or has no database tables.
+
Perform a SQL <tt>DELETE FROM</tt> <tt>$table</tt> using <tt>$columns</tt> to build a  where clause. <tt>@values</tt> is a list of array references of values in the same order as <tt>$columns</tt>.
  
This does not check that all fields are configured - see has_field().
+
If you want to clear a table completely use <tt>clear_table()</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 438: Line 621:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_has_field -->
+
<!-- Pod2Wiki=item_count_table -->
====has_field====
+
====count_table====
  
  $db-&gt;has_field( $dataset, $field )
+
  $n = $db-&gt;count_table( $tablename )
Returns true if $field is in the database for $dataset.
+
Return the number of rows in the specified SQL table with  <tt>$tablename</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 449: Line 634:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_add_field -->
+
<!-- Pod2Wiki=item_clear_table -->
====add_field====
+
====clear_table====
 +
 
 +
$db-&gt;clear_table( $tablename )
 +
Clears all records from the given table with <tt>$tablename</tt>. Use with  caution!
  
  $db-&gt;add_field( $dataset, $field [, $force ] )
+
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '>
Add $field to $dataset's tables.
+
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
  
If $force is true will modify/replace an existing column (use with care!).
 
  
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=head_quoting -->
 +
===Quoting===
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 462: Line 656:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_remove_field -->
+
<!-- Pod2Wiki=item_prep_int -->
====remove_field====
+
====prep_int====
  
  $db-&gt;remove_field( $dataset, $field )
+
  $mungedvalue = EPrints::Database::prep_int( $value )
Remove $field from $dataset's tables.
+
Escape numerical <tt>$value</tt> for an SQL statement. <tt>undef</tt> becomes  <tt>NULL</tt>. Anything else becomes a number (zero if needed).
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 473: Line 669:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_rename_field -->
+
<!-- Pod2Wiki=item_prep_value -->
====rename_field====
+
====prep_value====
 +
 
 +
$mungedvalue = EPrints::Database::prep_value( $value )
 +
Escape <tt>$value</tt> for an SQL statement. Modify value such that <tt>"</tt>  becomes <tt>\"</tt> and <tt>\</tt> becomes <tt>\\</tt> and <tt>'</tt> becomes <tt>\'</tt>.
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 
  
$ok = $db-&gt;rename_field( $dataset, $field, $old_name )
+
<!-- Pod2Wiki= -->
Rename a $field in the database from it's old name $old_name.
+
</div>
 +
<!-- Pod2Wiki=item_prep_like_value -->
 +
====prep_like_value====
  
Returns true if the field was successfully renamed.
+
$mungedvalue = EPrints::Database::prep_like_value( $value )
 +
Escape <tt>$value</tt> for an SQL <tt>LIKE</tt> clause. In addition to <tt>'</tt> <tt>"</tt>  and <tt>\</tt> also escapes <tt>%</tt> and <tt>_</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 486: Line 695:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_table -->
+
<!-- Pod2Wiki=item_quote_value -->
====create_table====
+
====quote_value====
 +
 
 +
$str = $db-&gt;quote_value( $value )
 +
Return a quoted version of <tt>$value</tt>. To quote a <tt>LIKE</tt> value  you should use:
 +
 
 +
$db-&gt;quote_value( EPrints::Database::prep_like_value( $foo ) . '%' );
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 
  
$success = $db-&gt;create_table( $tablename, $setkey, @fields );
+
<!-- Pod2Wiki= -->
Creates a new table $tablename based on @fields.
+
</div>
 +
<!-- Pod2Wiki=item_quote_int -->
 +
====quote_int====
  
The first $setkey number of fields are used for a primary key.
+
$str = $db-&gt;quote_int( $value )
 +
Return a quoted integer for <tt>$value</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 499: Line 723:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_foreign_key -->
+
<!-- Pod2Wiki=item_quote_binary -->
====create_foreign_key====
+
====quote_binary====
  
  $ok = $db-&gt;create_foreign_key( $main_table, $aux_table, $key_field )
+
  $str = $db-&gt;quote_binary( $bytes )
Create a foreign key relationship between $main_table and $aux_table using the $key_field.
+
Some databases (Oracle/PostgreSQL) require transforms of binary data  to work correctly.
  
This will cause records in $aux_table to be deleted if the equivalent record is deleted from $main_table.
+
This method should be called on data <tt>$bytes</tt> containing null bytes  or back-slashes before being passed on [[API:EPrints/Database#quote_value|quote_value]].
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 512: Line 738:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_counters -->
+
<!-- Pod2Wiki=item_quote_ordervalue -->
====create_counters====
+
====quote_ordervalue====
  
  $success = $db-&gt;create_counters
+
  $str = $db-&gt;quote_ordervalue( $field, $value )
Create the counters used to store the highest current id of eprints, users etc.
+
Some databases (Oracle) can't order by <tt>CLOB</tt>s so need special  treatment when creating the ordervalues tables. This method allows any  fixing-up required for string data <tt>$value</tt> for <tt>$field</tt> before it's  inserted.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 523: Line 751:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_has_counter -->
+
<!-- Pod2Wiki=item_quote_identifier -->
====has_counter====
+
====quote_identifier====
  
  $success = $db-&gt;has_counter( $counter )
+
  $str = $db-&gt;quote_identifier( @parts )
Returns true if $counter exists.
+
Quote a database identifier (e.g. table names). Multiple <tt>@parts</tt>  will be joined by dots (<tt>.</tt>).
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 534: Line 764:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_counter -->
+
<!-- Pod2Wiki=item_prepare_regexp -->
====create_counter====
+
====prepare_regexp====
  
  $success = $db-&gt;create_counter( $name )
+
  $sql = $db-&gt;prepare_regexp( $col, $value )
Create and initialise to zero a new counter called $name.
+
The syntax used for regular expressions varies across databases. This  method takes two quoted string and returns a SQL expression that will  apply the quoted regexp <tt>$value</tt> to the quoted column <tt>$col</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 545: Line 777:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_remove_counters -->
+
<!-- Pod2Wiki=item_sql_as -->
====remove_counters====
+
====sql_as====
  
  $success = $db-&gt;remove_counters
+
  $sql = $db-&gt;sql_AS()
Destroy all counters.
+
Returns the syntactic glue to use when aliasing. SQL 92 databases will  happily use <tt>AS</tt> but some databases (Oracle) will not accept it.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 556: Line 790:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_drop_counter -->
+
<!-- Pod2Wiki=item_sql_like -->
====drop_counter====
+
====sql_like====
 +
 
 +
$sql = $db-&gt;sql_LIKE()
 +
Returns the syntactic glue to use when making a case-insensitive  <tt>LIKE</tt>. PostgreSQL requires <tt>ILIKE</tt> while everything else uses  <tt>LIKE</tt> and the column collation.
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
  
$success = $db-&gt;drop_counter( $name )
 
Destroy the counter named $name.
 
  
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=head_counters -->
 +
===Counters===
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 571: Line 816:
  
 
  $n = $db-&gt;counter_current( $counter )
 
  $n = $db-&gt;counter_current( $counter )
Return the value of the previous counter_next on $counter.
+
Return the value of the previous counter_next on <tt>$counter</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 582: Line 829:
  
 
  $n = $db-&gt;counter_next( $counter )
 
  $n = $db-&gt;counter_next( $counter )
Return the next unused value for the named counter. Returns undef if the counter doesn't exist.
+
Return the next unused value for the named <tt>$counter</tt>. Returns <tt>undef</tt> if the <tt>$counter</tt> doesn't exist.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 593: Line 842:
  
 
  $db-&gt;counter_minimum( $counter, $value )
 
  $db-&gt;counter_minimum( $counter, $value )
Ensure that the counter is set no lower than $value. This is used when importing eprints which may not be in scrict sequence.
+
Ensure that the <tt>$counter</tt> is set no lower than <tt>$value</tt>. This is used when importing eprints which may not be in scrict sequence.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 604: Line 855:
  
 
  $db-&gt;counter_reset( $counter )
 
  $db-&gt;counter_reset( $counter )
Reset the counter. Use with caution.
+
Reset the <tt>$counter</tt>. Use with caution.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 615: Line 868:
  
 
  $n = $db-&gt;next_doc_pos( $eprintid )
 
  $n = $db-&gt;next_doc_pos( $eprintid )
Return the next unused document pos for the given eprintid.
+
Return the next unused document position for the given <tt>$eprintid</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 622: Line 877:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=head_sql_utility_methods -->
+
<!-- Pod2Wiki=head_dataset_data -->
===SQL utility methods===
+
===Dataset Data===
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 629: Line 886:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_do -->
+
<!-- Pod2Wiki=item_exists -->
====do====
+
====exists====
  
  $success = $db-&gt;do( $sql )
+
  $boolean = $db-&gt;exists( $dataset, $id )
Execute the given SQL.
+
Return <tt>true</tt> if there exists an [[API:EPrints/DataObj|EPrints::DataObj]] from the <tt>$dataset</tt> with its primary key set to <tt>$id</tt>. Otherwise, return  <tt>false</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 640: Line 899:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_prepare -->
+
<!-- Pod2Wiki=item_add_record -->
====prepare====
+
====add_record====
 +
 
 +
$success = $db-&gt;add_record( $dataset, $data )
 +
Add the given <tt>$data</tt> as a new record in the given <tt>$dataset</tt>.  <tt>$data</tt> is a reference to a hash containing values structured for a  record in the that <tt>$dataset</tt>.
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 
  
$sth = $db-&gt;prepare( $sql )
+
<!-- Pod2Wiki= -->
Prepare the SQL statement $sql for execution.
+
</div>
 +
<!-- Pod2Wiki=item_remove -->
 +
====remove====
  
Use the <tt>execute</tt> method on the returned {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}} handle to execute the SQL:
+
$success = $db-&gt;remove( $dataset, $id )
 +
Attempts to remove the [[API:EPrints/DataObj|EPrints::DataObj]] with the primary key <tt>$id</tt> from the specified <tt>$dataset</tt>.
  
  my $sth = $db-&gt;prepare_select( "SELECT 'Hello, World'" );
+
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '>
  $sth-&gt;execute;
+
<span style='display:none'>User Comments</span>
 
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 656: Line 925:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_prepare_select -->
+
<!-- Pod2Wiki=head_searching_caching_and_object_retrieval -->
====prepare_select====
+
===Searching, caching and object retrieval===
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
  
$sth = $db-&gt;prepare_select( $sql [, %options ] )
 
Prepare a SELECT statement $sql for execution.
 
  
Returns a {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}} statement handle.
+
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_cache_exp -->
 +
====cache_exp====
  
The LIMIT SQL keyword is not universally supported, to specify a LIMIT you must use the '''limit''' option.
+
$searchexp = $db-&gt;cache_exp( $cacheid )
 +
Return the serialised search of a the cached search with <tt>$cacheid</tt>. Return <tt>undef</tt> if the <tt>$cacheid</tt> is invalid or expired.
  
Options:
+
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 
+
<span style='display:none'>User Comments</span>
  limit - limit the number of rows returned
 
  offset - return '''limit''' number of rows after offset
 
 
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 676: Line 947:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_has_sequence -->
+
<!-- Pod2Wiki=item_cache -->
====has_sequence====
+
====cache====
 +
 
 +
$cacheid = $db-&gt;cache( $searchexp, $dataset, $srctable, [$order], [$list] )
 +
Create a cache of the specified search expression from the SQL table <tt>$srctable</tt>.
 +
 
 +
If <tt>$order</tt> is set then the cache is ordered by the specified fields.  For example <tt>-year/title</tt> orders by year (descending). Records with  the same year are ordered by title.
 +
 
 +
If <tt>$srctable</tt> is set to <tt>LIST</tt> then order is ignored and the list  of IDs is taken from the array reference <tt>$list</tt>.
  
$boolean = $db-&gt;has_sequence( $name )
+
If <tt>$srctable</tt> is set to <tt>ALL</tt> every matching record from $dataset  is added to the cache, optionally ordered by <tt>$order</tt>.
Return true if a sequence of the given name exists in the database.
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 687: Line 966:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_sequence -->
+
<!-- Pod2Wiki=item_cache_table -->
====create_sequence====
+
====cache_table====
  
  $success = $db-&gt;create_sequence( $seq_name )
+
  $tablename = $db-&gt;cache_table( $id )
Creates a new sequence object initialised to zero.
+
Return the name of the SQL table used to store the cache with <tt>$id</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 698: Line 979:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_drop_sequence -->
+
<!-- Pod2Wiki=item_cache_userid -->
====drop_sequence====
+
====cache_userid====
  
  $success = $db-&gt;drop_sequence( $seq_name )
+
  $userid = $db-&gt;cache_userid( $id )
Deletes a sequence object.
+
Returns the <tt>userid</tt> associated with the cache with <tt>$id</tt> if that  cache exists.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 709: Line 992:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_drop_column -->
+
<!-- Pod2Wiki=item_get_cachemap -->
====drop_column====
+
====get_cachemap====
  
  $success = $db-&gt;drop_column( $table, $column )
+
  $cachemap = $db-&gt;get_cachemap( $id )
Drops a column from a table.
+
Return the cachemap with $&lt;id&gt;.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 720: Line 1,005:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_get_primary_key -->
+
<!-- Pod2Wiki=item_search -->
====get_primary_key====
+
====search====
  
  @columns = $db-&gt;get_primary_key( $tablename )
+
  $ids = $db-&gt;search( $keyfield, $tables, $conditions, [ $main_table_alias ] )
Returns the list of column names that comprise the primary key for $tablename.
+
Return a reference to an array of <tt>$keyfield</tt> IDs - the results of the search specified by <tt>$conditions</tt> across the tables specified in  the <tt>$tables</tt> hash where keys are tables aliases and values are table  names.  
  
Returns empty list if no primary key exists.
+
If no <tt>$main_table_alias</tt> is specified then <tt>M</tt> is assumed.  
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 733: Line 1,020:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_primary_key -->
+
<!-- Pod2Wiki=item_drop_cache -->
====create_primary_key====
+
====drop_cache====
  
  $db-&gt;create_primary_key( $tablename, @cols )
+
  $db-&gt;drop_cache( $id )
Create a PRIMARY KEY on $tablename over @cols.
+
Remove the cached search with the given <tt>$id</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 744: Line 1,033:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_index -->
+
<!-- Pod2Wiki=item_from_cache -->
====create_index====
+
====from_cache====
 +
 
 +
$items = $db-&gt;from_cache( $dataset, $cacheid, [ $offset, $count, $justids ] )
 +
Return a reference to an array containing all the items from the given  <tt>$dataset</tt> that have IDs in the cache specified by <tt>$cacheid</tt>. The  cache may be specified either by ID or serialised search expression.
 +
 
 +
<tt>$offset</tt> is an offset from the start of the cache and <tt>$count</tt> is  the number of records to return.
  
$success = $db-&gt;create_index( $tablename, @columns )
+
If <tt>$justids</tt> is <tt>true</tt> then it returns just a reference to an array  of the record IDs and not the objects themselves.
Creates an index over @columns for $tablename. Returns true on success.
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 755: Line 1,050:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_create_unique_index -->
+
<!-- Pod2Wiki=item_drop_orphan_cache_tables -->
====create_unique_index====
+
====drop_orphan_cache_tables====
  
  $success = $db-&gt;create_unique_index( $tablename, @columns )
+
  $c = $db-&gt;drop_orphan_cache_tables
Creates a unique index over @columns for $tablename. Returns true on success.
+
Drop tables called <tt>cacheXXX</tt> where <tt>XXX</tt> is an integer. Returns the  number of cache tables dropped.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 766: Line 1,063:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_index_name -->
+
<!-- Pod2Wiki=item_get_single -->
====index_name====
+
====get_single====
 +
 
 +
$obj = $db-&gt;get_single( $dataset, $id )
 +
Return a single &lt;EPrints::DataObj&gt; from the given <tt>$dataset</tt> with primary key set to <tt>$id</tt>.
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 
  
$name = $db-&gt;index_name( $table, @columns )
+
<!-- Pod2Wiki= -->
Returns the name of the first index that starts with @columns on the $table table.
+
</div>
 +
<!-- Pod2Wiki=item_get_all -->
 +
====get_all====
  
Returns undef if no index exists.
+
$items = $db-&gt;get_all( $dataset )
 +
Returns a reference to an array with all the &lt;EPrints::DataObj&gt;s from  the given <tt>$dataset</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 779: Line 1,089:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item__update -->
+
<!-- Pod2Wiki=item_get_cache_ids -->
====_update====
+
====get_cache_ids====
 +
 
 +
@ids = $db-&gt;get_cache_ids( $dataset, $cachemap, $offset, $count )
 +
Returns a list of <tt>$count</tt> IDs from <tt>$cache_id</tt> starting at  <tt>$offset</tt> and in the order in the <tt>$cachemap</tt>.
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
  
$rows = $db-&gt;_update( $tablename, $keycols, $keyvals, $columns, @values )
 
UPDATES $tablename where $keycols equals $keyvals and returns the number of rows affected.
 
  
Note! If no rows are affected the result is still 'true', see DBI's execute() method.
+
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_get_dataobjs -->
 +
====get_dataobjs====
  
This method is internal.
+
@dataobjs = $db-&gt;get_dataobjs( $dataset, [ $id, $id, ... ] )
 +
Retrieves the records in <tt>$dataset</tt> with the given <tt>$id</tt>(s). If an  <tt>$id</tt> doesn't exist in the database it will be ignored.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 794: Line 1,115:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_insert -->
+
<!-- Pod2Wiki=item_get_values -->
====insert====
+
====get_values====
  
  $success = $db-&gt;insert( $table, $columns, @values )
+
  $values = $db-&gt;get_values( $field, $dataset )
Inserts values into the table $table. If $columns is defined it will be used as a list of columns to insert into. @values is a list of arrays containing values to insert.
+
Return a reference to an array of all the distinct values of the [[API:EPrints/MetaField|EPrints::MetaField]] <tt>$field</tt> for the <tt>$dataset</tt> specified.
 
 
Values will be quoted before insertion.
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 807: Line 1,128:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_insert_quoted -->
+
<!-- Pod2Wiki=item_sort_values -->
====insert_quoted====
+
====sort_values====
  
  $success = $db-&gt;insert_quoted( $table, $columns, @qvalues )
+
  $values = $db-&gt;sort_values( $field, $values, [ $langid ] )
Inserts values into the table $table. If $columns is defined it will be used as a list of columns to insert into. @qvalues is a list of arrays containing values to insert.
+
Sorts and returns the list of <tt>$values</tt> using the database.
  
Values will NOT be quoted before insertion - care must be exercised!
+
<tt>$field</tt> is used to get the order value for each value. <tt>$langid</tt>  (or $session-&gt;get_langid if unset) is used to determine the database  collation to use when sorting the resulting order values.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 820: Line 1,143:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_delete_from -->
+
<!-- Pod2Wiki=item_get_ids_by_field_values -->
====delete_from====
+
====get_ids_by_field_values====
 +
 
 +
$ids = $db-&gt;get_ids_by_field_values( $field, $dataset, [ %opts ] )
 +
Return a reference to a hash table where the keys are specified  <tt>$datasets</tt>'s <tt>$field</tt> value IDs and the values are references to  arrays of IDs.
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 
  
$success = $db-&gt;delete_from( $table, $columns, @values )
+
<!-- Pod2Wiki= -->
Perform a SQL DELETE FROM $table using $columns to build a where clause. @values is a list of array references of values in the same order as $columns.
+
</div>
 +
<!-- Pod2Wiki=item_dequeue_events -->
 +
====dequeue_events====
  
If you want to clear a table completely use clear_table().
+
@events = $db-&gt;dequeue_events( $n )
 +
Attempt to dequeue upto <tt>$n</tt> events. May return between <tt>0</tt> and  <tt>$n</tt> events depending on parallel processes and how many events are  remaining in the queue.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 833: Line 1,169:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_count_table -->
+
<!-- Pod2Wiki=item_ci_lookup -->
====count_table====
+
====ci_lookup====
 +
 
 +
$value = $db-&gt;ci_lookup( $field, $value )
 +
This is a hacky method to support case-insensitive lookup for usernames, emails, etc.  It returns the actual case-sensitive version of <tt>$value</tt> if there is a case-insensitive match for the <tt>$field</tt>.
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
  
$n = $db-&gt;count_table( $tablename )
 
Return the number of rows in the specified SQL table.
 
  
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=head_password_validation_and_secret_fields -->
 +
===Password Validation and Secret Fields===
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 844: Line 1,191:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_has_table -->
+
<!-- Pod2Wiki=item_valid_login -->
====has_table====
+
====valid_login====
  
  $boolean = $db-&gt;has_table( $tablename )
+
  $db-&gt;valid_login( $username, $password )
Return true if a table of the given name exists in the database.
+
Returns whether the clear-text <tt>$password</tt> matches the stored crypted  password for the <tt>$username</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 855: Line 1,204:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_has_column -->
+
<!-- Pod2Wiki=item_secret_matches -->
====has_column====
+
====secret_matches====
 +
 
 +
$db-&gt;secret_matches( $dataobj, $fieldname, $token [, $callback ] )
 +
Returns whether the clear-text <tt>$token</tt> matches the stored crypted  field with <tt>$fieldname</tt> for the <tt>$dataobj</tt> according to the  <tt>$callback</tt> function.
  
$boolean = $db-&gt;has_column( $tablename, $columnname )
+
If not set, <tt>$callback</tt> defaults to [[API:EPrints/Utils#crypt_equals|EPrints::Utils#crypt_equals]].
Return true if the a table of the given name has a column named $columnname in the database.
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 866: Line 1,219:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_drop_table -->
+
<!-- Pod2Wiki=item_is_secret_set -->
====drop_table====
+
====is_secret_set====
  
  $db-&gt;drop_table( $tablename [, $tablename2 ] )
+
  $boolean = $db-&gt;is_secret_set( $dataobj, $fieldname )
Delete the named table(s). Use with caution!
+
Returns a boolean for whether the secret <tt>$fieldname</tt> for <tt>$dataobj</tt>  has a value set.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 877: Line 1,232:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_clear_table -->
+
<!-- Pod2Wiki=head_database_schema_manipulation -->
====clear_table====
+
===Database Schema Manipulation===
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
 +
 
 +
 
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_has_sequence -->
 +
====has_sequence====
  
  $db-&gt;clear_table( $tablename )
+
  $boolean = $db-&gt;has_sequence( $name )
Clears all records from the given table, use with caution!
+
Returns <tt>true</tt> if a sequence of the given <tt>$name</tt> exists in the  database. Otherwise, returns <tt>false</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 888: Line 1,254:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_rename_table -->
+
<!-- Pod2Wiki=item_create_sequence -->
====rename_table====
+
====create_sequence====
  
  $db-&gt;rename_table( $tablename, $newtablename )
+
  $success = $db-&gt;create_sequence( $name )
Renames the table from the old name to the new one.
+
Creates a new sequence object with <tt>$name</tt> and initialises to zero.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 899: Line 1,267:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_swap_table -->
+
<!-- Pod2Wiki=item_drop_sequence -->
====swap_table====
+
====drop_sequence====
  
  $db-&gt;swap_table( $table_a, $table_b )
+
  $success = $db-&gt;drop_sequence( $name )
Swap table a and table b.  
+
Deletes a sequence object with <tt>$name</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 910: Line 1,280:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_get_tables -->
+
<!-- Pod2Wiki=item_has_column -->
====get_tables====
+
====has_column====
  
  @tables = $db-&gt;get_tables
+
  $boolean = $db-&gt;has_column( $table, $column )
Return a list of all the tables in the database.
+
Return <tt>true</tt> if the named <tt>$table</tt> has the named <tt>$column</tt> in the database.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 921: Line 1,293:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=head_quoting_values -->
+
<!-- Pod2Wiki=item_drop_column -->
===Quoting Values===
+
====drop_column====
 +
 
 +
$success = $db-&gt;drop_column( $table, $column )
 +
Drops the named <tt>$column</tt> from the named <tt>$table</tt>.
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 928: Line 1,306:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_prep_int -->
+
<!-- Pod2Wiki=item_get_primary_key -->
====prep_int====
+
====get_primary_key====
 +
 
 +
@columns = $db-&gt;get_primary_key( $tablename )
 +
Returns a list of column names that comprise the primary key for  the <tt>$tablename</tt>.
  
$mungedvalue = EPrints::Database::prep_int( $value )
+
Returns an empty list if no primary key exists.
Escape a numerical value for SQL. undef becomes NULL. Anything else becomes a number (zero if needed).
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 939: Line 1,321:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_prep_value -->
+
<!-- Pod2Wiki=item_index_name -->
====prep_value====
+
====index_name====
 +
 
 +
$name = $db-&gt;index_name( $table, @cols )
 +
Returns the name of the first index that starts with named columns  <tt>@cols</tt> in the named <tt>$table</tt>.
  
$mungedvalue = EPrints::Database::prep_value( $value )
+
Returns <tt>undef</tt> if no index exists.
Escape a value for SQL. Modify value such that " becomes \" and \  becomes \\ and ' becomes \'
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 950: Line 1,336:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_prep_like_value -->
+
<!-- Pod2Wiki=item_get_index_ids -->
====prep_like_value====
+
====get_index_ids====
  
  $mungedvalue = EPrints::Database::prep_like_value( $value )
+
  $ids = $db-&gt;get_index_ids( $table, $condition )
Escape an value for an SQL like field. In addition to ' " and \ also  escapes % and _
+
Return a reference to an array of the distinct primary keys from the named SQL <tt>$table</tt> which match the specified <tt>$condition</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 961: Line 1,349:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_quote_value -->
+
<!-- Pod2Wiki=item_create_index -->
====quote_value====
+
====create_index====
  
  $str = $db-&gt;quote_value( $value )
+
  $success = $db-&gt;create_index( $table, @columns )
Return a quoted value. To quote a 'like' value you should do:
+
Creates an index over <tt>@columns</tt> for named <tt>$table</tt>. Returns <tt>true</tt>  on success, <tt>false</tt> otherwise.
  
my $str = $database-&gt;quote_value( EPrints::Database::prep_like_value( $foo ) . '%' );
+
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 
+
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 974: Line 1,362:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_quote_int -->
+
<!-- Pod2Wiki=item_create_unique_index -->
====quote_int====
+
====create_unique_index====
  
  $str = $db-&gt;quote_int( $value )
+
  $success = $db-&gt;create_unique_index( $tablename, @columns )
Return a quoted integer value
+
Creates a unique index over <tt>@columns</tt> for named <tt>$table</tt>. Returns  <tt>true</tt> on success, <tt>false</tt> otherwise.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 985: Line 1,375:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_quote_binary -->
+
<!-- Pod2Wiki=item_create_foreign_key -->
====quote_binary====
+
====create_foreign_key====
  
  $str = $db-&gt;quote_binary( $bytes )
+
  $ok = $db-&gt;create_foreign_key( $main_table, $table, $key_field )
Some databases (Oracle/PostgreSQL) require transforms of binary data to work correctly.
+
Create a foreign key relationship between named <tt>$main_table</tt> and  named <tt>$table</tt> using <tt>$key_field</tt>.
  
This method should be called on data containing nul bytes or back-slashes before being passed on [[API:EPrints/Database#quote_value|quote_value]].
+
This will cause records in <tt>$table</tt> to be deleted if the equivalent  record is deleted from <tt>$main_table</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 998: Line 1,390:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_quote_ordervalue -->
+
<!-- Pod2Wiki=item_get_tables -->
====quote_ordervalue====
+
====get_tables====
 +
 
 +
@tables = $db-&gt;get_tables( [ $dbname ] )
 +
Returns a list of all the tables in the database. 
  
$str = $db-&gt;quote_ordervalue( $field, $value )
+
<tt>$dbname</tt> specifies a particular database name of current connection has access to more than one database.
Some databases (Oracle) can't order by CLOBS so need special treatment when creating the ordervalues tables. This method allows any fixing-up required for string data before it's inserted.
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,009: Line 1,405:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_quote_identifier -->
+
<!-- Pod2Wiki=item_has_table -->
====quote_identifier====
+
====has_table====
  
  $str = $db-&gt;quote_identifier( @parts )
+
  $boolean = $db-&gt;has_table( $tablename )
Quote a database identifier (e.g. table names). Multiple @parts will be joined by dot.
+
Returns boolean dependent on whether a table of the <tt>$tablename</tt>  exists in the database.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,020: Line 1,418:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_prepare_regexp -->
+
<!-- Pod2Wiki=item_create_table -->
====prepare_regexp====
+
====create_table====
 +
 
 +
$success = $db-&gt;create_table( $tablename, $setkey, @fields );
 +
Creates a new table with <tt>$tablename</tt> based on <tt>@fields</tt>.
  
$sql = $db-&gt;prepare_regexp( $quoted_column, $quoted_value )
+
The first <tt>$setkey</tt> number of fields are used for its primary key.
The syntax used for regular expressions varies across databases. This method takes two '''quoted''' values and returns a SQL expression that will apply the regexp ($quoted_value) to the column ($quoted_column).
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,031: Line 1,433:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_sql_as -->
+
<!-- Pod2Wiki=item_drop_table -->
====sql_as====
+
====drop_table====
  
  $sql = $db-&gt;sql_AS()
+
  $db-&gt;drop_table( @tables )
Returns the syntactic glue to use when aliasing. SQL 92 DBs will happilly use " AS " but some DBs (Oracle!) won't accept it.
+
Delete the named <tt>@tables</tt>. Use with caution!
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,042: Line 1,446:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_sql_like -->
+
<!-- Pod2Wiki=item_rename_table -->
====sql_like====
+
====rename_table====
  
  $sql = $db-&gt;sql_LIKE()
+
  $db-&gt;rename_table( $table_from, $table_to )
Returns the syntactic glue to use when making a case-insensitive LIKE. PostgreSQL requires "ILIKE" while everything else uses "LIKE" and the column collation.
+
Renames the table named <tt>$table_from</tt> to <tt>$table_to</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,053: Line 1,459:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=head_dataset_data -->
+
<!-- Pod2Wiki=item_swap_table -->
===Dataset Data===
+
====swap_table====
 +
 
 +
$db-&gt;swap_table( $table_a, $table_b )
 +
Renames table named <tt>$table_a</tt> to <tt>$table_b</tt> and vice-versa.
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,060: Line 1,472:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_insert_data -->
+
<!-- Pod2Wiki=head_eprints_schema_manipulation -->
====insert_data====
+
===EPrints Schema Manipulation===
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
  
$success = $db-&gt;insert_data( $dataset, $data )
 
Add the given data as a new record in the given dataset. $data is a reference to a hash containing values structured for a record in the that dataset.
 
  
Returns undef if a record already exists with the key field value in $data.
+
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_create_archive_tables -->
 +
====create_archive_tables====
  
Inserts ordervalues if the dataset is {{API:PodLink|file=EPrints/DataSet|package_name=EPrints::DataSet|section=ordered|text=ordered}}.
+
$success = $db-&gt;create_archive_tables()
 +
Create all the SQL tables for all datasets.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,075: Line 1,494:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_update_data -->
+
<!-- Pod2Wiki=item_drop_archive_tables -->
====update_data====
+
====drop_archive_tables====
  
  $success = $db-&gt;update_data( $dataset, $data, $changed )
+
  $db-&gt;drop_archive_tables()
Updates a record in the given {{API:PodLink|file=EPrints/DataSet|package_name=EPrints::DataSet|section=|text=$dataset}}. $data is a copy of the entire record's data and $changed the values that have changed.
+
Destroy all tables used by EPrints in the database.
  
If the record does not already exist or the key field is unset in $data no changes will be written.
+
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
  
Updates ordervalues if the dataset is {{API:PodLink|file=EPrints/DataSet|package_name=EPrints::DataSet|section=ordered|text=ordered}}.
 
  
 +
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_create_version_table -->
 +
====create_version_table====
 +
 +
$db-&gt;create_version_table
 +
Make the version table (and set the only value to be the current version of EPrints).
 +
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,090: Line 1,520:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_exists -->
+
<!-- Pod2Wiki=item_drop_version_table -->
====exists====
+
====drop_version_table====
  
  $boolean = $db-&gt;exists( $dataset, $id )
+
  $db-&gt;drop_version_table
Return true if a record with the given primary key exists in the dataset, otherwise false.
+
Drop the version table.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,101: Line 1,533:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_remove -->
+
<!-- Pod2Wiki=item_has_dataset -->
====remove====
+
====has_dataset====
  
  $success = $db-&gt;remove( $dataset, $id )
+
  $db-&gt;has_dataset( $dataset )
Remove the record, index terms and order value with the key field value $id from the specified dataset.
+
Returns <tt>true</tt> if <tt>$dataset</tt> exists in the database and has all  expected tables including ordervalues and index tables.
  
Returns true on success.
+
This does not check that all fields are configured - see &lt;/has_field&gt;.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,114: Line 1,548:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=head_searching_caching_and_retrieval -->
+
<!-- Pod2Wiki=item_has_dataset_index_tables -->
===Searching, Caching and Retrieval===
+
====has_dataset_index_tables====
 +
 
 +
$db-&gt;has_dataset_index_tables( $dataset )
 +
Returns <tt>true</tt> if index tables for <tt>$dataset</tt> exists of if this is  not indexable.
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,121: Line 1,561:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_cache_exp -->
+
<!-- Pod2Wiki=item_create_dataset_tables -->
====cache_exp====
+
====create_dataset_tables====
  
  $searchexp = $db-&gt;cache_exp( $cacheid )
+
  $success = $db-&gt;create_dataset_tables( $dataset )
Return the serialised Search of a the cached search with id $cacheid. Return undef if the id is invalid or expired.
+
Creates all the SQL tables for the specified <tt>$dataset</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,132: Line 1,574:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_cache -->
+
<!-- Pod2Wiki=item_drop_dataset_tables -->
====cache====
+
====drop_dataset_tables====
 +
 
 +
$db-&gt;drop_dataset_tables( $dataset )
 +
Drops all the SQL tables for the specified <tt>$dataset</tt>.
  
  $cacheid = $db-&gt;cache( $searchexp, $dataset, $srctable, [$order], [$list] )
+
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce; padding: 0em 1em 0em 1em; font-size: 80%; '>
Create a cache of the specified search expression from the SQL table $srctable.
+
<span style='display:none'>User Comments</span>
 +
<!-- Edit below this comment -->
  
If $order is set then the cache is ordered by the specified fields. For example "-year/title" orders by year (descending). Records with the same year are ordered by title.
 
  
If $srctable is set to "LIST" then order is ignored and the list of ids is taken from the array reference $list.
+
<!-- Pod2Wiki= -->
 +
</div>
 +
<!-- Pod2Wiki=item_create_dataset_index_tables -->
 +
====create_dataset_index_tables====
  
If $srctable is set to "ALL" every matching record from $dataset is added to the cache, optionally ordered by $order.
+
$success = $db-&gt;create_dataset_index_tables( $dataset )
 +
Creates all the index tables for the specified <tt>$dataset</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,149: Line 1,600:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_cache_table -->
+
<!-- Pod2Wiki=item_create_dataset_ordervalues_tables -->
====cache_table====
+
====create_dataset_ordervalues_tables====
  
  $tablename = $db-&gt;cache_table( $id )
+
  $success = $db-&gt;create_dataset_ordervalues_tables( $dataset )
Return the SQL table used to store the cache with id $id.
+
Creates all the ordervalues tables for the specified <tt>$dataset</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,160: Line 1,613:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_search -->
+
<!-- Pod2Wiki=item_has_field -->
====search====
+
====has_field====
  
  $ids = $db-&gt;search( $keyfield, $tables, $conditions, [$main_table_alias] )
+
  $db-&gt;has_field( $dataset, $field )
Return a reference to an array of ids - the results of the search specified by $conditions accross the tables specified in the $tables hash where keys are tables aliases and values are table names.
+
Returns <tt>true</tt> if <tt>$field</tt> is in the database for <tt>$dataset</tt>.
 
 
If no table alias is passed then M is assumed.  
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,173: Line 1,626:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_drop_cache -->
+
<!-- Pod2Wiki=item_add_field -->
====drop_cache====
+
====add_field====
 +
 
 +
$db-&gt;add_field( $dataset, $field, [ $force ] )
 +
Add <tt>$field</tt> to <tt>$dataset</tt>'s tables.
  
$db-&gt;drop_cache( $id )
+
If <tt>$force</tt> is <tt>true</tt> modify/replace an existing column. Use with care!
Remove the cached search with the given id.
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,184: Line 1,641:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_from_cache -->
+
<!-- Pod2Wiki=item_remove_field -->
====from_cache====
+
====remove_field====
  
  $foo = $db-&gt;from_cache( $dataset, $cacheid, [$offset], [$count], [$justids] )
+
  $db-&gt;remove_field( $dataset, $field )
Return a reference to an array containing all the items from the given dataset that have id's in the specified cache. The cache may be  specified either by id or serialised search expression.
+
Remove <tt>$field</tt> from <tt>$dataset</tt>'s tables.
 
 
$offset is an offset from the start of the cache and $count is the number of records to return.
 
 
 
If $justids is true then it returns just an ref to an array of the record ids, not the objects.
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,199: Line 1,654:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_drop_orphan_cache_tables -->
+
<!-- Pod2Wiki=item_rename_field -->
====drop_orphan_cache_tables====
+
====rename_field====
 +
 
 +
$ok = $db-&gt;rename_field( $dataset, $field, $old_name )
 +
Rename the <tt>$field</tt> in the <tt>$dataset</tt> from its <tt>$old_name</tt>.
  
$c = $db-&gt;drop_orphan_cache_tables
+
Returns <tt>true</tt> if the <tt>$field</tt> is successfully renamed.
Drop tables called "cacheXXX" where XXX is an integer. Returns the number of tables dropped.
 
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,210: Line 1,669:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_get_single -->
+
<!-- Pod2Wiki=item_create_counters -->
====get_single====
+
====create_counters====
  
  $obj = $db-&gt;get_single( $dataset, $id )
+
  $success = $db-&gt;create_counters
Return a single item from the given dataset. The one with the specified id.
+
Create the counters used to store the highest current ID of eprints, users, etc.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,221: Line 1,682:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_get_all -->
+
<!-- Pod2Wiki=item_has_counter -->
====get_all====
+
====has_counter====
  
  $items = $db-&gt;get_all( $dataset )
+
  $success = $db-&gt;has_counter( $counter )
Returns a reference to an array with all the items from the given dataset.
+
Returns <tt>true</tt> if <tt>$counter</tt> exists.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,232: Line 1,695:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_get_cache_ids -->
+
<!-- Pod2Wiki=item_create_counter -->
====get_cache_ids====
+
====create_counter====
  
  @ids = $db-&gt;get_cache_ids( $dataset, $cachemap, $offset, $count )
+
  $success = $db-&gt;create_counter( $name )
Returns a list of $count ids from $cache_id starting at $offset and in the order in the cachemap.
+
Create and initialise to zero a new counter with <tt>$name</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,243: Line 1,708:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_get_dataobjs -->
+
<!-- Pod2Wiki=item_remove_counters -->
====get_dataobjs====
+
====remove_counters====
  
  @dataobjs = $db-&gt;get_dataobjs( $dataset [, $id [, $id ] ] )
+
  $success = $db-&gt;remove_counters
Retrieves the records in $dataset with the given $id(s). If an $id doesn't exist in the database it will be ignored.
+
Destroy all counters.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,254: Line 1,721:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_get_values -->
+
<!-- Pod2Wiki=item_drop_counter -->
====get_values====
+
====drop_counter====
  
  $foo = $db-&gt;get_values( $field, $dataset )
+
  $success = $db-&gt;drop_counter( $name )
Return a reference to an array of all the distinct values of the  [[API:EPrints/MetaField|EPrints::MetaField]] specified.
+
Destroy the counter named <tt>$name</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,265: Line 1,734:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_get_ids_by_field_values -->
+
<!-- Pod2Wiki=head_user_messages -->
====get_ids_by_field_values====
+
===User Messages===
 
+
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
$ids = $db-&gt;get_ids_by_field_values( $field, $dataset [ %opts ] )
+
<span style='display:none'>User Comments</span>
Return a reference to a hash table where the keys are field value ids and the value is a reference to an array of ids.
 
 
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,276: Line 1,743:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_dequeue_events -->
+
<!-- Pod2Wiki=item_save_user_message -->
====dequeue_events====
+
====save_user_message====
  
  @events = $db-&gt;dequeue_events( $n )
+
  $message = $db-&gt;save_user_message( $userid, $m_type, $dom_m_data )
Attempt to dequeue upto $n events. May return between 0 and $n events depending on parallel processes and how many events are remaining on the queue.
+
Save user message provided in XML DOM object <tt>$dom_m_data</tt> as a  sanitized string in a [[API:EPrints/DataObj/Message|EPrints::DataObj::Message]] using <tt>$m_type</tt> to define the message type and <tt>$userid</tt> for the ID of the user whose message it is.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,287: Line 1,756:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=head_password_validation -->
+
<!-- Pod2Wiki=item_get_user_messages -->
===Password Validation===
+
====get_user_messages====
 +
 
 +
@messages = $db-&gt;get_user_messages( $userid, %opts )
 +
Get the messages for a user with ID <tt>$userid</tt> and clear messages if <tt>$opt{clear}</tt> is set.
 +
 
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,294: Line 1,769:
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
 
</div>
 
</div>
<!-- Pod2Wiki=item_valid_login -->
+
<!-- Pod2Wiki=item_clear_user_messages -->
====valid_login====
+
====clear_user_messages====
 
 
$real_username = $db-&gt;valid_login( $username, $password )
 
Tests whether the clear-text $password matches the stored encrypted password for $username.
 
  
Returns the user's real (case-sensitive) username or undef if the passwords don't match.
+
$db-&gt;clear_user_messages( $userid )
 +
Clear all messages for user with ID <tt>$userid</tt>.
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,309: Line 1,784:
 
<!-- Pod2Wiki=head_see_also -->
 
<!-- Pod2Wiki=head_see_also -->
 
==SEE ALSO==
 
==SEE ALSO==
To access database-stored objects use the methods provided by the following modules: [[API:EPrints/Repository|EPrints::Repository]], [[API:EPrints/DataSet|EPrints::DataSet]].
+
To access database-stored objects use the methods provided by the following modules: [[API:EPrints/Repository|EPrints::Repository]], [[API:EPrints/DataSet|EPrints::DataSet]].
  
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 1,318: Line 1,795:
 
<!-- Pod2Wiki=head_copyright -->
 
<!-- Pod2Wiki=head_copyright -->
 
==COPYRIGHT==
 
==COPYRIGHT==
 +
{{API:Copyright}}
 +
<div style='background-color: #e8e8f; margin: 0.5em 0em 1em 0em; border: solid 1px #cce;  padding: 0em 1em 0em 1em; font-size: 80%; '>
 +
<span style='display:none'>User Comments</span>
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  

Latest revision as of 21:20, 4 March 2022

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


Contents

NAME

EPrints::Database - a connection to the SQL database for an eprints session.

User Comments


DESCRIPTION

EPrints Database Access Module

Provides access to the backend database. All database access done via this module, in the hope that the backend can be replaced as easily as possible.

In most use-cases it should not be necessary to use the database module directly. Instead you should use EPrints::DataSet or EPrints::MetaField accessor methods to access objects and field values respectively.

User Comments


Cross-database Support

Any use of SQL statements must use quote_identifier to quote database tables and columns and quote_value to quote values. The only exception to this are the EPrints::Database::* modules which provide database-driver specific extensions.

User Comments


Quoting SQL Values

By convention variables that contain already quoted values are prefixed with Q_ so they can be easily recognised when used in string interpolation:

my $Q_value = $db->quote_value( "Hello, World!" );
$db->do("SELECT $Q_value");
 

Where possible you should avoid quoting values yourself, instead use a method that accepts unquoted values which will (safely) do the work for you.

User Comments


CONSTANTS

All the SQL_ column types defined by Perl module DBI and the following:

User Comments


SQL_NULL

A column value is undefined.

User Comments


SQL_NOT_NULL

A column value is defined.

User Comments


INSTANCE VARIABLES

User Comments


$self->{session}

The EPrints::Session which is associated with this database connection.

User Comments


$self->{debug}

If true then SQL is logged.

User Comments


$self->{dbh}

The handle on the actual database connection.

User Comments


METHODS

User Comments


Database

User Comments


new

$db = EPrints::Database->new( $repo, [ %opts ] )

Create a connection to the database.

Options:

 db_connect - Boolean. Also connect to the database (default: true).

User Comments


create

$db = $db->create( $username, $password )

Create and connect to a new database using user account $username and $password.

User Comments


build_connection_string

$dbstr = EPrints::Database::build_connection_string( %params )

Build the string to use to connect to the database via DBI.

Parameters:

dbname - Database name (REQUIRED).
dbdriver - Database driver (e.g. mysql, Oracle, pgsql, default: mysql).
dbhost - Database host.  Assumes localhost if unset.
dbport - Port to connect to database host.  Assumes default for driver if unset.
dbsock - Socket file to connect to database through.

User Comments


connect

$db->connect()

Connects to the database.

User Comments


disconnect

$db->disconnect()

Disconnects from the EPrints database. Should always be done before any script exits.

User Comments


set_debug

$db->set_debug( $boolean )

Set the SQL debug mode to true or false.

User Comments


set_version

$db->set_version( $versionid );

Set the version id table in the SQL database to the given versionid (used by the upgrade script).

User Comments


get_version

$version = $db->get_version

Returns the current database schema version.

User Comments


is_latest_version

$boolean = $db->is_latest_version

Return true if the SQL tables are in the correct configuration for this edition of eprints. Otherwise, false.

User Comments


get_server_version

$version = $db->get_server_version

Return the database server version.

User Comments


get_default_charset

$charset = $db->get_default_charset

Return the character set to use.

Returns undef if character sets are unsupported.

User Comments


get_default_collation

$collation = $db->get_default_collation( $lang )

Return the collation to use for language $lang.

Returns undef if collation is unsupported.

User Comments


get_driver_name

$driver = $db->get_driver_name

Return the database driver name.

User Comments


error

$errstr = $db->error()

Return a string describing the last SQL error.

User Comments


retry_error

$boolean = $db->retry_error()

Returns a boolean for whether the database error is a retry error.

User Comments


duplicate_error

$boolean = $db->duplicate_error()

Returns a boolean for whether the database error is a duplicate error.

User Comments


begin

$db->begin()

Begin a transaction.

User Comments


commit

$db->commit()

Commit the previously begun transaction.

User Comments


rollback

$db->rollback()

Rollback the partially completed transaction.

User Comments


type_info

$type_info = $db->type_info( $data_type )

See DBI/type_info.

User Comments


get_column_type

$real_type = $db->get_column_type( $name, $data_type, $not_null, [ $length, $scale, %opts ] )

Returns a SQL column definition for $name of type $type, usually something like:

 $name $type($length,$scale) [ NOT NULL ]
 

If $not_null is true column will be set to NOT NULL.

$length and $scale control the maximum lengths of character or decimal types (see below).

Other options available to refine the column definition:

 langid - character set/collation to use
 sorted - whether this column will be used to order by
 

langid is mapped to real database values by the "dblanguages" configuration option. The database may not be able to order the request column type in which case, if sorted is true, the database may use a substitute column type.

$data_type is the SQL type. The types are constants defined by this module, to import them use:

 use EPrints::Database qw( :sql_types );
 

Supported types (n = requires $length argument):

Character data: SQL_VARCHAR(n), SQL_LONGVARCHAR, SQL_CLOB.

Binary data: SQL_VARBINARY(n), SQL_LONGVARBINARY.

Integer data: SQL_TINYINT, SQL_SMALLINT, SQL_INTEGER, SQL_BIGINT.

Floating-point data: SQL_REAL, SQL_DOUBLE.

Time data: SQL_DATE, SQL_TIME.

The actual column types used will be database-specific.

User Comments


Basic SQL Operations

User Comments


do

$success = $db->do( $sql )

Execute the given $sql.

User Comments


prepare

$sth = $db->prepare( $sql )

Prepare the given $sql and return a handle on it.

Use the execute method on the returned DBI handle to execute the SQL:

 my $sth = $db->prepare_select( "SELECT 'Hello, World'" );
 $sth->execute;
 

User Comments


prepare_select

$sth = $db->prepare_select( $sql, [ %options ] )

Prepare a SELECT statement $sql and return a handle to it. After preparing a statement use execute() to execute it.

Returns a DBI statement handle.

The LIMIT SQL keyword is not universally supported, to specify this use the limit option.

Options:

 limit - limit the number of rows returned
 offset - return limit number of rows after offset
 

User Comments


execute

$success = $db->execute( $sth, $sql )

Execute the SQL prepared earlier in the $sth. $sql is only required for debugging purposes.

User Comments


update

$success = $db->update( $dataset, $data, $changed )

Updates a EPrints::DataObj from $dataset with the given $data. The primary key field (e.g. eprintid) value must be included.

Updates the ordervalues if the $dataset is ordered.

User Comments


_update

$rows = $db->_update( $tablename, $keycols, $keyvals, $columns, @values )

Updates $columns in $tablename with @values where $keycols equals $keyvals and returns the number of rows affected.

N.B. If no rows are affected, the result is still true, see DBI's execute() method.

This is an internal method.

User Comments


insert

$success = $db->insert( $table, $columns, @values )

Inserts @values into the table $table. If $columns is defined it will be used as a list of columns to insert into. @values is a list of arrays containing values to insert. These will be quoted before insertion.

User Comments


insert_quoted

$success = $db->insert_quoted( $table, $columns, @qvalues )

Inserts values into the table $table. If $columns is defined it will be used as a list of columns to insert into. @qvalues is a list of arrays containing values to insert. These will NOT be quoted before insertion - care must be exercised!

User Comments


delete_from

$success = $db->delete_from( $table, $columns, @values )

Perform a SQL DELETE FROM $table using $columns to build a where clause. @values is a list of array references of values in the same order as $columns.

If you want to clear a table completely use clear_table().

User Comments


count_table

$n = $db->count_table( $tablename )

Return the number of rows in the specified SQL table with $tablename.

User Comments


clear_table

$db->clear_table( $tablename )

Clears all records from the given table with $tablename. Use with caution!

User Comments


Quoting

User Comments


prep_int

$mungedvalue = EPrints::Database::prep_int( $value )

Escape numerical $value for an SQL statement. undef becomes NULL. Anything else becomes a number (zero if needed).

User Comments


prep_value

$mungedvalue = EPrints::Database::prep_value( $value )

Escape $value for an SQL statement. Modify value such that " becomes \" and \ becomes \\ and ' becomes \'.

User Comments


prep_like_value

$mungedvalue = EPrints::Database::prep_like_value( $value )

Escape $value for an SQL LIKE clause. In addition to ' " and \ also escapes % and _.

User Comments


quote_value

$str = $db->quote_value( $value )

Return a quoted version of $value. To quote a LIKE value you should use:

$db->quote_value( EPrints::Database::prep_like_value( $foo ) . '%' );
 

User Comments


quote_int

$str = $db->quote_int( $value )

Return a quoted integer for $value.

User Comments


quote_binary

$str = $db->quote_binary( $bytes )

Some databases (Oracle/PostgreSQL) require transforms of binary data to work correctly.

This method should be called on data $bytes containing null bytes or back-slashes before being passed on quote_value.

User Comments


quote_ordervalue

$str = $db->quote_ordervalue( $field, $value )

Some databases (Oracle) can't order by CLOBs so need special treatment when creating the ordervalues tables. This method allows any fixing-up required for string data $value for $field before it's inserted.

User Comments


quote_identifier

$str = $db->quote_identifier( @parts )

Quote a database identifier (e.g. table names). Multiple @parts will be joined by dots (.).

User Comments


prepare_regexp

$sql = $db->prepare_regexp( $col, $value )

The syntax used for regular expressions varies across databases. This method takes two quoted string and returns a SQL expression that will apply the quoted regexp $value to the quoted column $col.

User Comments


sql_as

$sql = $db->sql_AS()

Returns the syntactic glue to use when aliasing. SQL 92 databases will happily use AS but some databases (Oracle) will not accept it.

User Comments


sql_like

$sql = $db->sql_LIKE()

Returns the syntactic glue to use when making a case-insensitive LIKE. PostgreSQL requires ILIKE while everything else uses LIKE and the column collation.

User Comments


Counters

User Comments


counter_current

$n = $db->counter_current( $counter )

Return the value of the previous counter_next on $counter.

User Comments


counter_next

$n = $db->counter_next( $counter )

Return the next unused value for the named $counter. Returns undef if the $counter doesn't exist.

User Comments


counter_minimum

$db->counter_minimum( $counter, $value )

Ensure that the $counter is set no lower than $value. This is used when importing eprints which may not be in scrict sequence.

User Comments


counter_reset

$db->counter_reset( $counter )

Reset the $counter. Use with caution.

User Comments


next_doc_pos

$n = $db->next_doc_pos( $eprintid )

Return the next unused document position for the given $eprintid.

User Comments


Dataset Data

User Comments


exists

$boolean = $db->exists( $dataset, $id )

Return true if there exists an EPrints::DataObj from the $dataset with its primary key set to $id. Otherwise, return false.

User Comments


add_record

$success = $db->add_record( $dataset, $data )

Add the given $data as a new record in the given $dataset. $data is a reference to a hash containing values structured for a record in the that $dataset.

User Comments


remove

$success = $db->remove( $dataset, $id )

Attempts to remove the EPrints::DataObj with the primary key $id from the specified $dataset.

User Comments


Searching, caching and object retrieval

User Comments


cache_exp

$searchexp = $db->cache_exp( $cacheid )

Return the serialised search of a the cached search with $cacheid. Return undef if the $cacheid is invalid or expired.

User Comments


cache

$cacheid = $db->cache( $searchexp, $dataset, $srctable, [$order], [$list] )

Create a cache of the specified search expression from the SQL table $srctable.

If $order is set then the cache is ordered by the specified fields. For example -year/title orders by year (descending). Records with the same year are ordered by title.

If $srctable is set to LIST then order is ignored and the list of IDs is taken from the array reference $list.

If $srctable is set to ALL every matching record from $dataset is added to the cache, optionally ordered by $order.

User Comments


cache_table

$tablename = $db->cache_table( $id )

Return the name of the SQL table used to store the cache with $id.

User Comments


cache_userid

$userid = $db->cache_userid( $id )

Returns the userid associated with the cache with $id if that cache exists.

User Comments


get_cachemap

$cachemap = $db->get_cachemap( $id )

Return the cachemap with $<id>.

User Comments


search

$ids = $db->search( $keyfield, $tables, $conditions, [ $main_table_alias ] )

Return a reference to an array of $keyfield IDs - the results of the search specified by $conditions across the tables specified in the $tables hash where keys are tables aliases and values are table names.

If no $main_table_alias is specified then M is assumed.

User Comments


drop_cache

$db->drop_cache( $id )

Remove the cached search with the given $id.

User Comments


from_cache

$items = $db->from_cache( $dataset, $cacheid, [ $offset, $count, $justids ] )

Return a reference to an array containing all the items from the given $dataset that have IDs in the cache specified by $cacheid. The cache may be specified either by ID or serialised search expression.

$offset is an offset from the start of the cache and $count is the number of records to return.

If $justids is true then it returns just a reference to an array of the record IDs and not the objects themselves.

User Comments


drop_orphan_cache_tables

$c = $db->drop_orphan_cache_tables

Drop tables called cacheXXX where XXX is an integer. Returns the number of cache tables dropped.

User Comments


get_single

$obj = $db->get_single( $dataset, $id )

Return a single <EPrints::DataObj> from the given $dataset with primary key set to $id.

User Comments


get_all

$items = $db->get_all( $dataset )

Returns a reference to an array with all the <EPrints::DataObj>s from the given $dataset.

User Comments


get_cache_ids

@ids = $db->get_cache_ids( $dataset, $cachemap, $offset, $count )

Returns a list of $count IDs from $cache_id starting at $offset and in the order in the $cachemap.

User Comments


get_dataobjs

@dataobjs = $db->get_dataobjs( $dataset, [ $id, $id, ... ] )

Retrieves the records in $dataset with the given $id(s). If an $id doesn't exist in the database it will be ignored.

User Comments


get_values

$values = $db->get_values( $field, $dataset )

Return a reference to an array of all the distinct values of the EPrints::MetaField $field for the $dataset specified.

User Comments


sort_values

$values = $db->sort_values( $field, $values, [ $langid ] )

Sorts and returns the list of $values using the database.

$field is used to get the order value for each value. $langid (or $session->get_langid if unset) is used to determine the database collation to use when sorting the resulting order values.

User Comments


get_ids_by_field_values

$ids = $db->get_ids_by_field_values( $field, $dataset, [ %opts ] )

Return a reference to a hash table where the keys are specified $datasets's $field value IDs and the values are references to arrays of IDs.

User Comments


dequeue_events

@events = $db->dequeue_events( $n )

Attempt to dequeue upto $n events. May return between 0 and $n events depending on parallel processes and how many events are remaining in the queue.

User Comments


ci_lookup

$value = $db->ci_lookup( $field, $value )

This is a hacky method to support case-insensitive lookup for usernames, emails, etc. It returns the actual case-sensitive version of $value if there is a case-insensitive match for the $field.

User Comments


Password Validation and Secret Fields

User Comments


valid_login

$db->valid_login( $username, $password )

Returns whether the clear-text $password matches the stored crypted password for the $username.

User Comments


secret_matches

$db->secret_matches( $dataobj, $fieldname, $token [, $callback ] )

Returns whether the clear-text $token matches the stored crypted field with $fieldname for the $dataobj according to the $callback function.

If not set, $callback defaults to EPrints::Utils#crypt_equals.

User Comments


is_secret_set

$boolean = $db->is_secret_set( $dataobj, $fieldname )

Returns a boolean for whether the secret $fieldname for $dataobj has a value set.

User Comments


Database Schema Manipulation

User Comments


has_sequence

$boolean = $db->has_sequence( $name )

Returns true if a sequence of the given $name exists in the database. Otherwise, returns false.

User Comments


create_sequence

$success = $db->create_sequence( $name )

Creates a new sequence object with $name and initialises to zero.

User Comments


drop_sequence

$success = $db->drop_sequence( $name )

Deletes a sequence object with $name.

User Comments


has_column

$boolean = $db->has_column( $table, $column )

Return true if the named $table has the named $column in the database.

User Comments


drop_column

$success = $db->drop_column( $table, $column )

Drops the named $column from the named $table.

User Comments


get_primary_key

@columns = $db->get_primary_key( $tablename )

Returns a list of column names that comprise the primary key for the $tablename.

Returns an empty list if no primary key exists.

User Comments


index_name

$name = $db->index_name( $table, @cols )

Returns the name of the first index that starts with named columns @cols in the named $table.

Returns undef if no index exists.

User Comments


get_index_ids

$ids = $db->get_index_ids( $table, $condition )

Return a reference to an array of the distinct primary keys from the named SQL $table which match the specified $condition.

User Comments


create_index

$success = $db->create_index( $table, @columns )

Creates an index over @columns for named $table. Returns true on success, false otherwise.

User Comments


create_unique_index

$success = $db->create_unique_index( $tablename, @columns )

Creates a unique index over @columns for named $table. Returns true on success, false otherwise.

User Comments


create_foreign_key

$ok = $db->create_foreign_key( $main_table, $table, $key_field )

Create a foreign key relationship between named $main_table and named $table using $key_field.

This will cause records in $table to be deleted if the equivalent record is deleted from $main_table.

User Comments


get_tables

@tables = $db->get_tables( [ $dbname ] )

Returns a list of all the tables in the database.

$dbname specifies a particular database name of current connection has access to more than one database.

User Comments


has_table

$boolean = $db->has_table( $tablename )

Returns boolean dependent on whether a table of the $tablename exists in the database.

User Comments


create_table

$success = $db->create_table( $tablename, $setkey, @fields );

Creates a new table with $tablename based on @fields.

The first $setkey number of fields are used for its primary key.

User Comments


drop_table

$db->drop_table( @tables )

Delete the named @tables. Use with caution!

User Comments


rename_table

$db->rename_table( $table_from, $table_to )

Renames the table named $table_from to $table_to.

User Comments


swap_table

$db->swap_table( $table_a, $table_b )

Renames table named $table_a to $table_b and vice-versa.

User Comments


EPrints Schema Manipulation

User Comments


create_archive_tables

$success = $db->create_archive_tables()

Create all the SQL tables for all datasets.

User Comments


drop_archive_tables

$db->drop_archive_tables()

Destroy all tables used by EPrints in the database.

User Comments


create_version_table

$db->create_version_table

Make the version table (and set the only value to be the current version of EPrints).

User Comments


drop_version_table

$db->drop_version_table

Drop the version table.

User Comments


has_dataset

$db->has_dataset( $dataset )

Returns true if $dataset exists in the database and has all expected tables including ordervalues and index tables.

This does not check that all fields are configured - see </has_field>.

User Comments


has_dataset_index_tables

$db->has_dataset_index_tables( $dataset )

Returns true if index tables for $dataset exists of if this is not indexable.

User Comments


create_dataset_tables

$success = $db->create_dataset_tables( $dataset )

Creates all the SQL tables for the specified $dataset.

User Comments


drop_dataset_tables

$db->drop_dataset_tables( $dataset )

Drops all the SQL tables for the specified $dataset.

User Comments


create_dataset_index_tables

$success = $db->create_dataset_index_tables( $dataset )

Creates all the index tables for the specified $dataset.

User Comments


create_dataset_ordervalues_tables

$success = $db->create_dataset_ordervalues_tables( $dataset )

Creates all the ordervalues tables for the specified $dataset.

User Comments


has_field

$db->has_field( $dataset, $field )

Returns true if $field is in the database for $dataset.

User Comments


add_field

$db->add_field( $dataset, $field, [ $force ] )

Add $field to $dataset's tables.

If $force is true modify/replace an existing column. Use with care!

User Comments


remove_field

$db->remove_field( $dataset, $field )

Remove $field from $dataset's tables.

User Comments


rename_field

$ok = $db->rename_field( $dataset, $field, $old_name )

Rename the $field in the $dataset from its $old_name.

Returns true if the $field is successfully renamed.

User Comments


create_counters

$success = $db->create_counters

Create the counters used to store the highest current ID of eprints, users, etc.

User Comments


has_counter

$success = $db->has_counter( $counter )

Returns true if $counter exists.

User Comments


create_counter

$success = $db->create_counter( $name )

Create and initialise to zero a new counter with $name.

User Comments


remove_counters

$success = $db->remove_counters

Destroy all counters.

User Comments


drop_counter

$success = $db->drop_counter( $name )

Destroy the counter named $name.

User Comments


User Messages

User Comments


save_user_message

$message = $db->save_user_message( $userid, $m_type, $dom_m_data )

Save user message provided in XML DOM object $dom_m_data as a sanitized string in a EPrints::DataObj::Message using $m_type to define the message type and $userid for the ID of the user whose message it is.

User Comments


get_user_messages

@messages = $db->get_user_messages( $userid, %opts )

Get the messages for a user with ID $userid and clear messages if $opt{clear} is set.

User Comments


clear_user_messages

$db->clear_user_messages( $userid )

Clear all messages for user with ID $userid.

User Comments


SEE ALSO

To access database-stored objects use the methods provided by the following modules: EPrints::Repository, EPrints::DataSet.

User Comments


COPYRIGHT

© Copyright 2000-2024 University of Southampton.

EPrints 3.4 is supplied by EPrints Services.

http://www.eprints.org/eprints-3.4/

LICENSE

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

EPrints 3.4 and this file are released under the terms of the GNU Lesser General Public License version 3 as published by the Free Software Foundation unless otherwise stated.

EPrints 3.4 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 3.4. If not, see http://www.gnu.org/licenses/.

User Comments