[Koha-cvs] CVS: koha/C4 Context.pm,1.5,1.6

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv26626a

Modified Files:
        Context.pm 
Log Message:
Changed a function call to a class method call, and a few more anal
changes.


Index: Context.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Context.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** Context.pm  3 Oct 2002 11:31:31 -0000       1.5
--- Context.pm  3 Oct 2002 16:15:10 -0000       1.6
***************
*** 454,474 ****
  sub _new_stopwords
  {
!       my $dbh = &dbh;
        my $stopwordlist;
        my $sth = $dbh->prepare("select word from stopwords");
        $sth->execute;
        while (my $stopword = $sth->fetchrow_array) {
!       my $retval = {};
!       $stopwordlist->{$stopword} = uc($stopword);
        }
        return $stopwordlist;
- #     my $db_driver = $context->{"config"}{"db_scheme"} || "mysql";
- #     my $db_name   = $context->{"config"}{"database"};
- #     my $db_host   = $context->{"config"}{"hostname"};
- #     my $db_user   = $context->{"config"}{"user"};
- #     my $db_passwd = $context->{"config"}{"pass"};
- 
- #     return DBI->connect("DBI:$db_driver:$db_name:$db_host",
- #                         $db_user, $db_passwd);
  }
  
--- 454,466 ----
  sub _new_stopwords
  {
!       my $dbh = C4::Context->dbh;
        my $stopwordlist;
        my $sth = $dbh->prepare("select word from stopwords");
        $sth->execute;
        while (my $stopword = $sth->fetchrow_array) {
!               my $retval = {};
!               $stopwordlist->{$stopword} = uc($stopword);
        }
        return $stopwordlist;
  }