#!/usr/local/bin/perl
#
###############################################################################
#
#       Name    : pick2ndModNum.pl
#       Author	: Bryan R. Cummings
#       Date    : Thursday, December 20, 1998 
#       Path    : 
#	Version : 1.0
#	Platform: Unix and Oraperl with Perl5.0004 installed.
#       Email   : bcummings@clearmark.com
#	Notes   : A very simple user authentification script for Oracle 7.3
#
#       Coded and Designed for Carrier Corporation, for the Carrier IWCP Project
# 
#	Copyright (C) 1998,  ClearMark Incorporated, All Rights Reserved.
#
#       
#
################################################################################
#
#
$DEBUG = 0;
require 'getopts.pl';

use Oraperl;

#path will change when migrating to GTE

require '/project/clearmark/iwcp/cgi-bin/pl/user_specs.pl'; 
require '/project/clearmark/iwcp/cgi-bin/pl/iwcp.lib';

# ===== HTML setup ======
print "Content-type: text/html\n\n";
# ===== HTML setup ======

# ===== oraperl setup ========
  &oracle_login;
# ===== oraperl setup ========  

#========= DEFINE CURSORS ====================================
#

# ==============  end of cursors ============================= 

# =================== body of program ========================   
&formParse;


$UPDATE_WC_MODNUM = "UPDATE WarrentyClaims SET MODEL_NUM = '$FORM{model_num}' 
                     WHERE CLAIM_NUM = '$FORM{claim_num}'";

                
&ora_do($lda, $UPDATE_WC_MODNUM);
&ora_commit($lda);

       print "<HTML><HEAD>";
       &printCarrierCopyrightInfo;
       print "</HEAD>";              
       print "<BODY BGCOLOR=#FFFFFF>";
       print "<P ALIGN=CENTER><FONT COLOR=#008800><B>Thank-you for submitting or saving your";
       print " claim.<BR>";
       print "<BR>";
       print "To edit or enter a new claim, use the button above.</B></FONT>";
       print "</BODY>";
       print "</HTML>";                

# ================= oraperl cleanup ========================
# log out of the database (this is ESSENTIAL!)
  do ora_logoff($lda)                           || die $ora_errstr;
# ==============  end of oraperl cleanup ==========================
exit;
#=================== start of subroutines ================================
