#!/usr/bin/perl
use CGI;
use DBI;
use Data::Password qw(:all);
my $self = 'updateMssid.pl';
eval require "../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Select table to Edit.
my $table;
if ( not $arr{tb} ) { # no passed table to edit...
$table = 'student';
}
if ( $arr{tb} eq 'wd' ){ # if passed a tb=wd param, then edit wd table.
$table = 'studentwd';
}
my $title = qq{Update MSSID};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{
$title
\n};
#my $id = $arr{id};
my $sth = $dbh->prepare("update $table set mssid = ? where studid = ?");
#$sth->execute( $arr{mssid}, $id );
if ( $DBI::errstr ) { print $DBI::errstr; }
print qq{\n};