=head2 new_schema

  $schema = $database->new_schema;

Creates a new connection to the Koha database for the current context,

and returns the database handle (a C<DBI::db> object).

The handle is not saved anywhere: this method is strictly a

convenience function; the point is that it knows which database to

connect to so that the caller doesn't have to know.

=cut

#'

sub new_schema {

    my $self = shift;

    return &_new_schema();

}

=head2 set_schema

  $my_schema = $database->new_schema;

  $database->set_schema($my_schema);

  ...

  $database->restore_schema;

C<&set_schema> and C<&restore_schema> work in a manner analogous to

C<&set_context> and C<&restore_context>.

C<&set_schema> saves the current database handle on a stack, then sets

the current database handle to C<$my_schema>.

C<$my_schema> is assumed to be a good database handle.

=cut

sub set_schema {

    my $self       = shift;

    my $new_schema = shift;

    # Save the current database handle on the handle stack.

    # We assume that $new_schema is all good: if the caller wants to

    # screw himself by passing an invalid handle, that's fine by

    # us.

    push @{ $database->{schema_stack} }, $database->{schema};

    $database->{schema} = $new_schema;

}

=head2 restore_schema

  $database->restore_schema;

Restores the database handle saved by an earlier call to

C<$database-E<gt>set_schema>.

=cut

sub restore_schema {

    my $self = shift;

    if ( $#{ $database->{schema_stack} } < 0 ) {

        # Stack underflow

        die "SCHEMA stack underflow";

    }

    # Pop the old database handle and set it.

    $database->{schema} = pop @{ $database->{schema_stack} };

    # FIXME - If it is determined that restore_context should

    # return something, then this function should, too.

}

my $new_schema;

ok( $new_schema = $database->new_schema(), 'Try to get a new schema' );

ok( $database->set_schema($new_schema), 'Switch to new schema' );

ok( $database->restore_schema(),        'Switch back' );

-