Select Code to Download

1024  LABEL:
  1025  print "\nCREATE A DATABASE FOR EXISTING CLIENT OR COPY AN EXIS
+TING DATABASE? \n";
...
  1060     redo LABEL;
  1061
  1062  }#end else statement

sub add_client() {

...
        or $app->error($FATAL, "can't prepare SQL statement [ $sql ] :
+:$DBI::errstr");
$sth->execute();
}

sub get_Origserver() {
   919
...
   921
   922  my ($dbh, $Origdb) = @_;
   923  print "This is the db $dbh\n";