[Koha-cvs] CVS: koha/C4 Context.pm,1.17,1.18

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29012/C4

Modified Files:
        Context.pm 
Log Message:
an improvement has been done in DB calls that needs a new index. It's 
automatically added in fresh installs, but for updates, run the following SQL 
command :
ALTER TABLE `marc_subfield_structure` ADD INDEX ( `kohafield` ) 

Index: Context.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Context.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** Context.pm  8 Dec 2004 10:08:41 -0000       1.17
--- Context.pm  14 Dec 2004 15:48:34 -0000      1.18
***************
*** 231,234 ****
--- 231,235 ----
        $self->{"dbh"} = undef;         # Database handle
        $self->{"stopwords"} = undef; # stopwords list
+       $self->{"marcfromkohafield"} = undef; # the hash with relations between 
koha table fields and MARC field/subfield
  
        bless $self, $class;
***************
*** 516,519 ****
--- 517,560 ----
  }
  
+ =item marcfromkohafield
+ 
+   $dbh = C4::Context->marcfromkohafield;
+ 
+ Returns a hash with marcfromkohafield.
+ 
+ This hash is cached for future use: if you call
+ C<C4::Context-E<gt>marcfromkohafield> twice, you will get the same hash 
without real DB access
+ 
+ =cut
+ #'
+ sub marcfromkohafield
+ {
+       my $retval = {};
+ 
+       # If the hash already exists, return it.
+       return $context->{"marcfromkohafield"} if 
defined($context->{"marcfromkohafield"});
+ 
+       # No hash. Create one.
+       $context->{"marcfromkohafield"} = &_new_marcfromkohafield();
+ 
+       return $context->{"marcfromkohafield"};
+ }
+ 
+ # _new_marcfromkohafield
+ # Internal helper function (not a method!). This creates a new
+ # hash with stopwords
+ sub _new_marcfromkohafield
+ {
+       my $dbh = C4::Context->dbh;
+       my $marcfromkohafield;
+       my $sth = $dbh->prepare("select 
frameworkcode,kohafield,tagfield,tagsubfield from marc_subfield_structure where 
kohafield > ''");
+       $sth->execute;
+       while (my ($frameworkcode,$kohafield,$tagfield,$tagsubfield) = 
$sth->fetchrow) {
+               my $retval = {};
+               $marcfromkohafield->{$frameworkcode}->{$kohafield} = 
[$tagfield,$tagsubfield];
+       }
+       return $marcfromkohafield;
+ }
+ 
  =item stopwords
  
***************
*** 556,559 ****
--- 597,602 ----
  }
  
+ 
+ 
  1;
  __END__