projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'bug_9908' into 3.12-master
[koha_fer]
/
C4
/
SQLHelper.pm
diff --git
a/C4/SQLHelper.pm
b/C4/SQLHelper.pm
index
e1cb5d0
..
21f5fa1
100644
(file)
--- a/
C4/SQLHelper.pm
+++ b/
C4/SQLHelper.pm
@@
-46,7
+46,7
@@
eval {
BEGIN {
# set the version for version checking
BEGIN {
# set the version for version checking
-
$VERSION = 0.5
;
+
$VERSION = 3.07.00.049
;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK=qw(
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK=qw(
@@
-248,7
+248,7
@@
Get the Primary Key field names of the table
=cut
=cut
-sub GetPrimaryKeys
($)
{
+sub GetPrimaryKeys {
my $tablename=shift;
my $hash_columns=_get_columns($tablename);
return grep { $hash_columns->{$_}->{'Key'} =~/PRI/i} keys %$hash_columns;
my $tablename=shift;
my $hash_columns=_get_columns($tablename);
return grep { $hash_columns->{$_}->{'Key'} =~/PRI/i} keys %$hash_columns;
@@
-284,7
+284,7
@@
With
=cut
=cut
-sub _get_columns
($)
{
+sub _get_columns {
my ($tablename) = @_;
unless ( exists( $hashref->{$tablename} ) ) {
my $dbh = C4::Context->dbh;
my ($tablename) = @_;
unless ( exists( $hashref->{$tablename} ) ) {
my $dbh = C4::Context->dbh;
@@
-314,7
+314,7
@@
If it is not for research purpose, filter primary keys
=cut
=cut
-sub _filter_columns
($$;$)
{
+sub _filter_columns {
my ($tablename,$research, $filtercolumns)=@_;
if ($filtercolumns){
return (@$filtercolumns);
my ($tablename,$research, $filtercolumns)=@_;
if ($filtercolumns){
return (@$filtercolumns);