Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

kprasanna_79's scratchpad

by kprasanna_79 (Hermit)
on Jan 20, 2005 at 08:17 UTC ( #423617=scratchpad: print w/replies, xml ) Need Help??

its in a.pm sub db_connect { my ($eh) = @_; my $mode = _mode(); my $ca = ["dbi:Oracle:irsdb$mode",$ENV{HTTP_IRIPROJECT},$ENV{H +TTP_IRIPROJECT} . length($ENV{HTTP_IRIPROJ ECT})]; return new app::DB($ca,$eh); }
This connects well....where as the below code throughs timeout error
sub db_connect { my $self = shift; my $proj = $self->tag('sys_projectname'); my $database = 'irsdb'; if ($self->tag('sys_insiterootdir') =~ /insite/) { $database = 'instedb' } $database .= substr($self->tag('sys_runmode'),0,1); return new app::DB (["dbi:Oracle:$database", $proj, $proj . le +ngth($proj)], @_); }
My Signature:
s,,QSBTBOOB,s,y,B-Y,A-Z,d&&print
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[marto]: Sharepoint ss a mess
[marto]: /ss/is/
[Discipulus]: yes I can imagine marto but they dont take my opinion in consideration..
[marto]: I told our client this, they spent many years and lots of consultants to try and get it to do what they wanted. They're ditching it now
[Discipulus]: I hope at least a minimal implementation, in the middle of july i'll have the first introductional course..
Discipulus nemo profeta in patria..

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (7)
As of 2017-06-27 09:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How many monitors do you use while coding?















    Results (601 votes). Check out past polls.