Difference between revisions of "API:EPrints/Database"

From EPrints Documentation
Jump to: navigation, search
 
(18 intermediate revisions by the same user not shown)
Line 14: Line 14:
 
<!-- Pod2Wiki=head_synopsis -->
 
<!-- Pod2Wiki=head_synopsis -->
 
==SYNOPSIS==
 
==SYNOPSIS==
  $db = $repo-&gt;database
+
<source lang="perl">$db = $repo->database
  $sth = $db-&gt;prepare("SELECT 'hello, world!'");
+
$sth = $db->prepare("SELECT 'hello, world!'");
  $sth-&gt;execute;
+
$sth->execute;
  print $sth-&gt;fetchrow_arrayref-&gt;[0], "\n";
+
print $sth->fetchrow_arrayref->[0], "\n";</source>
 
+
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
Line 47: Line 47:
 
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 'Q_' so they can be easily recognised when used in string interpolation:
  
  my $Q_value = $db-&gt;quote_value( "Hello, World!" );
+
<pre>  my $Q_value = $db-&gt;quote_value( "Hello, World!" );
   $db-&gt;do("SELECT $Q_value");
+
   $db-&gt;do("SELECT $Q_value");</pre>
 
+
 
 
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.
  
Line 64: Line 64:
 
<!-- Pod2Wiki=head_database -->
 
<!-- Pod2Wiki=head_database -->
 
===Database===
 
===Database===
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_new -->
 
====new====
 
 
 
  $db = EPrints::Database-&gt;new( $repo )
 
  $db = EPrints::Database-&gt;new( $repo )
 
Create a connection to the database.
 
Create a connection to the database.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_create -->
 
====create====
 
  
 
  $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 super user account $username and $password.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_connect -->
 
====connect====
 
  
 
  $ok = $db-&gt;connect
 
  $ok = $db-&gt;connect
 
Connects to the database.  
 
Connects to the database.  
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_disconnect -->
 
====disconnect====
 
  
 
  $db-&gt;disconnect
 
  $db-&gt;disconnect
 
Disconnects from the EPrints database.
 
Disconnects from the EPrints database.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_set_debug -->
 
====set_debug====
 
  
 
  $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 true or false.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_set_version -->
 
====set_version====
 
  
 
  $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 value (used by the upgrade script).
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_get_version -->
 
====get_version====
 
  
 
  $version = $db-&gt;get_version
 
  $version = $db-&gt;get_version
 
Returns the current database schema version.
 
Returns the current database schema version.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_is_latest_version -->
 
====is_latest_version====
 
  
 
  $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 true if the database schema is in the correct configuration for this version of eprints. Otherwise false.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_get_server_version -->
 
====get_server_version====
 
  
 
  $version = $db-&gt;get_server_version
 
  $version = $db-&gt;get_server_version
 
Return the database server version.
 
Return the database server version.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_get_default_charset -->
 
====get_default_charset====
 
  
 
  $charset = $db-&gt;get_default_charset( LANGUAGE )
 
  $charset = $db-&gt;get_default_charset( LANGUAGE )
Line 165: Line 95:
  
 
Returns undef if character sets are unsupported.
 
Returns undef if character sets are unsupported.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_get_default_collation -->
 
====get_default_collation====
 
  
 
  $collation = $db-&gt;get_default_collation( LANGUAGE )
 
  $collation = $db-&gt;get_default_collation( LANGUAGE )
Line 177: Line 100:
  
 
Returns undef if collation is unsupported.
 
Returns undef if collation is unsupported.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_get_driver_name -->
 
====get_driver_name====
 
  
 
  $driver = $db-&gt;get_driver_name
 
  $driver = $db-&gt;get_driver_name
 
Return the database driver name.
 
Return the database driver name.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_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.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_retry_error -->
 
====retry_error====
 
  
 
  $bool = $db-&gt;retry_error
 
  $bool = $db-&gt;retry_error
 
Returns true if the current error is a retry error.
 
Returns true if the current error is a retry error.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_duplicate_error -->
 
====duplicate_error====
 
  
 
  $bool = $db-&gt;duplicate_error
 
  $bool = $db-&gt;duplicate_error
 
Returns true if the current error is a PRIMARY KEY or UNIQUE error.
 
Returns true if the current error is a PRIMARY KEY or UNIQUE error.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_begin -->
 
====begin====
 
  
 
  $db-&gt;begin
 
  $db-&gt;begin
 
Begin a transaction.
 
Begin a transaction.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_commit -->
 
====commit====
 
  
 
  $db-&gt;commit
 
  $db-&gt;commit
 
Commit the previously begun transaction.
 
Commit the previously begun transaction.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_rollback -->
 
====rollback====
 
  
 
  $db-&gt;rollback
 
  $db-&gt;rollback
 
Roll-back the current transaction.
 
Roll-back the current transaction.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_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}}.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_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, TYPE, NOT_NULL, [ LENGTH/PRECISION ], [ SCALE ], %opts )
 
Returns a SQL column definition for NAME of type TYPE, usually something like:
 
Returns a SQL column definition for NAME of type TYPE, usually something like:
  
  $name $type($length,$scale) [ NOT NULL ]
+
<pre>  $name $type($length,$scale) [ NOT NULL ]</pre>
 
+
 
 
If NOT_NULL is true column will be set "not null".
 
If NOT_NULL is true column will be set "not null".
  
Line 276: Line 136:
 
Other options available to refine the column definition:
 
Other options available to refine the column definition:
  
  langid - character set/collation to use
+
<pre>  langid - character set/collation to use
   sorted - whether this column will be used to order by
+
   sorted - whether this column will be used to order by</pre>
 
+
 
 
'''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 '''sorted''' 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:
 
TYPE is the SQL type. The types are constants defined by this module, to import them use:
  
  use EPrints::Database qw( :sql_types );
+
<pre>  use EPrints::Database qw( :sql_types );</pre>
 
+
 
 
Supported types (n = requires LENGTH argument):
 
Supported types (n = requires LENGTH argument):
  
Line 303: Line 163:
  
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
<!-- Pod2Wiki=head_schema_manipulation -->
+
<!-- Pod2Wiki=head_basic_sql_operations -->
===Schema Manipulation===
+
===Basic SQL operations===
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_archive_tables -->
+
====create_archive_tables====
+
 
+
$success = $db-&gt;create_archive_tables
+
Create all the SQL tables for each dataset.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_drop_archive_tables -->
+
====drop_archive_tables====
+
 
+
$db-&gt;drop_archive_tables()
+
Destroy all tables used by eprints in the database.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- 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).
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_drop_version_table -->
+
====drop_version_table====
+
 
+
$db-&gt;drop_version_table
+
Drop the version table.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_dataset_tables -->
+
====create_dataset_tables====
+
 
+
$success = $db-&gt;create_dataset_tables( $dataset )
+
Create all the SQL tables for a single dataset.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_drop_dataset_tables -->
+
====drop_dataset_tables====
+
 
+
$db-&gt;drop_dataset_tables( $dataset )
+
Drop all the SQL tables for a single dataset.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_dataset_index_tables -->
+
====create_dataset_index_tables====
+
 
+
$success = $db-&gt;create_dataset_index_tables( $dataset )
+
Create all the index tables for a single dataset.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_dataset_ordervalues_tables -->
+
====create_dataset_ordervalues_tables====
+
 
+
$success = $db-&gt;create_dataset_ordervalues_tables( $dataset )
+
Create all the ordervalues tables for a single dataset.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_has_dataset -->
+
====has_dataset====
+
 
+
$db-&gt;has_dataset( $dataset )
+
Returns true if $dataset exists in the database or has no database tables.
+
 
+
This does not check that all fields are configured - see has_field().
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_has_field -->
+
====has_field====
+
 
+
$db-&gt;has_field( $dataset, $field )
+
Returns true if $field is in the database for $dataset.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_add_field -->
+
====add_field====
+
 
+
$db-&gt;add_field( $dataset, $field [, $force ] )
+
Add $field to $dataset's tables.
+
 
+
If $force is true will modify/replace an existing column (use with care!).
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_remove_field -->
+
====remove_field====
+
 
+
$db-&gt;remove_field( $dataset, $field )
+
Remove $field from $dataset's tables.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_rename_field -->
+
====rename_field====
+
 
+
$ok = $db-&gt;rename_field( $dataset, $field, $old_name )
+
Rename a $field in the database from it's old name $old_name.
+
 
+
Returns true if the field was successfully renamed.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_table -->
+
====create_table====
+
 
+
$success = $db-&gt;create_table( $tablename, $setkey, @fields );
+
Creates a new table $tablename based on @fields.
+
 
+
The first $setkey number of fields are used for a primary key.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_foreign_key -->
+
====create_foreign_key====
+
 
+
$ok = $db-&gt;create_foreign_key( $main_table, $aux_table, $key_field )
+
Create a foreign key relationship between $main_table and $aux_table using the $key_field.
+
 
+
This will cause records in $aux_table to be deleted if the equivalent record is deleted from $main_table.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_counters -->
+
====create_counters====
+
 
+
$success = $db-&gt;create_counters
+
Create the counters used to store the highest current id of eprints, users etc.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_has_counter -->
+
====has_counter====
+
 
+
$success = $db-&gt;has_counter( $counter )
+
Returns true if $counter exists.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_counter -->
+
====create_counter====
+
 
+
$success = $db-&gt;create_counter( $name )
+
Create and initialise to zero a new counter called $name.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_remove_counters -->
+
====remove_counters====
+
 
+
$success = $db-&gt;remove_counters
+
Destroy all counters.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_drop_counter -->
+
====drop_counter====
+
 
+
$success = $db-&gt;drop_counter( $name )
+
Destroy the counter named $name.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_counter_current -->
+
====counter_current====
+
 
+
$n = $db-&gt;counter_current( $counter )
+
Return the value of the previous counter_next on $counter.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_counter_next -->
+
====counter_next====
+
 
+
$n = $db-&gt;counter_next( $counter )
+
Return the next unused value for the named counter. Returns undef if  the counter doesn't exist.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_counter_minimum -->
+
====counter_minimum====
+
 
+
$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.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_counter_reset -->
+
====counter_reset====
+
 
+
$db-&gt;counter_reset( $counter )
+
Reset the counter. Use with caution.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_next_doc_pos -->
+
====next_doc_pos====
+
 
+
$n = $db-&gt;next_doc_pos( $eprintid )
+
Return the next unused document pos for the given eprintid.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=head_sql_utility_methods -->
+
===SQL utility methods===
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_do -->
+
====do====
+
 
+
 
  $success = $db-&gt;do( $sql )
 
  $success = $db-&gt;do( $sql )
 
Execute the given SQL.
 
Execute the given SQL.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_prepare -->
 
====prepare====
 
  
 
  $sth = $db-&gt;prepare( $sql )
 
  $sth = $db-&gt;prepare( $sql )
 
Prepare the SQL statement $sql for execution.
 
Prepare the SQL statement $sql for execution.
  
Use the <tt>execute</tt> method on the returned {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}} handle to execute the SQL:
+
Use the <code>execute</code> method on the returned {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}} handle to execute the SQL:
  
  my $sth = $db-&gt;prepare_select( "SELECT 'Hello, World'" );
+
<pre>  my $sth = $db-&gt;prepare_select( "SELECT 'Hello, World'" );
   $sth-&gt;execute;
+
   $sth-&gt;execute;</pre>
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_prepare_select -->
+
====prepare_select====
+
  
 
  $sth = $db-&gt;prepare_select( $sql [, %options ] )
 
  $sth = $db-&gt;prepare_select( $sql [, %options ] )
Prepare a SELECT statement $sql for execution.
+
Prepare a SELECT statement $sql for execution. This method provides cross-database support for getting a part of the result list based on an offset/limit.
  
 
Returns a {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}} statement handle.
 
Returns a {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}} statement handle.
 
The LIMIT SQL keyword is not universally supported, to specify a LIMIT you must use the '''limit''' option.
 
  
 
Options:
 
Options:
  
  limit - limit the number of rows returned
+
<pre>  limit - limit the number of rows returned
   offset - return '''limit''' number of rows after offset
+
   offset - return limit number of rows after offset</pre>
 
+
<!-- Edit below this comment -->
+
  
 +
$rows = $db-&gt;update( $tablename, $keycols, $keyvals, $columns, $values )
 +
UPDATEs $columns with the equivalent slot from $values where the rows in $tablename match the $keycols/$keyvals.
  
<!-- Pod2Wiki= -->
+
Returns the number of rows affected or false on error, see {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}}'s execute() method.
<!-- Pod2Wiki=item_has_sequence -->
+
====has_sequence====
+
  
  $boolean = $db-&gt;has_sequence( $name )
+
<pre> $db-&gt;update(
Return true if a sequence of the given name exists in the database.
+
    'eprint',
 +
    ['eprintid'],
 +
    [23],
 +
    ['title','description'],
 +
    ['Hello, World!', undef]
 +
  );</pre>
  
<!-- Edit below this comment -->
+
$success = $db-&gt;update_quoted( $tablename, $keycols, $keyvals, $columns, $Q_values )
 +
UPDATEs $tablename where $keycols equals $keyvals.
  
 
+
Returns the number of rows affected or false on error, see {{API:PodLink|file=DBI|package_name=DBI|section=|text=DBI}}'s execute() method.
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_sequence -->
+
====create_sequence====
+
 
+
$success = $db-&gt;create_sequence( $seq_name )
+
Creates a new sequence object initialised to zero.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_drop_sequence -->
+
====drop_sequence====
+
 
+
$success = $db-&gt;drop_sequence( $seq_name )
+
Deletes a sequence object.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_drop_column -->
+
====drop_column====
+
 
+
$success = $db-&gt;drop_column( $table, $column )
+
Drops a column from a table.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_get_primary_key -->
+
====get_primary_key====
+
 
+
@columns = $db-&gt;get_primary_key( $tablename )
+
Returns the list of column names that comprise the primary key for $tablename.
+
 
+
Returns empty list if no primary key exists.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_primary_key -->
+
====create_primary_key====
+
 
+
$db-&gt;create_primary_key( $tablename, @cols )
+
Create a PRIMARY KEY on $tablename over @cols.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_index -->
+
====create_index====
+
 
+
$success = $db-&gt;create_index( $tablename, @columns )
+
Creates an index over @columns for $tablename. Returns true on success.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_create_unique_index -->
+
====create_unique_index====
+
 
+
$success = $db-&gt;create_unique_index( $tablename, @columns )
+
Creates a unique index over @columns for $tablename. Returns true on success.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_index_name -->
+
====index_name====
+
 
+
$name = $db-&gt;index_name( $table, @columns )
+
Returns the name of the first index that starts with @columns on the $table table.
+
 
+
Returns undef if no index exists.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item__update -->
+
====_update====
+
 
+
$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.
+
 
+
This method is internal.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_insert -->
+
====insert====
+
  
 
  $success = $db-&gt;insert( $table, $columns, @values )
 
  $success = $db-&gt;insert( $table, $columns, @values )
Line 735: Line 209:
 
Values will be quoted before insertion.
 
Values will be quoted before insertion.
  
<!-- Edit below this comment -->
+
  $success = $db-&gt;insert_quoted( $table, $columns, @Q_values )
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_insert_quoted -->
+
====insert_quoted====
+
 
+
  $success = $db-&gt;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.
 
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.
  
 
Values will NOT be quoted before insertion - care must be exercised!
 
Values will NOT be quoted before insertion - care must be exercised!
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_delete_from -->
 
====delete_from====
 
  
 
  $success = $db-&gt;delete_from( $table, $columns, @values )
 
  $success = $db-&gt;delete_from( $table, $columns, @values )
Line 758: Line 218:
  
 
If you want to clear a table completely use clear_table().
 
If you want to clear a table completely use clear_table().
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_count_table -->
 
====count_table====
 
  
 
  $n = $db-&gt;count_table( $tablename )
 
  $n = $db-&gt;count_table( $tablename )
 
Return the number of rows in the specified SQL table.
 
Return the number of rows in the specified SQL table.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_has_table -->
 
====has_table====
 
 
$boolean = $db-&gt;has_table( $tablename )
 
Return true if a table of the given name exists in the database.
 
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_has_column -->
 
====has_column====
 
 
$boolean = $db-&gt;has_column( $tablename, $columnname )
 
Return true if the a table of the given name has a column named $columnname in the database.
 
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_drop_table -->
 
====drop_table====
 
 
$db-&gt;drop_table( $tablename [, $tablename2 ] )
 
Delete the named table(s). Use with caution!
 
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_clear_table -->
 
====clear_table====
 
  
 
  $db-&gt;clear_table( $tablename )
 
  $db-&gt;clear_table( $tablename )
Line 813: Line 229:
  
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
<!-- Pod2Wiki=item_rename_table -->
+
<!-- Pod2Wiki=head_quoting -->
====rename_table====
+
===Quoting===
 
+
$db-&gt;rename_table( $tablename, $newtablename )
+
Renames the table from the old name to the new one.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_swap_table -->
+
====swap_table====
+
 
+
$db-&gt;swap_table( $table_a, $table_b )
+
Swap table a and table b.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_get_tables -->
+
====get_tables====
+
 
+
@tables = $db-&gt;get_tables
+
Return a list of all the tables in the database.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=head_quoting_values -->
+
===Quoting Values===
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_prep_int -->
+
====prep_int====
+
 
+
 
  $mungedvalue = EPrints::Database::prep_int( $value )
 
  $mungedvalue = EPrints::Database::prep_int( $value )
 
Escape a numerical value for SQL. undef becomes NULL. Anything else becomes a number (zero if needed).
 
Escape a numerical value for SQL. undef becomes NULL. Anything else becomes a number (zero if needed).
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_prep_value -->
 
====prep_value====
 
  
 
  $mungedvalue = EPrints::Database::prep_value( $value )
 
  $mungedvalue = EPrints::Database::prep_value( $value )
 
Escape a value for SQL. Modify value such that " becomes \" and \  becomes \\ and ' becomes \'
 
Escape a value for SQL. Modify value such that " becomes \" and \  becomes \\ and ' becomes \'
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_prep_like_value -->
 
====prep_like_value====
 
  
 
  $mungedvalue = EPrints::Database::prep_like_value( $value )
 
  $mungedvalue = EPrints::Database::prep_like_value( $value )
 
Escape an value for an SQL like field. In addition to ' " and \ also  escapes % and _
 
Escape an value for an SQL like field. In addition to ' " and \ also  escapes % and _
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_quote_value -->
 
====quote_value====
 
  
 
  $str = $db-&gt;quote_value( $value )
 
  $str = $db-&gt;quote_value( $value )
 
Return a quoted value. To quote a 'like' value you should do:
 
Return a quoted value. To quote a 'like' value you should do:
  
my $str = $database-&gt;quote_value( EPrints::Database::prep_like_value( $foo ) . '%' );
+
<pre> my $str = $database-&gt;quote_value( EPrints::Database::prep_like_value( $foo ) . '%' );</pre>
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_quote_int -->
+
====quote_int====
+
  
 
  $str = $db-&gt;quote_int( $value )
 
  $str = $db-&gt;quote_int( $value )
 
Return a quoted integer value
 
Return a quoted integer value
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_quote_binary -->
 
====quote_binary====
 
  
 
  $str = $db-&gt;quote_binary( $bytes )
 
  $str = $db-&gt;quote_binary( $bytes )
Line 908: Line 252:
  
 
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 method should be called on data containing nul bytes or back-slashes before being passed on [[API:EPrints/Database#quote_value|quote_value]].
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_quote_ordervalue -->
 
====quote_ordervalue====
 
  
 
  $str = $db-&gt;quote_ordervalue( $field, $value )
 
  $str = $db-&gt;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 before it's inserted.
 
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.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_quote_identifier -->
 
====quote_identifier====
 
  
 
  $str = $db-&gt;quote_identifier( @parts )
 
  $str = $db-&gt;quote_identifier( @parts )
 
Quote a database identifier (e.g. table names). Multiple @parts will be joined by dot.
 
Quote a database identifier (e.g. table names). Multiple @parts will be joined by dot.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_prepare_regexp -->
 
====prepare_regexp====
 
  
 
  $sql = $db-&gt;prepare_regexp( $quoted_column, $quoted_value )
 
  $sql = $db-&gt;prepare_regexp( $quoted_column, $quoted_value )
 
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).
 
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).
  
<!-- Edit below this comment -->
+
$sql = $db-&gt;sql_AS()
 +
Returns the syntactic glue to use when aliasing. SQL 92 DBs will happilly use " AS " but some DBs (Oracle!) won't accept it.
  
 +
$sql = $db-&gt;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.
  
<!-- Pod2Wiki= -->
+
$sql = $db-&gt;sql_IS_SET( $qname )
<!-- Pod2Wiki=item_sql_as -->
+
Return the SQL to test whether $qname is set. For most databases this will be:
====sql_as====
+
  
  $sql = $db-&gt;sql_AS()
+
<pre> $qname is not null AND $qname != ''</pre>
Returns the syntactic glue to use when aliasing. SQL 92 DBs will happilly use " AS " but some DBs (Oracle!) won't accept it.
+
 
 +
$qname is a quoted identifier or value.
  
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
Line 953: Line 279:
  
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
<!-- Pod2Wiki=item_sql_like -->
+
<!-- Pod2Wiki=head_counters -->
====sql_like====
+
===Counters===
 +
$n = $db-&gt;counter_current( $counter )
 +
Return the value of the previous counter_next on $counter.
  
  $sql = $db-&gt;sql_LIKE()
+
  $n = $db-&gt;counter_next( $counter )
Returns the syntactic glue to use when making a case-insensitive LIKE. PostgreSQL requires "ILIKE" while everything else uses "LIKE" and the column collation.
+
Return the next unused value for the named counter. Returns undef if  the counter doesn't exist.
  
<!-- Edit below this comment -->
+
$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.
  
 +
$db-&gt;counter_reset( $counter )
 +
Reset the counter. Use with caution.
 +
 +
$n = $db-&gt;next_doc_pos( $eprintid )
 +
Return the next unused document pos for the given eprintid.
  
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=head_dataset_data -->
 
===Dataset Data===
 
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
  
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
<!-- Pod2Wiki=item_insert_data -->
+
<!-- Pod2Wiki=head_dataset_data -->
====insert_data====
+
===Dataset data===
 +
$boolean = $db-&gt;exists( $dataset, $id )
 +
Return true if a record with the given primary key exists in the dataset, otherwise false.
  
 
  $success = $db-&gt;insert_data( $dataset, $data )
 
  $success = $db-&gt;insert_data( $dataset, $data )
Line 977: Line 310:
 
Returns undef if a record already exists with the key field value in $data.
 
Returns undef if a record already exists with the key field value in $data.
  
Inserts ordervalues if the dataset is {{API:PodLink|file=EPrints/DataSet|package_name=EPrints::DataSet|section=ordered|text=ordered}}.
+
Inserts ordervalues if the dataset is [[API:EPrints/DataSet#ordered|ordered]].
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_update_data -->
+
====update_data====
+
  
 
  $success = $db-&gt;update_data( $dataset, $data, $changed )
 
  $success = $db-&gt;update_data( $dataset, $data, $changed )
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.
+
Updates a record in the given [[API:EPrints/DataSet|$dataset]]. $data is a copy of the entire record's data and $changed the values that have changed.
  
 
If the record does not already exist or the key field is unset in $data no changes will be written.
 
If the record does not already exist or the key field is unset in $data no changes will be written.
  
Updates ordervalues if the dataset is {{API:PodLink|file=EPrints/DataSet|package_name=EPrints::DataSet|section=ordered|text=ordered}}.
+
Updates ordervalues if the dataset is [[API:EPrints/DataSet#ordered|ordered]].
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_exists -->
+
====exists====
+
 
+
$boolean = $db-&gt;exists( $dataset, $id )
+
Return true if a record with the given primary key exists in the dataset, otherwise false.
+
 
+
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_remove -->
+
====remove====
+
  
 
  $success = $db-&gt;remove( $dataset, $id )
 
  $success = $db-&gt;remove( $dataset, $id )
Line 1,019: Line 328:
  
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
<!-- Pod2Wiki=head_searching_caching_and_retrieval -->
+
<!-- Pod2Wiki=head_searching_caching_and_object_retrieval -->
===Searching, Caching and Retrieval===
+
===Searching, caching and object retrieval===
<!-- Edit below this comment -->
+
 
+
 
+
<!-- Pod2Wiki= -->
+
<!-- Pod2Wiki=item_cache_exp -->
+
====cache_exp====
+
 
+
 
  $searchexp = $db-&gt;cache_exp( $cacheid )
 
  $searchexp = $db-&gt;cache_exp( $cacheid )
 
Return the serialised Search of a the cached search with id $cacheid. Return undef if the id is invalid or expired.
 
Return the serialised Search of a the cached search with id $cacheid. Return undef if the id is invalid or expired.
 
<!-- Edit below this comment -->
 
 
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki=item_cache -->
 
====cache====
 
  
 
  $cacheid = $db-&gt;cache( $searchexp, $dataset, $srctable, [$order], [$list] )
 
  $cacheid = $db-&gt;cache( $searchexp, $dataset, $srctable, [$order], [$list] )
Line 1,047: Line 342:
 
If $srctable is set to "ALL" every matching record from $dataset is added to the cache, optionally ordered by $order.
 
If $srctable is set to "ALL" every matching record from $dataset is added to the cache, optionally ordered by $order.
  
<!-- Edit below this comment -->
+
$tablename = $db-&gt;cache_table( $id )
 +
Return the SQL table used to store the cache with id $id.
  
 +
$ids = $db-&gt;search( $keyfield, $tables, $conditions, [$main_table_alias] )
 +
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.
  
<!-- Pod2Wiki= -->
+
If no table alias is passed then M is assumed.
<!-- Pod2Wiki=item_cache_table -->
+
====cache_table====
+
  
  $tablename = $db-&gt;cache_table( $id )
+
  $db-&gt;drop_cache( $id )
Return the SQL table used to store the cache with id $id.
+
Remove the cached search with the given id.
  
<!-- Edit below this comment -->
+
$foo = $db-&gt;from_cache( $dataset, $cacheid, [$offset], [$count], [$justids] )
 +
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.
  
 +
$offset is an offset from the start of the cache and $count is the number of records to return.
  
<!-- Pod2Wiki= -->
+
If $justids is true then it returns just an ref to an array of the record ids, not the objects.
<!-- Pod2Wiki=item_search -->
+
====search====
+
  
  $ids = $db-&gt;search( $keyfield, $tables, $conditions, [$main_table_alias] )
+
  $c = $db-&gt;drop_orphan_cache_tables
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.  
+
Drop tables called "cacheXXX" where XXX is an integer. Returns the number of tables dropped.
  
If no table alias is passed then M is assumed.  
+
$obj = $db-&gt;get_single( $dataset, $id )
 +
Return a single item from the given dataset. The one with the specified id.
 +
 
 +
$items = $db-&gt;get_all( $dataset )
 +
Returns a reference to an array with all the items from the given dataset.
 +
 
 +
@ids = $db-&gt;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.
 +
 
 +
@dataobjs = $db-&gt;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.
 +
 
 +
$foo = $db-&gt;get_values( $field, $dataset )
 +
Return a reference to an array of all the distinct values of the  [[API:EPrints/MetaField|EPrints::MetaField]] specified.
 +
 
 +
$ids = $db-&gt;get_ids_by_field_values( $field, $dataset [ %opts ] )
 +
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.
 +
 
 +
@events = $db-&gt;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 on the queue.
  
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
Line 1,073: Line 388:
  
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
<!-- Pod2Wiki=item_drop_cache -->
+
<!-- Pod2Wiki=head_password_validation -->
====drop_cache====
+
===Password Validation===
 +
$real_username = $db-&gt;valid_login( $username, $password )
 +
Tests whether the clear-text $password matches the stored encrypted password for $username.
  
$db-&gt;drop_cache( $id )
+
Returns the user's real (case-sensitive) username or undef if the passwords don't match.
Remove the cached search with the given id.
+
  
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
Line 1,083: Line 399:
  
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
<!-- Pod2Wiki=item_from_cache -->
+
<!-- Pod2Wiki=head_database_schema_manipulation -->
====from_cache====
+
===Database schema manipulation===
 +
$boolean = $db-&gt;has_sequence( $name )
 +
Return true if a sequence of the given name exists in the database.
  
  $foo = $db-&gt;from_cache( $dataset, $cacheid, [$offset], [$count], [$justids] )
+
  $success = $db-&gt;create_sequence( $seq_name )
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.  
+
Creates a new sequence object initialised to zero.
  
$offset is an offset from the start of the cache and $count is the number of records to return.
+
$success = $db-&gt;drop_sequence( $seq_name )
 +
Deletes a sequence object.
  
If $justids is true then it returns just an ref to an array of the record ids, not the objects.
+
$boolean = $db-&gt;has_column( $tablename, $columnname )
 +
Return true if the a table of the given name has a column named $columnname in the database.
  
<!-- Edit below this comment -->
+
$success = $db-&gt;drop_column( $table, $column )
 +
Drops a column from a table.
  
 +
@columns = $db-&gt;get_primary_key( $tablename )
 +
Returns the list of column names that comprise the primary key for $tablename.
  
<!-- Pod2Wiki= -->
+
Returns empty list if no primary key exists.
<!-- Pod2Wiki=item_drop_orphan_cache_tables -->
+
====drop_orphan_cache_tables====
+
  
  $c = $db-&gt;drop_orphan_cache_tables
+
  $db-&gt;create_primary_key( $tablename, @cols )
Drop tables called "cacheXXX" where XXX is an integer. Returns the number of tables dropped.
+
Create a PRIMARY KEY on $tablename over @cols.
  
<!-- Edit below this comment -->
+
$name = $db-&gt;index_name( $table, @columns )
 +
Returns the name of the first index that starts with @columns on the $table table.
  
 +
Returns undef if no index exists.
  
<!-- Pod2Wiki= -->
+
$success = $db-&gt;create_index( $tablename, @columns )
<!-- Pod2Wiki=item_get_single -->
+
Creates an index over @columns for $tablename. Returns true on success.
====get_single====
+
  
  $obj = $db-&gt;get_single( $dataset, $id )
+
  $success = $db-&gt;create_unique_index( $tablename, @columns )
Return a single item from the given dataset. The one with the specified id.
+
Creates a unique index over @columns for $tablename. Returns true on success.
  
<!-- Edit below this comment -->
+
$ok = $db-&gt;create_foreign_key( $main_table, $aux_table, $key_field )
 +
Create a foreign key relationship between $main_table and $aux_table using the $key_field.
  
 +
This will cause records in $aux_table to be deleted if the equivalent record is deleted from $main_table.
  
<!-- Pod2Wiki= -->
+
@tables = $db-&gt;get_tables
<!-- Pod2Wiki=item_get_all -->
+
Return a list of all the tables in the database.
====get_all====
+
  
  $items = $db-&gt;get_all( $dataset )
+
  $boolean = $db-&gt;has_table( $tablename )
Returns a reference to an array with all the items from the given dataset.
+
Return true if a table of the given name exists in the database.
  
<!-- Edit below this comment -->
+
$success = $db-&gt;create_table( $tablename, $setkey, @fields );
 +
Creates a new table $tablename based on @fields.
  
 +
The first $setkey number of fields are used for a primary key.
  
<!-- Pod2Wiki= -->
+
$db-&gt;drop_table( $tablename [, $tablename2 ] )
<!-- Pod2Wiki=item_get_cache_ids -->
+
Delete the named table(s). Use with caution!
====get_cache_ids====
+
  
  @ids = $db-&gt;get_cache_ids( $dataset, $cachemap, $offset, $count )
+
  $db-&gt;rename_table( $tablename, $newtablename )
Returns a list of $count ids from $cache_id starting at $offset and in the order in the cachemap.
+
Renames the table from the old name to the new one.
 +
 
 +
$db-&gt;swap_table( $table_a, $table_b )
 +
Swap table a and table b.  
  
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
Line 1,137: Line 464:
  
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
<!-- Pod2Wiki=item_get_dataobjs -->
+
<!-- Pod2Wiki=head_eprints_schema_manipulation -->
====get_dataobjs====
+
===EPrints schema manipulation===
 +
$success = $db-&gt;create_archive_tables
 +
Create all the SQL tables for each dataset.
  
  @dataobjs = $db-&gt;get_dataobjs( $dataset [, $id [, $id ] ] )
+
  $db-&gt;drop_archive_tables()
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 tables used by eprints in the database.
  
<!-- Edit below this comment -->
+
$db-&gt;create_version_table
 +
Make the version table (and set the only value to be the current version of eprints).
  
 +
$db-&gt;drop_version_table
 +
Drop the version table.
  
<!-- Pod2Wiki= -->
+
$db-&gt;has_dataset( $dataset )
<!-- Pod2Wiki=item_get_values -->
+
Returns true if $dataset exists in the database or has no database tables.
====get_values====
+
  
$foo = $db-&gt;get_values( $field, $dataset )
+
This does not check that all fields are configured - see has_field().
Return a reference to an array of all the distinct values of the  [[API:EPrints/MetaField|EPrints::MetaField]] specified.
+
  
<!-- Edit below this comment -->
+
$success = $db-&gt;create_dataset_tables( $dataset )
 +
Create all the SQL tables for a single dataset.
  
 +
Index tables are created in the dataset is indexable.
  
<!-- Pod2Wiki= -->
+
Order values tables are created for each configured languaged if the dataset is ordered.
<!-- Pod2Wiki=item_get_ids_by_field_values -->
+
====get_ids_by_field_values====
+
  
  $ids = $db-&gt;get_ids_by_field_values( $field, $dataset [ %opts ] )
+
  $db-&gt;drop_dataset_tables( $dataset )
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.
+
Drop all the SQL tables for a single dataset.
  
<!-- Edit below this comment -->
+
$db-&gt;has_field( $dataset, $field )
 +
Returns true if $field is in the database for $dataset.
  
 +
$db-&gt;add_field( $dataset, $field [, $force ] )
 +
Add $field to $dataset's tables.
  
<!-- Pod2Wiki= -->
+
If $force is true will modify/replace an existing column (use with care!).
<!-- Pod2Wiki=item_dequeue_events -->
+
====dequeue_events====
+
  
  @events = $db-&gt;dequeue_events( $n )
+
  $db-&gt;remove_field( $dataset, $field )
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.
+
Remove $field from $dataset's tables.
  
<!-- Edit below this comment -->
+
$ok = $db-&gt;rename_field( $dataset, $field, $old_name )
 +
Rename a $field in the database from it's old name $old_name.
  
 +
Returns true if the field was successfully renamed.
  
<!-- Pod2Wiki= -->
+
$success = $db-&gt;create_counters
<!-- Pod2Wiki=head_password_validation -->
+
Create the counters used to store the highest current id of eprints, users etc.
===Password Validation===
+
<!-- Edit below this comment -->
+
  
 +
$success = $db-&gt;has_counter( $counter )
 +
Returns true if $counter exists.
  
<!-- Pod2Wiki= -->
+
$success = $db-&gt;create_counter( $name )
<!-- Pod2Wiki=item_valid_login -->
+
Create and initialise to zero a new counter called $name.
====valid_login====
+
  
  $real_username = $db-&gt;valid_login( $username, $password )
+
  $success = $db-&gt;remove_counters
Tests whether the clear-text $password matches the stored encrypted password for $username.
+
Destroy all counters.
  
Returns the user's real (case-sensitive) username or undef if the passwords don't match.
+
$success = $db-&gt;drop_counter( $name )
 +
Destroy the counter named $name.
  
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
Line 1,205: Line 538:
 
<!-- Pod2Wiki=head_copyright -->
 
<!-- Pod2Wiki=head_copyright -->
 
==COPYRIGHT==
 
==COPYRIGHT==
 +
Copyright 2000-2011 University of Southampton.
 +
 +
This file is part of EPrints http://www.eprints.org/.
 +
 +
EPrints is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
 +
 +
EPrints is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for more details.
 +
 +
You should have received a copy of the GNU Lesser General Public License along with EPrints.  If not, see http://www.gnu.org/licenses/.
 +
 
<!-- Edit below this comment -->
 
<!-- Edit below this comment -->
  
  
 
<!-- Pod2Wiki= -->
 
<!-- Pod2Wiki= -->
<!-- Pod2Wiki=_postamble_ --><!-- Edit below this comment -->
+
<!-- Pod2Wiki=_postamble_ -->
 +
<!-- Edit below this comment -->

Latest revision as of 09:56, 22 January 2013

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


API: Core API

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


NAME

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


SYNOPSIS

$db = $repo->database
$sth = $db->prepare("SELECT 'hello, world!'");
$sth->execute;
print $sth->fetchrow_arrayref->[0], "\n";


DESCRIPTION

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.

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.


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.


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.


METHODS

Database

$db = EPrints::Database->new( $repo )

Create a connection to the database.

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

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

$ok = $db->connect

Connects to the database.

$db->disconnect

Disconnects from the EPrints database.

$db->set_debug( $boolean )

Set the SQL debug mode to true or false.

$db->set_version( $versionid );

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

$version = $db->get_version

Returns the current database schema version.

$boolean = $db->is_latest_version

Return true if the database schema is in the correct configuration for this version of eprints. Otherwise false.

$version = $db->get_server_version

Return the database server version.

$charset = $db->get_default_charset( LANGUAGE )

Return the character set to use for LANGUAGE.

Returns undef if character sets are unsupported.

$collation = $db->get_default_collation( LANGUAGE )

Return the collation to use for LANGUAGE.

Returns undef if collation is unsupported.

$driver = $db->get_driver_name

Return the database driver name.

$errstr = $db->error

Return a string describing the last SQL error.

$bool = $db->retry_error

Returns true if the current error is a retry error.

$bool = $db->duplicate_error

Returns true if the current error is a PRIMARY KEY or UNIQUE error.

$db->begin

Begin a transaction.

$db->commit

Commit the previously begun transaction.

$db->rollback

Roll-back the current transaction.

$type_info = $db->type_info( DATA_TYPE )

See DBI/type_info.

$real_type = $db->get_column_type( NAME, TYPE, NOT_NULL, [ LENGTH/PRECISION ], [ 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 "not null".

LENGTH/PRECISION 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.

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.


Basic SQL operations

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

Execute the given SQL.

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

Prepare the SQL statement $sql for execution.

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

  my $sth = $db->prepare_select( "SELECT 'Hello, World'" );
  $sth->execute;
$sth = $db->prepare_select( $sql [, %options ] )

Prepare a SELECT statement $sql for execution. This method provides cross-database support for getting a part of the result list based on an offset/limit.

Returns a DBI statement handle.

Options:

  limit - limit the number of rows returned
  offset - return limit number of rows after offset
$rows = $db->update( $tablename, $keycols, $keyvals, $columns, $values )

UPDATEs $columns with the equivalent slot from $values where the rows in $tablename match the $keycols/$keyvals.

Returns the number of rows affected or false on error, see DBI's execute() method.

  $db->update(
    'eprint',
    ['eprintid'],
    [23],
    ['title','description'],
    ['Hello, World!', undef]
  );
$success = $db->update_quoted( $tablename, $keycols, $keyvals, $columns, $Q_values )

UPDATEs $tablename where $keycols equals $keyvals.

Returns the number of rows affected or false on error, see DBI's execute() method.

$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.

Values will be quoted before insertion.

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

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.

Values will NOT be quoted before insertion - care must be exercised!

$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().

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

Return the number of rows in the specified SQL table.

$db->clear_table( $tablename )

Clears all records from the given table, use with caution!


Quoting

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

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

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

Escape a value for SQL. Modify value such that " becomes \" and \ becomes \\ and ' becomes \'

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

Escape an value for an SQL like field. In addition to ' " and \ also escapes % and _

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

Return a quoted value. To quote a 'like' value you should do:

 my $str = $database->quote_value( EPrints::Database::prep_like_value( $foo ) . '%' );
$str = $db->quote_int( $value )

Return a quoted integer value

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

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

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

$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 before it's inserted.

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

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

$sql = $db->prepare_regexp( $quoted_column, $quoted_value )

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).

$sql = $db->sql_AS()

Returns the syntactic glue to use when aliasing. SQL 92 DBs will happilly use " AS " but some DBs (Oracle!) won't accept it.

$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.

$sql = $db->sql_IS_SET( $qname )

Return the SQL to test whether $qname is set. For most databases this will be:

  $qname is not null AND $qname != ''

$qname is a quoted identifier or value.


Counters

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

Return the value of the previous counter_next on $counter.

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

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

$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.

$db->counter_reset( $counter )

Reset the counter. Use with caution.

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

Return the next unused document pos for the given eprintid.


Dataset data

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

Return true if a record with the given primary key exists in the dataset, otherwise false.

$success = $db->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.

Inserts ordervalues if the dataset is ordered.

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

Updates a record in the given $dataset. $data is a copy of the entire record's data and $changed the values that have changed.

If the record does not already exist or the key field is unset in $data no changes will be written.

Updates ordervalues if the dataset is ordered.

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

Remove the record, index terms and order value with the key field value $id from the specified dataset.

Returns true on success.


Searching, caching and object retrieval

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

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

$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.

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

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

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

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.

If no table alias is passed then M is assumed.

$db->drop_cache( $id )

Remove the cached search with the given id.

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

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.

$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.

$c = $db->drop_orphan_cache_tables

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

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

Return a single item from the given dataset. The one with the specified id.

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

Returns a reference to an array with all the items from the given dataset.

@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.

@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.

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

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

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

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.

@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 on the queue.


Password Validation

$real_username = $db->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.


Database schema manipulation

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

Return true if a sequence of the given name exists in the database.

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

Creates a new sequence object initialised to zero.

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

Deletes a sequence object.

$boolean = $db->has_column( $tablename, $columnname )

Return true if the a table of the given name has a column named $columnname in the database.

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

Drops a column from a table.

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

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

Returns empty list if no primary key exists.

$db->create_primary_key( $tablename, @cols )

Create a PRIMARY KEY on $tablename over @cols.

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

Returns the name of the first index that starts with @columns on the $table table.

Returns undef if no index exists.

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

Creates an index over @columns for $tablename. Returns true on success.

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

Creates a unique index over @columns for $tablename. Returns true on success.

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

Create a foreign key relationship between $main_table and $aux_table using the $key_field.

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

@tables = $db->get_tables

Return a list of all the tables in the database.

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

Return true if a table of the given name exists in the database.

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

Creates a new table $tablename based on @fields.

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

$db->drop_table( $tablename [, $tablename2 ] )

Delete the named table(s). Use with caution!

$db->rename_table( $tablename, $newtablename )

Renames the table from the old name to the new one.

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

Swap table a and table b.


EPrints schema manipulation

$success = $db->create_archive_tables

Create all the SQL tables for each dataset.

$db->drop_archive_tables()

Destroy all tables used by eprints in the database.

$db->create_version_table

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

$db->drop_version_table

Drop the version table.

$db->has_dataset( $dataset )

Returns true if $dataset exists in the database or has no database tables.

This does not check that all fields are configured - see has_field().

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

Create all the SQL tables for a single dataset.

Index tables are created in the dataset is indexable.

Order values tables are created for each configured languaged if the dataset is ordered.

$db->drop_dataset_tables( $dataset )

Drop all the SQL tables for a single dataset.

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

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

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

Add $field to $dataset's tables.

If $force is true will modify/replace an existing column (use with care!).

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

Remove $field from $dataset's tables.

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

Rename a $field in the database from it's old name $old_name.

Returns true if the field was successfully renamed.

$success = $db->create_counters

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

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

Returns true if $counter exists.

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

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

$success = $db->remove_counters

Destroy all counters.

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

Destroy the counter named $name.


SEE ALSO

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


COPYRIGHT

Copyright 2000-2011 University of Southampton.

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

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

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

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