Skip to content

Commit 9986ddc

Browse files
lukasmuellerlukasmueller
authored
Merge pull request #5943 from solgenomics/topic/remove_stockprop_matview_from_stocksearch
Topic/remove stockprop matview from stocksearch
2 parents 1bf3709 + ab1f06b commit 9986ddc

15 files changed

Lines changed: 336 additions & 260 deletions

File tree

‎.github/workflows/linter.yml‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,7 @@ on: # yamllint disable-line rule:truthy
1212
permissions: {}
1313

1414
env:
15-
FILTER_REGEX_EXCLUDE: "docs/.*"
15+
FILTER_REGEX_EXCLUDE: "docs/.*|t/unit_mech/AJAX/_BrAPIv2_germplasm.t"
1616

1717
jobs:
1818
build:

‎lib/CXGN/BrAPI/v2/Germplasm.pm‎

Lines changed: 6 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -231,6 +231,7 @@ sub search {
231231
$additional_info = {"additionalProps" => \%additional};
232232
}
233233

234+
my $default_PUI = $main_production_site_url."/stock/".$_->{stock_id}."/view";
234235
#Populating data
235236
push @data, {
236237
accessionNumber=>$_->{'accession number'},
@@ -243,7 +244,7 @@ sub search {
243244
commonCropName=>$_->{common_name},
244245
countryOfOriginCode=>$_->{'country of origin'},
245246
defaultDisplayName=>$_->{stock_name},
246-
documentationURL=>$_->{'PUI'} && $_->{'PUI'} ne '' ? $_->{'PUI'} : $main_production_site_url . "/stock/$_->{stock_id}/view",
247+
documentationURL=>$_->{'PUI'} && $_->{'PUI'} ne '' ? $_->{'PUI'}.",$default_PUI" : $default_PUI,
247248
donors=>\@donors,
248249
externalReferences=>\@references,
249250
genus=>$_->{genus},
@@ -847,9 +848,9 @@ sub store {
847848
return CXGN::BrAPI::JSONResponse->return_error($self->status, sprintf('There was an error storing germplasm %s', $transaction_error));
848849
}
849850

850-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
851+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
851852

852-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath}, 0);
853+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath}, 0);
853854

854855
#retrieve saved items
855856
my @data = _simple_search($self,undef,$accession_list);
@@ -1064,8 +1065,8 @@ sub update {
10641065
}
10651066

10661067
#update matviews
1067-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1068-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath}, 0);
1068+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1069+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath}, 0);
10691070

10701071
#retrieve updated item
10711072
my @result = _simple_search($self,[$germplasm_id]);

‎lib/CXGN/BrAPI/v2/SeedLots.pm‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -8,9 +8,9 @@ use CXGN::BrAPI::JSONResponse;
88
extends 'CXGN::BrAPI::v2::Common';
99

1010
sub search {
11-
my $self = shift;
12-
my $params = shift;
13-
my $c = shift;
11+
my $self = shift;
12+
my $params = shift;
13+
my $c = shift;
1414
my $status = $self->status;
1515
my $phenome_schema = $self->phenome_schema();
1616
my $people_schema = $self->people_schema();
@@ -414,8 +414,8 @@ sub store_seedlots {
414414
}
415415
push @$seedlot_ids, $seedlot_id;
416416
}
417-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
418-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
417+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
418+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
419419

420420
my $seedlot;
421421
my %result;
@@ -559,8 +559,8 @@ sub store_seedlot_transaction {
559559
$c->stash->{rest} = { success => 1, transaction_id => $transaction_id };
560560
}
561561

562-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
563-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
562+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
563+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
564564

565565
my $seedlot = CXGN::Stock::Seedlot->new(
566566
schema => $schema,

‎lib/CXGN/Stock/Search.pm‎

Lines changed: 175 additions & 121 deletions
Large diffs are not rendered by default.

‎lib/SGN/Controller/AJAX/Accessions.pm‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -547,9 +547,9 @@ sub add_accession_list_POST : Args(0) {
547547
return;
548548
}
549549

550-
my $dbh = $c->dbc->dbh();
551-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
552-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
550+
# my $dbh = $c->dbc->dbh();
551+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
552+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
553553

554554
return;
555555
}

‎lib/SGN/Controller/AJAX/GenotypingTrial.pm‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -411,9 +411,9 @@ sub store_genotype_trial_POST : Args(0) {
411411
}
412412
#print STDERR Dumper(%message);
413413

414-
my $dbh = $c->dbc->dbh();
415-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
416-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
414+
# my $dbh = $c->dbc->dbh();
415+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
416+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
417417

418418
my $saved_layout = CXGN::Trial::TrialLayout->new({schema => $schema, trial_id => $message->{trial_id}, experiment_type=>'genotyping_layout'});
419419
my $saved_design = $saved_layout->get_design();
@@ -731,8 +731,8 @@ sub plate_genotyping_data_delete_GET : Args(0) {
731731
my $dbname = $c->config->{dbname};
732732
my $dbuser = $c->config->{dbuser};
733733
my $dbpass = $c->config->{dbpass};
734-
my $bs = CXGN::BreederSearch->new( { dbh=>$c->dbc->dbh, dbname=>$dbname, } );
735-
my $refresh = $bs->refresh_matviews($dbhost, $dbname, $dbuser, $dbpass, 'fullview', 'concurrent', $basepath);
734+
# my $bs = CXGN::BreederSearch->new( { dbh=>$c->dbc->dbh, dbname=>$dbname, } );
735+
# my $refresh = $bs->refresh_matviews($dbhost, $dbname, $dbuser, $dbpass, 'fullview', 'concurrent', $basepath);
736736

737737
my $async_refresh = CXGN::Tools::Run->new();
738738
$async_refresh->run_async("perl $basepath/bin/refresh_materialized_markerview.pl -H $dbhost -D $dbname -U $dbuser -P $dbpass");

‎lib/SGN/Controller/AJAX/SamplingTrial.pm‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -364,9 +364,9 @@ sub store_sampling_trial_POST : Args(0) {
364364
}
365365
#print STDERR Dumper(%message);
366366

367-
my $dbh = $c->dbc->dbh();
368-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
369-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
367+
# my $dbh = $c->dbc->dbh();
368+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
369+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
370370

371371
my $saved_layout = CXGN::Trial::TrialLayout->new({schema => $schema, trial_id => $message->{trial_id}, experiment_type=>'sampling_layout'});
372372
my $saved_design = $saved_layout->get_design();

‎lib/SGN/Controller/AJAX/Seedlot.pm‎

Lines changed: 30 additions & 30 deletions
Original file line numberDiff line numberDiff line change
@@ -555,11 +555,11 @@ sub create_seedlot :Path('/ajax/breeders/seedlot-create/') :Args(0) {
555555
return;
556556
}
557557

558-
if ( $no_refresh ne 1 ) {
559-
my $dbh = $c->dbc->dbh();
560-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
561-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
562-
}
558+
# if ( $no_refresh ne 1 ) {
559+
# my $dbh = $c->dbc->dbh();
560+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
561+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
562+
# }
563563

564564
$c->stash->{rest} = { success => 1, seedlot_id => $seedlot_id };
565565
}
@@ -818,9 +818,9 @@ sub upload_seedlots_POST : Args(0) {
818818
});
819819
}
820820

821-
my $dbh = $c->dbc->dbh();
822-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
823-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
821+
# my $dbh = $c->dbc->dbh();
822+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
823+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
824824

825825
$c->stash->{rest} = { success => 1, added_seedlot => \@added_stocks };
826826
}
@@ -969,9 +969,9 @@ sub upload_seedlots_inventory_POST : Args(0) {
969969
$c->detach();
970970
}
971971

972-
my $dbh = $c->dbc->dbh();
973-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
974-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
972+
# my $dbh = $c->dbc->dbh();
973+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
974+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
975975

976976
$c->stash->{rest} = { success => 1 };
977977
}
@@ -1063,9 +1063,9 @@ sub edit_seedlot_transaction :Chained('seedlot_transaction_base') PathPart('edit
10631063
}
10641064

10651065
if ($transaction_id){
1066-
my $dbh = $c->dbc->dbh();
1067-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1068-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
1066+
# my $dbh = $c->dbc->dbh();
1067+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1068+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
10691069

10701070
$c->stash->{rest} = { success => 1 };
10711071
} else {
@@ -1315,9 +1315,9 @@ sub add_seedlot_transaction :Chained('seedlot_base') :PathPart('transaction/add'
13151315
$c->stash->{seedlot}->set_current_count_property();
13161316
$c->stash->{seedlot}->set_current_weight_property();
13171317

1318-
my $dbh = $c->dbc->dbh();
1319-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1320-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
1318+
# my $dbh = $c->dbc->dbh();
1319+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1320+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
13211321

13221322
$c->stash->{rest} = { success => 1, transaction_id => $transaction_id };
13231323
}
@@ -1361,9 +1361,9 @@ sub delete_seedlot_transaction :Chained('seedlot_transaction_base') PathPart('de
13611361
}
13621362

13631363
if ($delete){
1364-
my $dbh = $c->dbc->dbh();
1365-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1366-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
1364+
# my $dbh = $c->dbc->dbh();
1365+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1366+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
13671367
$c->stash->{rest} = { success => 1 };
13681368
}
13691369
else {
@@ -1867,8 +1867,8 @@ sub discard_seedlots : Path('/ajax/breeders/seedlot/discard') :Args(0) {
18671867
}
18681868
}
18691869

1870-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1871-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
1870+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1871+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
18721872

18731873
$c->stash->{rest} = {success => "1",};
18741874

@@ -1904,8 +1904,8 @@ sub undo_discarded_seedlots : Path('/ajax/breeders/seedlot/undo_discard') :Args(
19041904
$restored_seedlot->set_current_count_property();
19051905
$restored_seedlot->set_current_weight_property();
19061906

1907-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1908-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
1907+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
1908+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
19091909

19101910
$c->stash->{rest} = { success => 1 };
19111911

@@ -2167,9 +2167,9 @@ sub upload_transactions_POST : Args(0) {
21672167
$c->detach();
21682168
}
21692169

2170-
my $dbh = $c->dbc->dbh();
2171-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
2172-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
2170+
# my $dbh = $c->dbc->dbh();
2171+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
2172+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
21732173

21742174
$c->stash->{rest} = { success => 1};
21752175
}
@@ -2230,9 +2230,9 @@ sub add_transactions_using_list_POST : Args(0) {
22302230
}
22312231

22322232

2233-
my $dbh = $c->dbc->dbh();
2234-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
2235-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
2233+
# my $dbh = $c->dbc->dbh();
2234+
# my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
2235+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
22362236

22372237

22382238
$c->stash->{rest} = { success => 1};

‎lib/SGN/Controller/AJAX/Stock.pm‎

Lines changed: 12 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -112,6 +112,7 @@ sub add_stockprop_POST {
112112
}
113113

114114
try {
115+
print STDERR "CREATING THE STOCKPROP $prop_type $prop\n";
115116
$stock->create_stockprops( { $prop_type => $prop }, { autocreate => 1 } );
116117

117118
my $stock = CXGN::Stock->new({
@@ -124,21 +125,26 @@ sub add_stockprop_POST {
124125
});
125126
my $added_stock_id = $stock->store();
126127

127-
my $dbh = $c->dbc->dbh();
128-
my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
129-
my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
128+
print STDERR "STOCK ADDED: $added_stock_id\n";
129+
130+
#my $dbh = $c->dbc->dbh();
131+
#my $bs = CXGN::BreederSearch->new( { dbh=>$dbh, dbname=>$c->config->{dbname}, } );
132+
# my $refresh = $bs->refresh_matviews($c->config->{dbhost}, $c->config->{dbname}, $c->config->{dbuser}, $c->config->{dbpass}, 'stockprop', 'concurrent', $c->config->{basepath});
133+
134+
$c->stash->{rest} = { message => "$message Stock_id $stock_id and type_id $prop_type have been associated with value $prop. " }; #.$refresh->{'message'} };
130135

131-
$c->stash->{rest} = { message => "$message Stock_id $stock_id and type_id $prop_type have been associated with value $prop. ".$refresh->{'message'} };
132136
} catch {
137+
print STDERR "AN ERROR OCCURRED: $_\n";
133138
$c->stash->{rest} = { error => "Failed: $_" }
134139
};
135140
} else {
141+
print STDERR "CANNOT ASSOCIATE $prop_type $prop with $stock_id\n";
136142
$c->stash->{rest} = { error => "Cannot associate prop $prop_type: $prop with stock $stock_id " };
137143
}
138144
} else {
139145
$c->stash->{rest} = { error => 'user does not have a curator/sequencer/submitter account' };
140146
}
141-
#$c->stash->{rest} = { message => 'success' };
147+
$c->stash->{rest} = { message => 'success' };
142148
}
143149

144150
sub add_stockprop_GET {
@@ -267,6 +273,7 @@ sub associate_locus_GET :Args(0) {
267273
# rightly) be counted as a server error
268274
if ($stock && $allele_id) {
269275
try {
276+
print STDERR "TRY ASSOCIATE A LOCUS\n";
270277
my $cxgn_stock = CXGN::Stock->new(schema => $schema, stock_id => $stock_id);
271278
$cxgn_stock->associate_allele($allele_id, $c->user->get_object->get_sp_person_id);
272279

0 commit comments

Comments
 (0)