[Genex-cvs-commit] genex-server/site/webtools groupref_table_name.pl,NONE,1.1.2.1

[<jl...@us...>]

Update of /cvsroot/genex/genex-server/site/webtools
In directory sc8-pr-cvs1:/tmp/cvs-serv2288

Added Files:
      Tag: Rel-1_0_1-branch
	groupref_table_name.pl 
Log Message:
script to identify table associated with secured record in groupref table


--- NEW FILE: groupref_table_name.pl ---
#!/usr/bin/perl

use strict;

require "./sessionlib.pl";

main:
{
    my $dbh = new_connection();
    my $sth = getq("groupref_table_name",$dbh, $ARGV[0]);
    $sth->execute();
    (my $count, my $table) = $sth->fetchrow_array();
    print "Count: $count Table: $table \n";
    $sth->finish();
    $dbh->disconnect();

}