Menu
▾
▴
genex-cvs-commit — CVS commit messages
You can subscribe to this list here.
| 2002 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(267) |
Nov
(344) |
Dec
(119) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2003 |
Jan
(23) |
Feb
(15) |
Mar
(16) |
Apr
(388) |
May
|
Jun
(4) |
Jul
|
Aug
|
Sep
(4) |
Oct
|
Nov
|
Dec
|
|
From: <jas...@us...> - 2003-04-24 21:26:22
|
Update of /cvsroot/genex/genex-server/Genex/scripts
In directory sc8-pr-cvs1:/tmp/cvs-serv6319
Modified Files:
create_genex_class.pl.in
Log Message:
found gaping flaw in my understanding of how foreach loops work. Turns out, if you modify the loop variable you modify the value stored in the original array, whereas I thought that only happened if you left it as create_genex_class.pl.in. In any case, modified insert_db() to use quote_identifier() to resist SQL reserved names as column names.
Index: create_genex_class.pl.in
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/scripts/create_genex_class.pl.in,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** create_genex_class.pl.in 24 Apr 2003 00:16:10 -0000 1.23
--- create_genex_class.pl.in 24 Apr 2003 21:26:15 -0000 1.24
***************
*** 1661,1666 ****
\$value =~ s/(\\w)\\s*\$/\$1/;
# we have to quote the column names in case they have reserved words
! \$unique = \$dbh->quote_identifier(\$unique);
! push(\@clauses,"\$unique=" . \$dbh->quote(\$value));
}
\$UNIQUE_WHERE = join(' AND ', \@clauses);
--- 1661,1665 ----
\$value =~ s/(\\w)\\s*\$/\$1/;
# we have to quote the column names in case they have reserved words
! push(\@clauses,\$dbh->quote_identifier(\$unique). "=" . \$dbh->quote(\$value));
}
\$UNIQUE_WHERE = join(' AND ', \@clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:48:31
|
Update of /cvsroot/genex/genex-server/Mason/workspace
In directory sc8-pr-cvs1:/tmp/cvs-serv29688
Modified Files:
protocol-application-insert.html
Log Message:
CGI params not an array ref
Index: protocol-application-insert.html
===================================================================
RCS file: /cvsroot/genex/genex-server/Mason/workspace/protocol-application-insert.html,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** protocol-application-insert.html 23 Apr 2003 21:21:49 -0000 1.2
--- protocol-application-insert.html 24 Apr 2003 00:48:27 -0000 1.3
***************
*** 215,218 ****
--- 215,226 ----
"--proto_app_fk='$proto_app_pk'",
);
+ unless (ref($step_pks) eq 'ARRAY') {
+ # turn all the CGI params into array refs
+ $step_pks = [$step_pks];
+ $step_activity_date = [$step_activity_date];
+ $step_performer_con_fk = [$step_performer_con_fk];
+ $read_group = [$read_group];
+ $write_group = [$write_group];
+ }
for (my $i=0;$i<scalar @{$step_pks};$i++) {
|
|
From: <jas...@us...> - 2003-04-24 00:42:47
|
Update of /cvsroot/genex/genex-server/Genex/ProtocolStepApplication
In directory sc8-pr-cvs1:/tmp/cvs-serv27450/ProtocolStepApplication
Modified Files:
ProtocolStepApplication.pm
Log Message:
fixed fkey
Index: ProtocolStepApplication.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/ProtocolStepApplication/ProtocolStepApplication.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ProtocolStepApplication.pm 24 Apr 2003 00:19:11 -0000 1.3
--- ProtocolStepApplication.pm 24 Apr 2003 00:42:43 -0000 1.4
***************
*** 19,24 ****
use Class::ObjectTemplate::DB 0.27;
use Bio::Genex::Contact;
- use Bio::Genex::ProtocolStep;
use Bio::Genex::ProtocolApplication;
use Bio::Genex::Securable;
--- 19,24 ----
use Class::ObjectTemplate::DB 0.27;
use Bio::Genex::Contact;
use Bio::Genex::ProtocolApplication;
+ use Bio::Genex::ProtocolStep;
use Bio::Genex::Securable;
***************
*** 53,88 ****
[
'proto_app_fk',
! 'proto_step_fk'
]
]
;
$FKEYS = {
- 'performer_con_obj' => bless( {
- 'table_name' => 'Contact',
- 'fkey_type' => 'ONE_TO_ONE_OO',
- 'fkey_name' => 'performer_con_obj',
- 'can_self_reference' => 'false',
- 'pkey_name' => 'con_pk'
- }, 'Bio::Genex::Fkey' ),
'proto_app_obj' => bless( {
! 'table_name' => 'ProtocolApplication',
! 'fkey_type' => 'ONE_TO_ONE_OO',
! 'fkey_name' => 'proto_app_obj',
! 'can_self_reference' => 'false',
! 'pkey_name' => 'proto_app_pk'
! }, 'Bio::Genex::Fkey' ),
'protocol_step_obj' => bless( {
! 'table_name' => 'ProtocolStep',
! 'fkey_type' => 'ONE_TO_ONE_OO',
! 'fkey_name' => 'protocol_step_obj',
! 'can_self_reference' => 'false',
! 'pkey_name' => 'protocol_step_pk'
! }, 'Bio::Genex::Fkey' )
}
;
$COLUMN2NAME = {
- 'protocol_step_fk' => 'Protocol Step',
'proto_app_fk' => 'Protocol Application',
'performer_con_fk' => 'Protocol Step Performer',
'activity_date' => 'Activity Date',
--- 53,88 ----
[
'proto_app_fk',
! 'protocol_step_fk'
]
]
;
$FKEYS = {
'proto_app_obj' => bless( {
! 'fkey_name' => 'proto_app_obj',
! 'can_self_reference' => 'false',
! 'pkey_name' => 'proto_app_pk',
! 'fkey_type' => 'ONE_TO_ONE_OO',
! 'table_name' => 'ProtocolApplication'
! }, 'Bio::Genex::Fkey' ),
'protocol_step_obj' => bless( {
! 'fkey_name' => 'protocol_step_obj',
! 'can_self_reference' => 'false',
! 'pkey_name' => 'protocol_step_pk',
! 'fkey_type' => 'ONE_TO_ONE_OO',
! 'table_name' => 'ProtocolStep'
! }, 'Bio::Genex::Fkey' ),
! 'performer_con_obj' => bless( {
! 'fkey_name' => 'performer_con_obj',
! 'can_self_reference' => 'false',
! 'pkey_name' => 'con_pk',
! 'fkey_type' => 'ONE_TO_ONE_OO',
! 'table_name' => 'Contact'
! }, 'Bio::Genex::Fkey' )
}
;
$COLUMN2NAME = {
'proto_app_fk' => 'Protocol Application',
+ 'protocol_step_fk' => 'Protocol Step',
'performer_con_fk' => 'Protocol Step Performer',
'activity_date' => 'Activity Date',
***************
*** 91,105 ****
;
$NAME2COLUMN = {
- 'Protocol Application' => 'proto_app_fk',
- 'Protocol Step Performer' => 'performer_con_fk',
'Accession Number' => 'proto_step_app_pk',
'Activity Date' => 'activity_date',
! 'Protocol Step' => 'protocol_step_fk'
}
;
$FKEY_OBJ2RAW = {
- 'performer_con_obj' => 'performer_con_fk',
'proto_app_obj' => 'proto_app_fk',
! 'protocol_step_obj' => 'protocol_step_fk'
}
;
--- 91,105 ----
;
$NAME2COLUMN = {
'Accession Number' => 'proto_step_app_pk',
+ 'Protocol Step' => 'protocol_step_fk',
+ 'Protocol Step Performer' => 'performer_con_fk',
'Activity Date' => 'activity_date',
! 'Protocol Application' => 'proto_app_fk'
}
;
$FKEY_OBJ2RAW = {
'proto_app_obj' => 'proto_app_fk',
! 'protocol_step_obj' => 'protocol_step_fk',
! 'performer_con_obj' => 'performer_con_fk'
}
;
|
|
From: <jas...@us...> - 2003-04-24 00:38:15
|
Update of /cvsroot/genex/genex-server/Genex/Hardware
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/Hardware
Modified Files:
Hardware.pm
Log Message:
new files
Index: Hardware.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/Hardware/Hardware.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Hardware.pm 24 Apr 2003 00:08:55 -0000 1.3
--- Hardware.pm 24 Apr 2003 00:19:06 -0000 1.4
***************
*** 559,564 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 559,562 ----
***************
*** 566,570 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 564,570 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:38:12
|
Update of /cvsroot/genex/genex-server/Genex/GenexAdmin
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/GenexAdmin
Modified Files:
GenexAdmin.pm
Log Message:
new files
Index: GenexAdmin.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/GenexAdmin/GenexAdmin.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** GenexAdmin.pm 24 Apr 2003 00:08:53 -0000 1.22
--- GenexAdmin.pm 24 Apr 2003 00:19:05 -0000 1.23
***************
*** 547,552 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 547,550 ----
***************
*** 554,558 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 552,558 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:38:12
|
Update of /cvsroot/genex/genex-server/Genex/GroupLink
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/GroupLink
Modified Files:
GroupLink.pm
Log Message:
new files
Index: GroupLink.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/GroupLink/GroupLink.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** GroupLink.pm 24 Apr 2003 00:08:54 -0000 1.34
--- GroupLink.pm 24 Apr 2003 00:19:06 -0000 1.35
***************
*** 556,561 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 556,559 ----
***************
*** 563,567 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 561,567 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:38:10
|
Update of /cvsroot/genex/genex-server/Genex/GroupSec
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/GroupSec
Modified Files:
GroupSec.pm
Log Message:
new files
Index: GroupSec.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/GroupSec/GroupSec.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** GroupSec.pm 24 Apr 2003 00:08:55 -0000 1.41
--- GroupSec.pm 24 Apr 2003 00:19:06 -0000 1.42
***************
*** 594,599 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 594,597 ----
***************
*** 601,605 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 599,605 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:38:09
|
Update of /cvsroot/genex/genex-server/Genex/FeatureExtractionSoftware
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/FeatureExtractionSoftware
Modified Files:
FeatureExtractionSoftware.pm
Log Message:
new files
Index: FeatureExtractionSoftware.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/FeatureExtractionSoftware/FeatureExtractionSoftware.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** FeatureExtractionSoftware.pm 24 Apr 2003 00:08:53 -0000 1.9
--- FeatureExtractionSoftware.pm 24 Apr 2003 00:19:05 -0000 1.10
***************
*** 553,558 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 553,556 ----
***************
*** 560,564 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 558,564 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:39
|
Update of /cvsroot/genex/genex-server/Genex/ControlledVocab
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/ControlledVocab
Modified Files:
ControlledVocab.pm
Log Message:
new files
Index: ControlledVocab.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/ControlledVocab/ControlledVocab.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** ControlledVocab.pm 24 Apr 2003 00:08:47 -0000 1.34
--- ControlledVocab.pm 24 Apr 2003 00:19:03 -0000 1.35
***************
*** 598,603 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 598,601 ----
***************
*** 605,609 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 603,609 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:39
|
Update of /cvsroot/genex/genex-server/Genex/Contact
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/Contact
Modified Files:
Contact.pm
Log Message:
new files
Index: Contact.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/Contact/Contact.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** Contact.pm 24 Apr 2003 00:08:46 -0000 1.41
--- Contact.pm 24 Apr 2003 00:19:02 -0000 1.42
***************
*** 638,643 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 638,641 ----
***************
*** 645,649 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 643,649 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:39
|
Update of /cvsroot/genex/genex-server/Genex/ExperimentSet
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/ExperimentSet
Modified Files:
ExperimentSet.pm
Log Message:
new files
Index: ExperimentSet.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/ExperimentSet/ExperimentSet.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** ExperimentSet.pm 24 Apr 2003 00:08:50 -0000 1.41
--- ExperimentSet.pm 24 Apr 2003 00:19:04 -0000 1.42
***************
*** 715,720 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 715,718 ----
***************
*** 722,726 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 720,726 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:39
|
Update of /cvsroot/genex/genex-server/Genex/ContactType
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/ContactType
Modified Files:
ContactType.pm
Log Message:
new files
Index: ContactType.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/ContactType/ContactType.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** ContactType.pm 24 Apr 2003 00:08:47 -0000 1.22
--- ContactType.pm 24 Apr 2003 00:19:03 -0000 1.23
***************
*** 534,539 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 534,537 ----
***************
*** 541,545 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 539,545 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:39
|
Update of /cvsroot/genex/genex-server/Genex/ExternalDatabase
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/ExternalDatabase
Modified Files:
ExternalDatabase.pm
Log Message:
new files
Index: ExternalDatabase.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/ExternalDatabase/ExternalDatabase.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** ExternalDatabase.pm 24 Apr 2003 00:08:51 -0000 1.35
--- ExternalDatabase.pm 24 Apr 2003 00:19:04 -0000 1.36
***************
*** 580,585 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 580,583 ----
***************
*** 587,591 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 585,591 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:39
|
Update of /cvsroot/genex/genex-server/Genex/ExperimentFactors
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/ExperimentFactors
Modified Files:
ExperimentFactors.pm
Log Message:
new files
Index: ExperimentFactors.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/ExperimentFactors/ExperimentFactors.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** ExperimentFactors.pm 24 Apr 2003 00:08:48 -0000 1.35
--- ExperimentFactors.pm 24 Apr 2003 00:19:04 -0000 1.36
***************
*** 603,608 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 603,606 ----
***************
*** 610,614 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 608,614 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:39
|
Update of /cvsroot/genex/genex-server/Genex/Feature
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/Feature
Modified Files:
Feature.pm
Log Message:
new files
Index: Feature.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/Feature/Feature.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** Feature.pm 24 Apr 2003 00:08:53 -0000 1.17
--- Feature.pm 24 Apr 2003 00:19:05 -0000 1.18
***************
*** 641,646 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 641,644 ----
***************
*** 648,652 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 646,652 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:35
|
Update of /cvsroot/genex/genex-server/Genex/Citation
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/Citation
Modified Files:
Citation.pm
Log Message:
new files
Index: Citation.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/Citation/Citation.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** Citation.pm 24 Apr 2003 00:08:46 -0000 1.41
--- Citation.pm 24 Apr 2003 00:19:02 -0000 1.42
***************
*** 595,600 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 595,598 ----
***************
*** 602,606 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 600,606 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:34
|
Update of /cvsroot/genex/genex-server/Genex/Chromosome
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/Chromosome
Modified Files:
Chromosome.pm
Log Message:
new files
Index: Chromosome.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/Chromosome/Chromosome.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -C2 -d -r1.45 -r1.46
*** Chromosome.pm 24 Apr 2003 00:08:45 -0000 1.45
--- Chromosome.pm 24 Apr 2003 00:19:01 -0000 1.46
***************
*** 561,566 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 561,564 ----
***************
*** 568,572 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 566,572 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:34
|
Update of /cvsroot/genex/genex-server/Genex/Channel
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/Channel
Modified Files:
Channel.pm
Log Message:
new files
Index: Channel.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/Channel/Channel.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Channel.pm 24 Apr 2003 00:08:45 -0000 1.13
--- Channel.pm 24 Apr 2003 00:19:01 -0000 1.14
***************
*** 515,520 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 515,518 ----
***************
*** 522,526 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 520,526 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:34
|
Update of /cvsroot/genex/genex-server/Genex/BlastHits
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/BlastHits
Modified Files:
BlastHits.pm
Log Message:
new files
Index: BlastHits.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/BlastHits/BlastHits.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** BlastHits.pm 24 Apr 2003 00:08:45 -0000 1.35
--- BlastHits.pm 24 Apr 2003 00:19:01 -0000 1.36
***************
*** 546,551 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 546,549 ----
***************
*** 553,557 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 551,557 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:34
|
Update of /cvsroot/genex/genex-server/Genex/Audit
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/Audit
Modified Files:
Audit.pm
Log Message:
new files
Index: Audit.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/Audit/Audit.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Audit.pm 24 Apr 2003 00:08:44 -0000 1.11
--- Audit.pm 24 Apr 2003 00:19:00 -0000 1.12
***************
*** 541,546 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 541,544 ----
***************
*** 548,552 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 546,552 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:33
|
Update of /cvsroot/genex/genex-server/Genex/Array
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/Array
Modified Files:
Array.pm
Log Message:
new files
Index: Array.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/Array/Array.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Array.pm 24 Apr 2003 00:08:43 -0000 1.11
--- Array.pm 24 Apr 2003 00:19:00 -0000 1.12
***************
*** 702,707 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 702,705 ----
***************
*** 709,713 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 707,713 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:33
|
Update of /cvsroot/genex/genex-server/Genex/ArrayDesign
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/ArrayDesign
Modified Files:
ArrayDesign.pm
Log Message:
new files
Index: ArrayDesign.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/ArrayDesign/ArrayDesign.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** ArrayDesign.pm 24 Apr 2003 00:08:44 -0000 1.11
--- ArrayDesign.pm 24 Apr 2003 00:19:00 -0000 1.12
***************
*** 647,652 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 647,650 ----
***************
*** 654,658 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 652,658 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:19:33
|
Update of /cvsroot/genex/genex-server/Genex/AM_FactorValues
In directory sc8-pr-cvs1:/tmp/cvs-serv20051/AM_FactorValues
Modified Files:
AM_FactorValues.pm
Log Message:
new files
Index: AM_FactorValues.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/AM_FactorValues/AM_FactorValues.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** AM_FactorValues.pm 24 Apr 2003 00:08:43 -0000 1.34
--- AM_FactorValues.pm 24 Apr 2003 00:19:00 -0000 1.35
***************
*** 563,568 ****
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
- # we have to quote the column names in case they have reserved words
- $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
--- 563,566 ----
***************
*** 570,574 ****
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
--- 568,574 ----
$value =~ s/^\s*(\w)/$1/;
$value =~ s/(\w)\s*$/$1/;
! # we have to quote the column names in case they have reserved words
! $unique = $dbh->quote_identifier($unique);
! push(@clauses,"$unique=" . $dbh->quote($value));
}
$UNIQUE_WHERE = join(' AND ', @clauses);
|
|
From: <jas...@us...> - 2003-04-24 00:18:27
|
Update of /cvsroot/genex/genex-server/Genex/FeatureExtractionSoftware
In directory sc8-pr-cvs1:/tmp/cvs-serv16602/FeatureExtractionSoftware
Modified Files:
FeatureExtractionSoftware.pm
Log Message:
new files
Index: FeatureExtractionSoftware.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/FeatureExtractionSoftware/FeatureExtractionSoftware.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** FeatureExtractionSoftware.pm 23 Apr 2003 23:58:32 -0000 1.8
--- FeatureExtractionSoftware.pm 24 Apr 2003 00:08:53 -0000 1.9
***************
*** 553,556 ****
--- 553,558 ----
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
+ # we have to quote the column names in case they have reserved words
+ $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
|
|
From: <jas...@us...> - 2003-04-24 00:18:26
|
Update of /cvsroot/genex/genex-server/Genex/GroupLink
In directory sc8-pr-cvs1:/tmp/cvs-serv16602/GroupLink
Modified Files:
GroupLink.pm
Log Message:
new files
Index: GroupLink.pm
===================================================================
RCS file: /cvsroot/genex/genex-server/Genex/GroupLink/GroupLink.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** GroupLink.pm 23 Apr 2003 23:58:33 -0000 1.33
--- GroupLink.pm 24 Apr 2003 00:08:54 -0000 1.34
***************
*** 556,559 ****
--- 556,561 ----
# it fails for any one group we ext
foreach my $uniques (@{$self->unique_columns}) {
+ # we have to quote the column names in case they have reserved words
+ $unique = $dbh->quote_identifier($unique);
foreach my $unique (@{$uniques}) {
my $value = $self->get_attribute($unique);
|
