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

[Andrew Arensburger]

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

Modified Files:
        Context.pm 
Log Message:
Added "preference" method, for fetching a single value from
systempreferences (which is all most scripts need).


Index: Context.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Context.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Context.pm  3 Oct 2002 16:15:10 -0000       1.6
--- Context.pm  5 Oct 2002 23:55:00 -0000       1.7
***************
*** 292,299 ****
--- 292,335 ----
  }
  
+ =item preference
+ 
+   $sys_preference = C4::Context->preference("some_variable");
+ 
+ Looks up the value of the given system preference in the
+ systempreferences table of the Koha database, and returns it. If the
+ variable is not set, or in case of error, returns the undefined value.
+ 
+ =cut
+ #'
+ # FIXME - The preferences aren't likely to change over the lifetime of
+ # the script (and things might break if they did change), so perhaps
+ # this function should cache the results it finds.
+ sub preference
+ {
+       my $self = shift;
+       my $var = shift;                # The system preference to return
+       my $retval;                     # Return value
+       my $dbh = C4::Context->dbh;     # Database handle
+       my $sth;                        # Database query handle
+ 
+       # Look up systempreferences.variable==$var
+       $retval = $dbh->selectrow_array(<<EOT);
+               SELECT  value
+               FROM    systempreferences
+               WHERE   variable='$var'
+               LIMIT   1
+ EOT
+       return $retval;
+ }
+ 
  # AUTOLOAD
  # This implements C4::Config->foo, and simply returns
  # C4::Context->config("foo"), as described in the documentation for
  # &config, above.
+ 
+ # FIXME - Perhaps this should be extended to check &config first, and
+ # then &preference if that fails. OTOH, AUTOLOAD could lead to crappy
+ # code, so it'd probably be best to delete it altogether so as not to
+ # encourage people to use it.
  sub AUTOLOAD
  {