[Koha-bugs] [Bug 8798] Add the use of DBIx::Class

[bugzilla-daemon at bugs.koha-community.org]

http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=8798

wajasu <matted-34813 at mypacks.net> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|Needs Signoff               |Failed QA

--- Comment #5 from wajasu <matted-34813 at mypacks.net> ---
I tried again.  I tried to apt-get
libdbic-class-schema-loader-perl
      ^
      x
so i loaded it with an x instead.
I also needed to change DBIC to DBIx in C4/Installer/PerlDependencies.pm

I'll leave it to you to fix.  So I can signoff tomorrow.

After those i tried:
koha at biblio:~/kohaclone$ prove t/Context.t 
t/Context.t .. 1/1 
#   Failed test 'use C4::Context;'
#   at t/Context.t line 9.
#     Tried to use 'C4::Context'.
#     Error:  Undefined subroutine &DBIx::Class::Exception::blessed called at
/usr/share/perl5/DBIx/Class/Exception.pm line 55.
# Compilation failed in require at /home/koha/kohaclone/C4/Context.pm line 102.
# BEGIN failed--compilation aborted at /home/koha/kohaclone/C4/Context.pm line
102.
# Compilation failed in require at (eval 6) line 2.
# BEGIN failed--compilation aborted at (eval 6) line 2.
# Looks like you failed 1 test of 1.
t/Context.t .. Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/1 subtests 


I believe DBIx::Class::Exception is in   DBIx::Class  (which would have come as
a dependency.)  Maybe there is something else?  a DBD... DBI... 
I was playing with carton/cpanfile and did a reverse engineer with just these:
requires 'DBD::mysql', '4.022';
requires 'DBIx::Class::Schema::Loader', '0.07033';
so maybe we need?  No its not those, I have them in my test VM.

Maybe its a PERL5LIB or search path thing?

testdb.pl  - I used this in my  host OS when I was getting familiar with DBIx.

#!/usr/bin/perl

use strict;
use warnings;

use Koha::Schema;

  my $schema =
Koha::Schema->connect('DBI:mysql:database=koha;host=192.168.122.70','koha','koha');

  get_biblios();

  sub get_biblios {
    print "get_biblios:\n";
    my $rs = $schema->resultset('Biblio')->search(
    );
    while (my $biblio = $rs->next) {
      print $biblio->title . "\n";
    }
    print "\n";
  }
}

-- 
You are receiving this mail because:
You are watching all bug changes.