#!/perl/bin/perl

#use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
my $q = new CGI;


my $tb_row = $q->param('tbrow');
my $one_less = $q->param('oneless');
my $temp_filename1 = $q->param('filenames1');
my ($selected1, $selected2, $selected3, $selected4, $selected5, $selected6, $selected7, $selected8, $selected9, $selected10, $selected11);

#print $q->header( "text/plain" );
print header();

print "******************* $temp_filename1 ********* $one_less*********";
=comment
print "***$one_less***";
if( ($one_less){
$tb_row = $tb_row - $one_less;
$tb_row = $tb_row - $one_less;
print "<br>L27- Tb_row=$tb_row - Oneless=$one_less = Tb_row=$tb_row";
if($tb_row == -1){$tb_row_row = 0;}
}#print "<br>L27<a href=\"tables.pl?tb_row=-1\"><font color=green><b>Del Row - $topic - $tb_row - $xtop</font></b></a><br>";
=cut


    $tb_row = $tb_row + 1; 
    
    my $decr_row = $tb_row - 2;
    
    if($decr_row == -1){$decr_row = 0;}
    
    #if($decr_row == 0){print "<br><b>L249 - TEST = $decr_row</b><br>";}

    $i=1;
    print " <table width=840 cellspacing=1 cellpadding=2 border=0 bgcolor=\"#ffffff\">
        <form action=\"tables.pl\" method=get name=installform>
         <!-- input type=hidden name=tb_row value=1 --><!-- input type=hidden name=oneless value=1-->
             <tr>
              <td width=\"620\" colspan=5 align=\"left\">
               <font face=\"verdana, helvetica, arial\" size=\"2\"><b>Install From:</b></font>
              </td>
              <td width=\"220\" colspan=5 align=\"center\">
               <font face=\"verdana, helvetica, arial\" size=\"2\"><b>Install To:</b></font>&nbsp;&nbsp;&nbsp;&nbsp;
              </td>
             </tr>
            </table>    
            <table width=840 cellspacing=1 cellpadding=2 border=0 bgcolor=\"#ffffff\" align=center>
	     <tr>
	      <td width=\"160\" colspan=0 align=\"left\"><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Directory:</b></font>
	      </td>
	        <td width=\"160\" colspan=0 align=\"left\"><font face=\"verdana, helvetica, arial\" size=\"1\"><b>File Name</b></font>
	      </td>
	        <td width=\"110\" colspan=0 align=\"left\"><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Destination</b></font>
	      </td>";
#if($tb_row >= 3){	      
#print " <td width=\"60\" colspan=0 align=\"left\"><font face=\"verdana, helvetica, arial\" size=\"1\">
print " <td width=\"60\" colspan=0 align=\"left\"><font face=\"verdana, helvetica, arial\" size=\"1\">
              <a href=\"tables.pl?oneless=1\" onclick=\"document.getElementById('installform').submit(); return false;\" ><b>Del Row</b></a><!-- a href=\"javascript:history.go(-1)\">Del Row</a --></font>";
#}            <a onclick="return confirmSubmit()"href="/articles/articles/javascript/confirmsubmit.asp?ID=<%=siteID%>">delete</a>
print "	      </td>
	     </tr>
	           <input type=hidden name=sign_off value=$sign_off>
	           <input type=hidden name=t_number value=$t_number>
	           <input type=hidden name=mis_sign value=$mis_sign>
	           <input type=hidden name=sign_date value=$sign_date>
	           <input type=hidden name=user_name value=$user_name>
	           <input type=hidden name=descriptions value=$description>
	           <input type=hidden name=transaction value=print_form>
	           <input type=hidden name=form_name value=continue>
	           <input type=hidden name=action value=$action>
	           <input type=hidden name=addrow value=addrow>
	           <input type=hidden name=tbrow value=".$tb_row.">
	           <input type=hidden name=trackingid value=$trackingid>
	           <input type=hidden name=datereq value=$date_req>
	           <input type=hidden name=reqinstallon value=$req_install_on>
	           <input type=hidden name=stginstall value=$stg_install>
	           <input type=hidden name=prodinstall value=$prod_install>
	           <input type=hidden name=reqname value=$req_name>
	           <input type=hidden name=projectname value=$project_name>
	           <input type=hidden name=projectdesc value=$project_desc>
	           <input type=hidden name=spcinstr value=$spcinstr>
	           <input type=hidden name=datereq value=$date_req>
	           <input type=hidden name=addtable value=addtable>
	           <input type=hidden name=rrr value=$rrr>
	     ";	
    $c=-1;
    #$tb_row = 2;
    while ($i<($tb_row+1)) {
	    $c++;
            $direc_data="direc_data".$i;
            $direc_temp=param($direc_data);
            
            $files_data="filenames".$i;
            $files_temp=param($files_data); 

            $dest_data="dest_data".$i;
            $dest_temp=param($dest_data);          
        
                    if($dest_temp eq "A"){ $selected1="selected";}else{$selected1=" ";} 
        if($dest_temp eq "B"){ $selected2="selected";}else{$selected2=" ";}
                     if($dest_temp eq "C"){ $selected3="selected";}else{$selected3=" ";}
            if($dest_temp eq "D"){ $selected4="selected";}else{$selected4=" ";}
          if($dest_temp eq "E"){ $selected5="selected";}else{$selected5=" ";} 
          if($dest_temp eq "F"){ $selected6="selected";}else{$selected6=" ";}
              if($dest_temp eq "G"){ $selected7="selected";}else{$selected7=" ";}
                    if($dest_temp eq "H"){ $selected8="selected";}else{$selected8=" ";}
      if($dest_temp eq "I"){ $selected9="selected";}else{$selected9=" ";}
        if($dest_temp eq "J"){ $selected10="selected";}else{$selected10=" ";}
              if($dest_temp eq "K"){ $selected11="selected";}else{$selected11=" ";}
        
      
        if( ($direc_data=~/direc_data\d+/)&&($direc_temp eq "")){$tb_row = $tb_row - ($tb_row - 1);} #else{print "No match  - $tb_row";}
        #if( ($direc_data=~/direc_data\d+/)&&($direc_temp eq "")){$tb_row = $tb_row - 1;} #else{print "No match  - $tb_row";}

	    print "
	    	           <input type=hidden name=c value=$c>
	    <tr>
	      <td width=\"160\" colspan=0 align=\"left\"> 
	       <font face=\"verdana, helvetica, arial\" size=\"1\">";
	       
            print "<input type=text name=\"";
            $direc_data="direc_data".$i;
            print $direc_data;
            print "\"value=$direc_temp>";           
	    #<input type=\"text\" name=\"directories\" value=\"$directories\">
	       
	    print "</font>
	      </td>
	        <td width=\"160\" colspan=0 align=\"left\">
	         <font face=\"verdana, helvetica, arial\" size=\"1\">";

            print "<input type=text name=\"";
            $files_data="filenames".$i;
            print $files_data;
            print "\"value=$files_temp>";	         
	    #<input type=\"text\" name=\"filenames\" value=\"$filenames\">
	    
	    print "</font>
	      </td>
	        <td width=\"110\" colspan=0 align=\"left\"><font face=\"verdana, helvetica, arial\" size=\"1\">";
	    
            print "<SELECT NAME=\"";
            #print "<input type=text name=\"";
            $dest_data="dest_data".$i;
            print $dest_data;
            #print "\"value=$dest_temp>"; 
            print "\">";
            print "<OPTION VALUE=\"\">SELECT</OPTION>
		               <OPTION VALUE=\"A\" $selected1>A</OPTION>
		   <OPTION VALUE=\"B\" $selected2>B</OPTION>
		                <OPTION VALUE=\"C\" $selected3>C</OPTION>
	               <OPTION VALUE=\"D\" $selected4>D</OPTION>
	             <OPTION VALUE=\"E\" $selected5>E</OPTION>
		     <OPTION VALUE=\"F\" $selected6>F</OPTION>
		         <OPTION VALUE=\"G\" $selected7>G</OPTION>
	                       <OPTION VALUE=\"H\" $selected8>H</OPTION>
		  <OPTION VALUE=\"I\" $selected9>I</OPTION>
		    <OPTION VALUE=\"J\" $selected10>J</OPTION>
		         <OPTION VALUE=\"K\" $selected11>K</OPTION>
	       </SELECT>";
	    my $rrr = $tb_row -1;   
	    print "   
	      </font>
	     </td>
	     <td width=\"60\" colspan=0 align=\"left\">
	           <font face=\"verdana, helvetica, arial\" size=\"1\"><a href=\"tables.pl\" onclick=\"document.getElementById('installform').submit(); return false;\">Add Rows</a></font>
	     </td>
	    </tr>
	    ";
            
            }
    continue{ $i++;}
        print "<input type=\"hidden\" name=\"tb_row\" value=\"";
        print $tb_row;
        print "\">";
 print "</table>";

    my $i=1;
    #$tb_row = $tb_row + 1;
    #print "<br><font color=red>^^^^^^^ $c^^^^^^^^^ $i --- $tb_row ^^^^^^^^^^^^^^</font><br>";  
    
    while ($i<=$c) { 

        $direc_data="direc_data".$i;
        $direc_temp=param($direc_data);
        
        $files_data="filenames".$i;
        $files_temp=param($files_data);

        $dest_data="dest_data".$i;
        $dest_temp=param($dest_data);
        
    #push (@array,$direc_temp);
    #if($direc_temp){
    print "<font color=#000000>$i## $direc_data=$direc_temp ## $array[$i] ## </font><br>"; #$transaction, $sub_status
    print "<font color=green>$i## $files_data=$files_temp ## $array[$i] ## </font><br>";
    print "<font color=red>$i## $dest_data=$dest_temp ## $array[$i] ## </font><br>";
    #}

        }
    continue{ $i++;}