return $cached_server_version;
}
+sub GetFieldDefs {
+ my $dbh = Bugzilla->dbh;
+
+ my $extra = "";
+ if (!&::UserInGroup(Param('timetrackinggroup'))) {
+ $extra = "WHERE name NOT IN ('estimated time', 'remaining_time', " .
+ "'work_time', 'percentage_complete', 'deadline')";
+ }
+
+ my @fields;
+ my $sth = $dbh->prepare("SELECT name, description
+ FROM fielddefs $extra
+ ORDER BY sortkey");
+ $sth->execute();
+ while (my $field_ref = $sth->fetchrow_hashref()) {
+ push(@fields, $field_ref);
+ }
+ return(@fields);
+}
+
1;
__END__
=head1 SYNOPSIS
+ # Connection
my $dbh = Bugzilla::DB->connect_main;
my $shadow = Bugzilla::DB->connect_shadow;
+ # Schema Information
+ my @fields = GetFieldDefs();
+
+ # Deprecated
SendSQL("SELECT COUNT(*) FROM bugs");
my $cnt = FetchOneColumn();
importing the C<:deprecated> tag. These routines should not be used in new
code.
+The only functions that should be used by modern, regular Bugzilla code
+are the "Schema Information" functions.
+
=head1 CONNECTION
A new database handle to the required database can be created using this
=back
+=head1 SCHEMA INFORMATION
+
+Bugzilla::DB also contains routines to get schema information about the
+database.
+
+=over 4
+
+=item C<GetFieldDefs>
+
+Returns a list of all the "bug" fields in Bugzilla. The list contains
+hashes, with a 'name' key and a 'description' key.
+
=head1 DEPRECATED ROUTINES
Several database routines are deprecated. They should not be used in new code,
# Include the Bugzilla CGI and general utility library.
use lib qw(.);
require "CGI.pl";
+use Bugzilla::DB;
# Retrieve this installation's configuration.
GetVersionTable();
$vars->{'closed_status'} = \@closed_status;
# Generate a list of fields that can be queried.
-$vars->{'field'} = [GetFieldDefs()];
+$vars->{'field'} = [Bugzilla::DB::GetFieldDefs()];
# Determine how the user would like to receive the output;
# default is JavaScript.
return (@selectable_classes);
}
-sub GetFieldDefs {
- my $extra = "";
- if (!UserInGroup(Param('timetrackinggroup'))) {
- $extra = "WHERE name NOT IN ('estimated time', 'remaining_time', " .
- "'work_time', 'percentage_complete', 'deadline')";
- }
-
- my @fields;
- PushGlobalSQLState();
- SendSQL("SELECT name, description FROM fielddefs $extra ORDER BY sortkey");
- while (MoreSQLData()) {
- my ($name, $description) = FetchSQLData();
- push(@fields, { name => $name, description => $description });
- }
- PopGlobalSQLState();
-
- return(@fields);
-}
-
-
sub ValidatePassword {
# Determines whether or not a password is valid (i.e. meets Bugzilla's
# Boolean charts
my @fields;
push(@fields, { name => "noop", description => "---" });
-push(@fields, GetFieldDefs());
+push(@fields, Bugzilla::DB::GetFieldDefs());
$vars->{'fields'} = \@fields;
# Creating new charts - if the cmd-add value is there, we define the field