[Koha-cvs] CVS: koha/C4 Context.pm,1.2.2.1,1.2.2.2

[Andrew Arensburger]

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

Modified Files:
      Tag: arensb-context
        Context.pm 
Log Message:
Merged in changes from main branch.


Index: Context.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Context.pm,v
retrieving revision 1.2.2.1
retrieving revision 1.2.2.2
diff -C2 -r1.2.2.1 -r1.2.2.2
*** Context.pm  4 Oct 2002 02:59:28 -0000       1.2.2.1
--- Context.pm  5 Oct 2002 07:10:34 -0000       1.2.2.2
***************
*** 39,42 ****
--- 39,43 ----
    $config_value = C4::Context->config("config_variable");
    $db_handle = C4::Context->dbh;
+   $stopwordhash = C4::Context->stopwords;
  
  =head1 DESCRIPTION
***************
*** 183,186 ****
--- 184,188 ----
  
        $self->{"dbh"} = undef;         # Database handle
+       $self->{"stopwords"} = undef; # stopwords list
  
        bless $self, $class;
***************
*** 421,424 ****
--- 423,466 ----
        # FIXME - If it is determined that restore_context should
        # return something, then this function should, too.
+ }
+ 
+ =item stopwords
+ 
+   $dbh = C4::Context->stopwords;
+ 
+ Returns a hash with stopwords.
+ 
+ This hash is cached for future use: if you call
+ C<C4::Context-E<gt>stopwords> twice, you will get the same hash without real 
DB access
+ 
+ =cut
+ #'
+ sub stopwords
+ {
+       my $retval = {};
+ 
+       # If the hash already exists, return it.
+       return $context->{"stopwords"} if defined($context->{"stopwords"});
+ 
+       # No hash. Create one.
+       $context->{"stopwords"} = &_new_stopwords();
+ 
+       return $context->{"stopwords"};
+ }
+ 
+ # _new_stopwords
+ # Internal helper function (not a method!). This creates a new
+ # hash with stopwords
+ 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;
  }