[Bio] / WebApplication / scripts / set_user_preference.pl Repository:
ViewVC logotype

Diff of /WebApplication/scripts/set_user_preference.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Mon Nov 26 21:47:15 2007 UTC revision 1.2, Mon Feb 23 15:59:42 2009 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use warnings;  use warnings;
5    
6  use lib('..');  use WebApplicationDBHandle;
 use lib('../../PPO');  
7    
 use DBMaster;  
8  use FIG;  use FIG;
9    
10  use Getopt::Long;  use Getopt::Long;
# Line 35  Line 33 
33  }  }
34    
35  # initialize db-master  # initialize db-master
36  my $dbmaster = DBMaster->new( -database => 'WebAppBackend' );  my ($dbmaster, $error) = WebApplicationDBHandle->new();
37    
38    # check if we got a dbmaster
39    if ($error) {
40      print $error."\n";
41      exit 0;
42    }
43    
44  my $application = $dbmaster->Backend->init( { name => $app } );  my $application = $dbmaster->Backend->init( { name => $app } );
45  unless ( ref( $application ) ) {  unless ( ref( $application ) ) {
46    print STDERR "Application $app not found ! \n";    print STDERR "Application $app not found ! \n";

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3