rbuels

rob@cgn:~$ sudo dpkg-reconfigure liblocale-us-perl
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
        LANGUAGE = (unset),
        LC_ALL = (unset),
        LANG = "en_US.UTF-8"
    are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
locale: Cannot set LC_CTYPE to default locale: No such file or directory
locale: Cannot set LC_MESSAGES to default locale: No such file or directory

rbuels

            my $dbx_acc = $opts->{dbxref_accession_prefix}.$propname;
            my $dbxref =
                $feature_prop_db->search( 'dbxrefs',
                                          { accession => $dbx_acc },
                                          { order_by => { -desc => ['version'] } }
                                        )
                                ->first
             || $feature_prop_db->create_related( 'dbxrefs', { accession => $dbx_acc,
                                                               version => 1,
                                                             });

rbuels

sub delete_synonym {
    my $self=shift;
    my $synonym=shift;
    
    my $schema = $self->result_source->schema;
    
    my @synonyms= $schema->resultset("Cv::Cvtermsynonym")->search(
	{ cvterm_id => $self->get_column('cvterm_id'),
	  synonym   => { 'ilike' , "$synonym" }

rbuels

sub foo {
    my $self = shift;
    if( @_ ) {
        $self->{foo} = shift;
    }
    return $self->{foo};
}

rbuels

package CXGN::TomatoGenome::GenbankImport;
use strict;
use warnings;

use English;
use Carp;

=head1 NAME

CXGN::TomatoGenome::GenbankImport

rbuels

### before

sub set_modified_person_id_by_username {
  my $self = shift;
  my $data = shift || croak("FUNCTION PARAMETER ERROR: The username was not supplied for set_modified_person_id_by_username function");
  my $query = "SELECT sp_person_id FROM sgn_people.sp_person WHERE username=?";
  my $sth = $self->get_schema()->storage()->dbh()->prepare($query);
  $sth->execute($data);
  my ($modified_person_id) = $sth->fetchrow_array();

rbuels

SELECT a.*
FROM pg_catalog.pg_class c
JOIN pg_catalog.pg_attribute a ON a.attrelid = c.oid
WHERE
  a.attnum > 0
AND c.relname = 'feature'
AND a.attname = 'feature_id'
AND NOT a.attisdropped
AND pg_catalog.pg_table_is_visible(c.oid);

rbuels

SELECT
          rn AS name
        , array_to_string( schemas, ', ') AS schemas
FROM ( SELECT
                relname AS rn
                , relkind
                , array( SELECT nspname
                                || ' ('
                                ||(CASE WHEN relkind='r' THEN 'table'
                                        WHEN relkind='v' THEN 'view'

rbuels

t/solpeople/new-account.t ..                                                                 
1..11                                                                                        
# Using server http://sgn.localhost.localdomain                                              
ok 1 - GET http://sgn.localhost.localdomain/solpeople/new-account.pl                         
ok 2 - submit form test                                                                      
ok 3 - Account creation test
ok 4 - submit duplicate username test
ok 5 - Duplicate username test
CXGN::DB::Connection::verbose no longer does anything, might as well remove this invocation at t/solpeople/new-account.t line 49
ok 6 - password too short form submit

rbuels

# ~/.bashrc: executed by bash(1) for non-login shells.
# see /usr/share/doc/bash/examples/startup-files (in the package bash-doc)
# for examples

# If not running interactively, don't do anything
[ -z "$PS1" ] && return

# don't put duplicate lines in the history. See bash(1) for more options
export HISTCONTROL=ignoredups
# ... and ignore same sucessive entries.