@struct_catalogue=('cat','subcat','image','CTitle','Letter','Brand','Year','Style','Type','PartID');

sub makedirs
{
 if($Form{'cat'})
 {
  $folder=$datapath."/products/$Form{'cat'}";
  mkdir($folder,0755);
  if($Form{'subcat'})
  {
   $Form{'subcat'}=~ s/\s/\_/g;
   @subs=split(/\//,$Form{'subcat'});
   foreach(@subs){ $folder.="/$_"; mkdir(lc"$folder",0755); mkdir(lc"$folder/thumbs",0755); }
  }
 }
}

sub get_catalogue_categories
{
 my($vc,$vs,@records)=@_;
 my ($a,$b,$tc,$sc,$title,$cats,$subs,$catjs,$subjs,$nstr)='';
 my @str=();
 $cats="<option value=''>Select...\n  <option value='create'>Create New Category\n";
 $subs="<option value=''>Select...\n  <option value='create'>Create New Sub-Category\n";

 foreach(@records)
 {
  ($a,@rest)=split(/\|/,$_);
  $tc=~ /$a\|/i and next;
  $tc.="$a|";
  $title=$a; $title=~ s/(\w+)/\u\L$1/g; $title=~ s/\_/ /g;
  if($a eq $vc){ $sel=' selected'; }else{ $sel=''; }
  $cats.="  <option value='$a'$sel>$title\n";
  $catjs.=",'$a','$title'\n";
 }
 foreach(@records)
 {
  ($a,$b,@rest)=split(/\|/,$_);
  $sc=~ /$b\|/i and next;
  $sc.="$b|";
  $title=$b; $title=~ s/(\w+)/\u\L$1/g; $title=~ s/\_/ /g;
  if($b eq $vs){ $sel=' selected'; }else{ $sel=''; }
  $subs.="  <option value='$b'$sel>$title\n";
  $subjs.=",'$a/$b','$title'\n";
 }

 foreach(@records)
 {
  split_file("$_",@struct_catalogue);
  if($Brand) { $str[0]="Brand"; };
  if($Year)  { $str[1]="Year"; };
  if($Style) { $str[2]="Style"; };
  if($Type)  { $str[3]="Type"; };
  if($PartID){ $str[4]="PartID"; };
 }
 foreach(@str){ if($_){ $nstr.=",'$_'"; } }

 split_file($record,@struct_catalogue);#return variables

my $text=qq|
var cats=new Array('','Select..'\n$catjs);
var subs=new Array('','Select..'\n$subjs);
var struct=new Array(''$nstr);
var page='';

page+=' <form name=csearch method="post" action="site.pl">';
page+=' <input type=hidden name="Action" value="Catalogue">';
page+=' <input type=hidden name="Page" value="Catalogue">';
page+=' <input type=hidden name="cat" value="">';
page+=' <input type=hidden name="subcat" value="">';
page+=' Make :<br>';
page+=' <select name="scat" id="scat" style="margin-bottom:15px;width:150px;" onChange=\\'clearsubs(0); buildnext(1,this.value);\\'>';
page+=' </select>';
page+=' <br>';
page+=' <div id="readroot" style="display: block">';
page+=' </div>';
page+=' <br>';
for(var i=0;i<struct.length;i++){ if(struct[i]){ page+=struct[i]+' : <br> <input type=text name="'+struct[i]+'" style="margin-bottom:15px;width:150px;"><br>'; } }
page+=' <input type="submit" class="hbut" value="Search">';
page+=' </form>';

document.write(page);

var count=0;
var counter=0;
function makethem(w,title)
{
 var t=new Array();
 var text='';
 for(var x=0;x<subs.length;x+=2){ t=subs[x].split("/"); if(t.length>count)count=t.length; }
 for(var x=1;x<count;x++)
 {
  text+=title+' :<br>';
  text+='<select name="ssub" id="ssub'+x+'" style="margin-bottom:15px;width:'+w+'px;" onChange=\\'if(this.value=="")clearsubs('+x+'); else buildnext('+(x+1)+',this.value);\\'>';
  text+='</select>';
  text+='<br>';
 }
 document.getElementById('readroot').innerHTML=text;
 buildcats(1)
}

function buildcats(ref)
{
 var i=0;
 var obj=document.getElementById('scat');
 if(cats)for(var x=0;x<cats.length;x+=2){ obj.options[i]=new Option(cats[x+1],cats[x]); i++; }
}

function buildnext(ref,val)
{
 counter++;
 var i=0;
 var obj=document.getElementById('ssub'+ref);
 var newsub=new Array();
 var newtxt=new Array();
 var prev='';
 if(obj!=null)
 {
  for(var x=0;x<subs.length;x+=2)
  {
   newsub=subs[x].split("/");
   newtxt=subs[x+1].split("/");// alert(ref+' '+newsub[ref]+' '+prev);
   if(val==newsub[ref-1] && newtxt[ref-1] && newsub[ref]!=prev)
   {
    if(i==0){ obj.options[i]=new Option(subs[1],subs[0]); i++; }
    obj.options[i]=new Option(newtxt[ref-1],newsub[ref]); i++;
    prev=newsub[ref]
   }
  }
 }
 if(ref==1)csearch.cat.value=csearch.scat.value;
 else buildsubcat();
}

function buildsubcat()
{
 var obj;
 csearch.subcat.value='';
 for(var x=1;x<count;x++)
 {
  obj=document.getElementById('ssub'+x);
  if(obj!=null && obj.value!='')
  {
   if(x>1)csearch.subcat.value+="/"; csearch.subcat.value+=obj.value;
  }
 }
}

function clearsubs(ref)
{
 var obj;
 while(counter>ref)
 {
  obj=document.getElementById('ssub'+counter);
  if(obj!=null)for(var x=obj.options.length;x>0;x--){ obj.options[x-1]=null; }
  counter--;
 }
}

|;

 open(JS,">$datapath/js/catalogue.js");
 print JS $text;
 close(JS);

 return ($cats,$subs,$catjs,$subjs);
}

sub move_image
{
 if($Form{'cat'} ne $cat || $Form{'subcat'} ne $subcat)
 {
  $Form{'cat'}=~ s/\s/\_/g;
  if(!-d $datapath.lc("/products/$Form{'cat'}")){ mkdir($datapath.lc("/products/$Form{'cat'}"),0755); }
  $Form{'subcat'}=~ s/\s/\_/g;
  if(!-d $datapath.lc("/products/$Form{'cat'}/$Form{'subcat'}"))
  {
   my $folder=$datapath.lc("/products/$Form{'cat'}");
   $Form{'subcat'}=~ s/\s/\_/g;
   my @subs=split(/\//,$Form{'subcat'});
   foreach(@subs){ $folder.="/$_"; mkdir(lc"$folder",0755); mkdir(lc"$folder/thumbs",0755); }
  }
  if($image)
  {
   movefile($datapath.lc("/products/$cat/$subcat/$image.jpg"),$datapath.lc("/products/$Form{'cat'}/$Form{'subcat'}/$image.jpg"));
   movefile($datapath.lc("/products/$cat/$subcat/$image.gif"),$datapath.lc("/products/$Form{'cat'}/$Form{'subcat'}/$image.gif"));
   movefile($datapath.lc("/products/$cat/$subcat/thumbs/$image.jpg"),$datapath.lc("/products/$Form{'cat'}/$Form{'subcat'}/thumbs/$image.jpg"));
   movefile($datapath.lc("/products/$cat/$subcat/thumbs/$image.gif"),$datapath.lc("/products/$Form{'cat'}/$Form{'subcat'}/thumbs/$image.gif"));
  }
 }
}

sub Folders
{
 my $count=0;
 my $items='';
 !$Form{'disp'} and $Form{'disp'}=25;
 makedirs();
 $field=2; #sort products on image

 open(PROD,"$cgi_path/config/products.txt") || open(PROD,">$cgi_path/config/products.txt") || die print "Can't open file. $!\n";
 my @products = sort comparray <PROD>;
 close(PROD);

 if($Form{'Act'})
 {
   $Do="Update Item"; $FTitle="Edit Item $Form{'item'}";  $update='form.Act.value="update_item"';
  $folders.=qq|
  <p align=center><input type=submit class=hbut value='Administration' onClick='admin=1;'></p>
  <input type=hidden name='disp' value='$Form{'disp'}'>
  |;
  if($Form{'Act'} ne 'delete_item')
  {
   if($Form{'Act'} eq 'update_item' || $Form{'Act'} eq 'add_item')
   {
    if($Form{'Act'} eq 'update_item')
    {
     $Form{'cat'}=~ s/\'//g; $Form{'subcat'}=~ s/\'//g;
     split_file($products[$Form{'item'}-1],@struct_catalogue);
     move_image();
     $record=join_file(1,0,@struct_catalogue).$nl;
     $products[$Form{'item'}-1]=$record;
    }
    if($Form{'Act'} eq 'add_item'){ $record=join_file(1,1,@struct_catalogue).$nl;  push(@products,$record); }
    open(PROD,">$cgi_path/config/products.txt") || die print "Can't open file. $!\n";
    @products= sort comparray @products;
    foreach(@products){ print PROD $_; }
    close(PROD);
   }

   if($Form{'Act'} eq 'new_item'){ split_file("",@struct_catalogue); $update='form.Act.value="add_item"'; $Do="Add Item"; $FTitle="New Item"; }
   elsif($Form{'Act'} eq 'add_item'){ split_file($record,@struct_catalogue); $update='form.Act.value="edit_item"'; $FTitle="Edit Item $count";}
   elsif($Form{'Act'} eq 'copy_item'){ $update='form.Act.value="add_item"'; $Do="Add Item"; $FTitle="New Item"; $image=''; $FTitle="Copy Item $Form{'item'}"; $Form{'item'}=''; }
   else{ foreach(@products){ $count++; chomp(); $record=$_; split_file($_,@struct_catalogue); if($Form{'item'} == $count){ last; } } }

   ($CATS,$SUBS,$catjs,$subjs)=get_catalogue_categories($cat,$subcat,@products);

   my $myfolder=lc("products/$cat"); if($subcat){ $myfolder.=lc("/$subcat"); }
#$folders.=qq|$datapath/$myfolder/$image|;
   if(-e $datapath.lc("/$myfolder/thumbs/$image.jpg")){ $myimage="thumbs/$image.jpg";  $myaurl=qq|<a href="javascript:new1(700,500,'Catalogue','$home/cgi-bin/site.pl?Action=Display&cat=$cat&subcat=$subcat&image=$image')">|; $myurla=qq|</a>|; }
   elsif(-e $datapath.lc("/$myfolder/thumbs/$image.gif")){ $myimage="thumbs/$image.gif";  $myaurl=qq|<a href="javascript:new1(700,500,'Catalogue','$home/cgi-bin/site.pl?Action=Display&cat=$cat&subcat=$subcat&image=$image')">|; $myurla=qq|</a>|; }
   else{ $myfolder="i"; $myimage="nophoto.gif"; }

   if(-e "$datapath/$myfolder/$myimage")
   {
    $imagepreview=qq| <a href="javascript:new1(700,500,'Catalogue','$home/cgi-bin/site.pl?Action=Display&cat=$Form{'cat'}&subcat=$Form{'subcat'}&image=$image')"><img src='$home/$myfolder/$myimage' border=0 title='View in new window'></a>|;
   }
   else{ $imagepreview=qq|<img src='$home/i/nophoto.gif' border=0 title=''>|; }

   $folders.=qq|
   <style>.select { background-color:#ffffff; }</style>
   $success
   <H4 class=info>$FTitle</H4>
   <input type=hidden name='item' value='$Form{'item'}'>
   <input type=hidden name='makethumb' value='1'>
   <center><font style='color:green; font-size=9px;'>$imageresult</font><br>
   <table width="95%" cellpadding=0 cellspacing=0 border=0>
    <tr>
     <td width=150 valign=middle align=center>$imagepreview<br><font class='notice'>Current</font></td>
     <td width=150 valign=middle align=left><img alt="Image Preview" id="previewField1" src="$home/i/spacer.gif"><br><font class='notice'>Preview</font></td>
    </tr>
   </table>

   <table width="100%" cellpadding=0 cellspacing=5 border=0>
    <tr><th align=right style="width:135px;">Ref Code : </th><td class=notice><input class=input type='text' name='image' id='image' value='$image' onBlur='this.value=trim(this.value.toLowerCase());'> (Upload new image if editing after previous upload.)</td></tr>
    <tr>
     <th align=right> Upload Image : </th>
     <td valign=top class=notice>
     <input type='file' name='file' id='myfile' size=30 onChange='showimg(this,1,85);'> (jpg or gif files only) $i_note <font color='red'>overwrites</font> existing file of same ID.
     </td>
    </tr>
    <tr>
     <th align=right> Category : </th>
     <td class=notice>
     <select class=select style='width:400' name='scat' id='scat' onchange=" clearsubs(0); if(this.value!=''){ buildnext(1,this.value); }else createnew('cat','');"></select> <a href="#" onclick="createnew('cat',''); clearsubs(0); return false;"><u class=uimg>New</u></a> $i_note Only one category or sub-category per session allowed.
     </td>
    </tr>
    <tr id=ecat style='display=none'><th align=right style='color:red'>Create New </th><td><input class=input style='width:400' type='text' name='ncat' value='' style='width:200;' onBlur='this.value=trim(this.value.toLowerCase()); addopt("scat",this.value,"ecat"); this.value=""; '></td></tr> 
    <tr>
     <td colspan=2>
     <div id="readdivs" style="display: block"></div>
     <div id="readroot" style="display: block"></div>
     </td>
    </tr>
    <tr><th align=right> Brand :   </th><td class=notice><input type='text' name='Brand' id='Brand' value='$Brand' style='width:200;'> </td></tr>
    <tr><th align=right> Year :    </th><td class=notice><input type='text' name='Year' id='Year' value='$Year' style='width:200;'> ( seperate years using comma ) </td></tr>
    <tr><th align=right> Style :   </th><td class=notice><input type='text' name='Style' id='Style' value='$Style' style='width:200;'> </td></tr>
    <tr><th align=right> Type :    </th><td class=notice><input type='text' name='Type' id='Type' value='$Type' style='width:200;'> </td></tr>
    <tr><th align=right> Part ID : </th><td class=notice><input type='text' name='PartID' id='PartID' value='$PartID' style='width:200;'> </td></tr>
    <tr><th align=right> Title :   </th><td class=notice><input type='text' name='CTitle' id='CTitle' value='$CTitle' style='width:500;'> Html allowed </td></tr>
    <tr>
     <th colspan=2 align=left>
     <div id=load style='display:block; left: 0px; position: relative; visibility:visible;'><p align=center><img src='$home/i/loading.gif'></p></div>
     <div id=myeditor style='display:block; left: 0px; position: relative; visibility:hidden;'>
      Description :
      $editorhead<br>
     <textarea name='Letter' id='Letter' width=600 style='width:"99%"; height:200'>$Letter</textarea><br>
     &nbsp;&nbsp;&nbsp;&nbsp;<b>Tip:</b>
     <font style='color:green; font-weight:normal;'>Creating spaces between paragraphs makes for easy reading.</font>
    </td>
    </tr>
   </table>
  
   <table width="90%" cellpadding=0 cellspacing=0 border=0>
    <tr>
     <td align=center>
     <input type=submit class='hbut' value=' $Do ' onClick='$update; enctype="multipart/form-data";' $mouse>
     <input type=reset  class='hbut' value='Reset' onClick="clearsubs(0);"  $mouse>
     </td>
    </tr>
   </table>
   <script>
   var admin;
   editor_generate('Letter');
   var ifields = new Array("image","Ref Code","scat","Category or new catergory","CTitle","Title");
   function go(ref)
   {
    if(!admin)
    {
     if(!validatefields(ifields)) return false;
     if(form.Letter.value==''){ alert("Item full description required."); return false; }
     buildsubcat();
//alert(count+' Cat:'+form.cat.value+' Subcat:'+form.subcat.value);
// return false;
    }
    else form.Act.value='';
   }
   function showthem(ref)
   {
    HideLayer('load');
    ShowLayer('myeditor');
   }
   setTimeout("showthem(1)",5000);

 //////////////////////////////////////build the categories /////////////

var cats=new Array('','Select..'\n$catjs);
var subs=new Array('','>>..'\n$subjs);

var cursub=new Array(); cursub='$cat/$subcat'.split("/");
var count=0;
var counter=0;
var obj;
function makethem(w,title)
{
 var t=new Array();
 var text='<table border=0 cellpadding=0 cellspacing=0>';
 for(var x=0;x<subs.length;x++){ t=subs[x].split("/"); if(t.length>count)count=t.length; }
 for(var x=1;x<count;x++){ text+=subdiv(w,title,x); }
 text+='</table>';
 document.getElementById('readdivs').innerHTML=text;
 buildcats(1)
}

function subdiv(w,title,x)
{
 var text='';
  text+='<tr><th style="width:135px;" align=right valign=top>'+title+' : </th>';
  text+=' <td>&nbsp;&nbsp;<select name="ssub'+x+'" id="ssub'+x+'" style="margin-bottom:5px;width:'+w+'px;" onChange=" clearsubs('+x+'); if(this.value!=\\'\\'){ if(this.value==\\'create\\')createnew(\\'sub\\','+x+'); else buildnext('+(x+1)+',this.value); }"></select></td></tr>';
  text+='<tr id=esub'+x+' style="display=none"><th align=right style="color:red">Create New </th><td style="color:red"><input class=input style="width:400;" type="text" name="nsub'+x+'" value="" style="width:200;" onBlur=\\'this.value=trim(this.value); addopt("ssub'+x+'",this.value,"esub'+x+'"); this.value=""; \\'></td></tr>';
  return text;
}

function buildcats(ref)
{
 var i=0,n=0;
 obj=document.getElementById('scat');
 //build cats
 if(cats){ for(var x=0;x<cats.length;x+=2){ n=x+1; obj.options[i]=new Option(cats[n],cats[x]); i++; }  obj.value='$cat'; }
 //build subcats and propogate
 for(var x=1;x<count;x++){ n=x-1; buildnext(x,cursub[n]); obj=document.getElementById('ssub'+x); if(cursub[x])obj.value=cursub[x]; else obj.value=''; }

 if(cats.length<3)createnew('cat','');
}

function buildnext(ref,val)
{
 if(form.scat.value=='')return;
 counter++;
 var i=0,n=ref+1,o=ref-1,d=0,r=ref;
 obj=document.getElementById('ssub'+ref);
 var newsub=new Array();
 var newtxt=new Array();
 var prev='';
 if(obj!=null)
 {
  for(var x=0;x<subs.length;x+=2)
  {
   d=x+1;
   newsub=subs[x].split("/");
   newtxt=subs[d].split("/");
   if(i==0){ obj.options[i]=new Option(subs[1],subs[0]); i++; obj.options[i]=new Option('Create new','create'); i++; }
//if(ref==4)alert(val+' == '+newsub[o]+' T= '+newtxt[o]+' N= '+newsub[r]+' P='+prev);// 
   if((val && val==newsub[o]) && newtxt[o] && newsub[r]!=prev)
   {
    obj.options[i]=new Option(newtxt[o],newsub[r]); i++;
    prev=newsub[r]
   }
  }
 }
}

function buildsubcat()
{
 var obj;
 form.cat.value='';
 form.subcat.value='';
 form.cat.value=form.scat.value;
 for(var x=1;x<count;x++)
 {
  obj=document.getElementById('ssub'+x);
  if(obj!=null && obj.value!=''){ if(x>1)form.subcat.value+="/"; form.subcat.value+=obj.value.toLowerCase(); }
 }
}

function clearsubs(ref)
{
 var n;
 var obj;
 while(counter>ref)
 {
  obj=document.getElementById('ssub'+counter);
//  if(obj!=null) obj.options[counter].value='';
  if(obj!=null)for(var x=obj.options.length;x>0;x--){ n=x-1; obj.options[n]=null; }
  counter--;
 }
}

function createnew(val,ref)
{
 obj=document.getElementById('n'+val+ref);
 ShowLayer('e'+val+ref);
// clearsubs(ref+1);
 if(obj!=null)obj.focus();
}

makethem(400,'Sub');
buildsubcat();

 //////////////////////////////////////end build the categories /////////////






   </script>
   |;
  }
  else
  {
   open(PROD,">$cgi_path/config/products.txt") || die print "Can't open file. $!\n";
   foreach(@products){ $count++; split_file($_,@struct_catalogue); if($Form{'item'} ne $count){ print PROD $_; } }
   close(PROD);
   $folders.=qq|
   <H4 style='color:green'>Item deleted.</H4>
   <script>
    function go(ref)
    {
    }
   </script>
   |;
  }
 }
 else
 {
  foreach (@products)
  {
   $count++;
   split_file($_,@struct_catalogue);
   pageit($Form{'disp'});
   $items.=qq|<option value="$count">$count : $image : $CTitle\n|;
  }

  $folders.=qq|
   <p align=center>
   <input type="submit" class='hbut' value=" New "   onClick='form.Act.value="new_item";' $mouse>&nbsp;&nbsp;
   <input type="submit" class='hbut' value=" Edit "  onClick='if(form.item.value!="")form.Act.value="edit_item";else{ alert("Item not selected"); return false; }' $mouse>&nbsp;&nbsp;
   <input type="submit" class='hbut' value=" Copy "  onClick='if(form.item.value!="")form.Act.value="copy_item";else{ alert("Item not selected"); return false; }' $mouse>&nbsp;&nbsp;
   <input type="submit" class='hbut' value=" Delete " onClick='if(form.item.value!="" && confirm("Click Ok to delete this item")){ form.Act.value="delete_item";}else{ alert("Item not selected"); return false; }' $mouse>
   Display <select name=disp onchange='form.submit();'>
   <script>addopts(25,500,25,'$Form{'disp'}','');</script>
   </select>
   <br>
   <br>
   <select class="select" name="item" id='item' size=15 style='width=75%'>$items</select>
   </p>
   @{[&pagebreak($page_cnt,'pagenum')]}
  <script>
   function go(ref)
   {
   }
  </script>
  |;
 }
 $folders.=qq|
  <script>
   re=/\\n/g;
   be=/'/g;
   xe=/ /g;
   function checktext(ref)
   {
    var re ="/a \\nhref\|a \\n href/gi";
    form.Letter.value=form.Letter.value.replace(re,'a href');
   }
   function addopt(ref,cat,lyr)
   {
    var obj=document.getElementById(ref);
    if(!cat){ obj.options[0].selected=true; }
    else if(obj.options)
    {
     var l=obj.options.length;
     obj.options[l]=new Option(cat,cat);
     obj.options[l].selected=true;
    }
    HideLayer(lyr);
   }
  </script>
 <br><br>
 |;
}

sub Catalogue
{
 !$randomdisplay and $randomdisplay=6;
#print qq|==>>$Form{'cat'} $Form{'subcat'}$Form{'Make'}$Form{'Model'}$Form{'Style'}$Form{'Year'}$Form{'Brand'}$Form{'Type'}|;
 my $viewdirect="( <a href='site.pl?Action=Catalogue&Page=Catalogue&list=1'>View directory</a> )";
 local($x=0,$found=0,$products='',$prods='');

 if($protected=~ /products/i && getprofile()==2 && $GSDate<$sdate)
 {
  $prods.=qq|<H4 class=warn>$test This area for signed in and paid up Members Only</H4>\n|;
  return;
 }

# $prods.=qq|<p align=center><input type=submit class=hbut value='Folder Administration' onClick='form.Action.value="Folders"; form.folder.value="products"; form.Page.value="Folders";'></p>\n|;

 if(!$Form{'cat'} && !$Form{'subcat'} && $Form{'list'})
 {
  my @data=();
  open(PROD,"$cgi_path/config/products.txt") || open(PROD,">$cgi_path/config/products.txt") || die print "Can't open file. $!\n";
  my @products = sort comparray <PROD>;
  close(PROD);

  foreach (@products)
  {
   split_file($_,@struct_catalogue);
   !$cat and next;
   if("$cat|$subcat" ne $L){ push(@data,"$cat|$subcat"); $L="$cat|$subcat"; }
  }

  $prods.=qq|<H4 class=info align=center>-- : Select to View : --</H4>
  <table width="100%"><tr>\n
  |;
  @data=sort@data;
  foreach(@data)
  {
   $found++;
   ($cat,$subcat)=split(/\|/,$_);
   $title="$cat > $subcat";
   $title=~ s/\// > /g;
   $title=~ s/(\w+)/\u\L$1/g;
   $prods.=qq|<td><li> <a href='site.pl?Action=Catalogue&Page=Catalogue&cat=$cat&subcat=$subcat'><u>$title</u></a></td>\n|;
   if($found%2){ $prods.=qq|</tr>\n<tr>\n|; $found=0; }
  }
  if(!$found%2){ $prods.=qq|<td colspan=@{[2-$found]}></td>\n|; }
  $prods.=qq|</tr></table>\n|;
 }
 elsif(!$Form{'cat'} && !$Form{'subcat'})
 {
  my @data=();
  open(PROD,"$cgi_path/config/products.txt") || open(PROD,">$cgi_path/config/products.txt") || die print "Can't open file. $!\n";
  my @products = <PROD>;
  close(PROD);

  srand;
  foreach (@products){ if($_ ne "\n"){ push(@data,$_); } }

  $prods.=qq|<H4 class=info align=center>-- : Catalogue Random Items $viewdirect : --</H4>
  <table width='100%' cellpadding=0 cellspacing=10 border=0><tr>
  |;
  for($x=0;$x<$randomdisplay;$x++)
  {
   $selected= $data[int(rand $#data)];
   chomp($selected);
   $found++;
   split_file($selected,@struct_catalogue);

   my $myfolder=lc("products/$cat"); if($subcat){ $myfolder.=lc("/$subcat"); }

   if(-e $datapath.lc("/$myfolder/thumbs/$image.jpg")){ $myimage="thumbs/$image.jpg";  }
   elsif(-e $datapath.lc("/$myfolder/thumbs/$image.gif")){ $myimage="thumbs/$image.gif";  }
   else{ $myfolder="i"; $myimage="nophoto.gif";}

   $myaurl=qq|<a href="javascript:new1(700,500,'Catalogue','$home/cgi-bin/site.pl?Action=Display&cat=$cat&subcat=$subcat&image=$image')">|; $myurla=qq|</a>|; 

   $prods.=qq|<td width='50%' valign=top><div align=right><table width='100%' cellpadding=3><tr><td width=120>@{[cat_image($myfolder,$myimage)]}</td><td valign=top>$CTitle<br> $Letter</td></tr></table>$myaurl ...more $myaurla</div></td>|;
   if($found==2){ $prods.=qq|</tr>\n<tr>|; $found=0; }
  }
  if(!$found%2){ $prods.=qq|<td colspan=@{[2-$found]}></td>\n|; }
  $prods.=qq|</tr>\n</table>\n|;
 }
 else
 {
  $title=$Form{'cat'};
  if($Form{'subcat'}){ $title.=" > ".$Form{'subcat'}; $title=~ s/\// > /g; $title=~ s/\_/ /g; $title=~ s/(\w+)/\u\L$1/g; if($catalogueuppercase eq 'Yes'){ $title=uc($title); } }

  $prods.=qq|<H4 class=info align=center>-- : $title : -- $viewdirect </H4>
  <table width="100%" cellpadding=10>
   <tr>
    <td>
  |;

  if($displaytype eq 'Line')
  {
   open (PRODUCTS, $cgi_path.lc("/config/products.txt"));
   @products=<PRODUCTS>;
   close(PRODUCTS);

   foreach $products(@products)
   {
    chomp($products);
    split_file($products,@struct_catalogue);
    lc($Form{'cat'}) ne lc($cat) && next;
    $Form{'subcat'} && lc($Form{'subcat'}) ne lc($subcat) && next;
    catalogue_search();
    $records++;
    pageit($imgdisplay);
 
    my $myfolder=lc("products/$cat"); if($Form{'subcat'}){ $myfolder.=lc("/$subcat"); }
 
    if(-e $datapath.lc("/$myfolder/thumbs/$image.jpg")){ $myimage="thumbs/$image.jpg"; }
    elsif(-e $datapath.lc("/$myfolder/thumbs/$image.gif")){ $myimage="thumbs/$image.gif"; }
    else{ $myfolder="i"; $myimage="nophoto.gif"; }

    $myaurl=qq|<a href="javascript:new1(700,500,'Catalogue','$home/cgi-bin/site.pl?Action=Display&cat=$Form{'cat'}&subcat=$subcat&image=$image')">|; $myurla=qq|</a>|;

    $prods.=qq|
    <table width="100%" cellpadding=5 cellspacing=0 border=1 style='border-collapse:collapse;'>
     <tr>
      <td align=center width="20%" valign=top width='$thumbw'>@{[cat_image($myfolder,$myimage)]}</td>
      <td valign=top width="80%">
      <br>
      $CTitle <br>
      $Make $Model $Brand $Year $Part $Style $Type <br>
      $Letter
      </td>
     </tr>
    </table>
    <br>
    |;
    $found++;
   }

   $prods.= qq|
     </td>
    </tr>
   </table>
   |;
  }
  else
  {
   $imgdisplay?():($imgdisplay=3);
   $tds=100/$imgdisplay;
   my $myfolder=lc("products/$Form{'cat'}"); if($Form{'subcat'}){ $myfolder.=lc("/$Form{'subcat'}"); }
   chdir $datapath."/$myfolder" || die print  "Can't cd to $datapath/$myfolder: $!\n";
   opendir THISDIR, "." || die print  "serious damage: $!";
   @allfiles = grep !/^\.\.?$/, readdir THISDIR;
   closedir THISDIR;
   @allfiles = sort @allfiles;
   $myfolder.="/thumbs";
 
   foreach(@allfiles)
   {
    ($_!~ /\.jpg/ && $_!~ /\.gif/) && next;
    catalogue_search();
    $records++;
    pageit($imgdisplay);
    $cx++;
    if($cx==3){ $nl='</td></tr></table><table width="100%"><tr>'; $cx=0; }else{ $nl=''; } 
 
    if(-e "$datapath/$myfolder/$_"){ $myimage="$_";  } else { $myfolder="products"; $myimage="nophoto.gif"; }

    $myaurl=qq|<a href="javascript:new1(700,500,'Catalogue','$home/cgi-bin/site.pl?Action=Display&cat=$Form{'cat'}&subcat=$subcat&image=$image')">|; $myurla=qq|</a>|;
 
    ($w, $h, $sizeinfo)=imagedetails($_,$datapath.lc("/$myfolder/$myimage"));
 
    $w-=8; $h-=8;
    $prods.=qq|
    <td width="$tds%" align=center>@{[cat_image($myfolder,$myimage)]}</td>
    $nl
    |;
    $found++;
   }
   $prods.=qq|</tr></table>|;
  }
 }
 if($cataloguedisplay eq 'No'){ $cataloguedisplay=1; }else{ $cataloguedisplay=0; }
 $prods.=qq|<br>@{[&pagebreak($page_cnt,'pagenum',$cataloguedisplay,$cataloguedisplay)]}
 <script>
   function go(ref)
   {
    //added to avoid error
   }
 </script>
 |;
}

sub catalogue_search
{
 if($Form{'Brand'}) { next unless $Brand=~  /$Form{'Brand'}/i;  }
 if($Form{'Year'})  { next unless $Year=~   /$Form{'Year'}/i;   }
 if($Form{'Style'}) { next unless $Style=~  /$Form{'Style'}/i;  }
 if($Form{'Type'})  { next unless $Type=~   /$Form{'Type'}/i;   }
 if($Form{'PartID'}){ next unless $PartID=~ /$Form{'PartID'}/i; }
}

sub cat_image
{
 my($myfolder,$myimage)=@_;
 my $text='';

 ($w, $h, $sizeinfo)=imagedetails($myimage,$datapath.lc("/$myfolder/$myimage"));
 $w-=8; $h-=8;

 $text=qq|
    <table class='shadowBR' border=0; cellspacing=0; cellpadding=0;> 
     <tr><td class='shadowBR-center' rowspan=2 colspan=2 align=center>$myaurl<img src='$home/$myfolder/$myimage' border=0 title='View more details'>$myurla</td><td class='shadowBR-topRight'></td></tr>
     <tr><td class='shadowBR-right' colspan=3 height=$h></td></tr>
     <tr><td class='shadowBR-bottomLeft'></td><td class='shadowBR-bottom' width=$w></td><td class='shadowBR-bottomRight'></td></tr>
    </table>
 |;
 return $text;
}

sub Display
{
 if($Form{'random'})
 {
  $pages='blank';
  my @data=();
  open(PROD,"$cgi_path/config/products.txt") || open(PROD,">$cgi_path/config/products.txt") || die print "Can't open file. $!\n";
  my @products = <PROD>;
  close(PROD);

  srand;
  foreach (@products){ if($_ ne "\n"){ push(@data,$_); } }

  $prods.=qq|
  <table width='100%' cellpadding=0 cellspacing=10 border=0><tr>
  |;
  for($x=0;$x<$randomdisplay;$x++)
  {
   $selected= $data[int(rand $#data)];
   chomp($selected);
   $found++;
   split_file($selected,@struct_catalogue);

   my $myfolder=lc("products/$cat"); if($subcat){ $myfolder.=lc("/$subcat"); }

   if(-e $datapath.lc("/$myfolder/thumbs/$image.jpg")){ $myimage="thumbs/$image.jpg";  }
   elsif(-e $datapath.lc("/$myfolder/thumbs/$image.gif")){ $myimage="thumbs/$image.gif";  }
   else{ $myfolder="i"; $myimage="nophoto.gif"; }

   $myaurl=qq|<a href="javascript:new1(700,500,'Catalogue','$home/cgi-bin/site.pl?Action=Display&cat=$cat&subcat=$subcat&image=$image')">|; $myurla=qq|</a>|; 

   $prods.=qq|<td width='50%' valign=top><div align=right><table width='100%' cellpadding=3><tr><td width=120>@{[cat_image($myfolder,$myimage)]}</td><td valign=top>$CTitle<br> $Letter</td></tr></table>$myaurl ...more $myaurla</div></td>|;
   if($found==2){ $prods.=qq|</tr>\n<tr>|; $found=0; }
  }
  if(!$found%2){ $prods.=qq|<td colspan=@{[2-$found]}></td>\n|; }
  $prods.=qq|</tr>\n</table>\n|;
  $imagedata=$prods;
 }
 else
 {
  $pages='display';
  my($myfolder)='';
  open (PRODUCTS, $cgi_path.lc("/config/products.txt")) || oops("products.txt $!");
  @products=<PRODUCTS>;
  foreach(@products)
  {
   chomp();
   split_file($_,@struct_catalogue);
   if($Form{'cat'} eq $cat && $Form{'subcat'} eq $subcat && $Form{'image'} eq $image){ last; }else{ ($CTitle,$Letter)=''; }
  }
 
  $myfolder="products/$Form{'cat'}"; if($subcat){ $myfolder.="/$Form{'subcat'}"; }
 
  if(-e "$datapath/$myfolder/$image.jpg"){ $myimage="$image.jpg"; }
  elsif(-e "$datapath/$myfolder/$image.gif"){ $myimage="$image.gif"; }
  else{ $myfolder="i"; $myimage="nophoto.gif"; }
 
  ($w, $h, $sizeinfo)=imagedetails($myimage,$datapath.lc("/$myfolder/$myimage"));
  $w-=8; $h-=8;
 
  get_date();
 
  $imagesinfo=qq|<H4 class=info>$CTitle</H4>
  @{[cat_image($myfolder,$myimage)]}
  <h4 class=info width="100%" align=left>Description :</h4>
  <div width="100%" align=left>$Letter<div>
  |;
  close(PRODUCTS);
 }
}

sub Images
{
 $cat=$Form{'cat'};
 $subcat=$Form{'subcat'};
 $myfolder="products/$Form{'cat'}";
 $myphoto='nophoto.gif';
 if($Form{'subcat'}){ $myfolder.="/$Form{'subcat'}"; }

 if($ext){$pagedata.=upload_image("$Form{'image'}.$ext"); }

 if($Form{'image'})
 {
  open (PRODUCTS, $cgi_path.lc("/config/products.txt")) || open (products, ">".$cgi_path.lc("/config/products.txt"));
  @products=sort byalphafwd <PRODUCTS>;
  close(PRODUCTS);

  if($Form{'Act'})
  {
   $found=0;
   open (PRODUCTS, ">".$cgi_path.lc("/config/products.txt")) || oops("products.txt $!");
   foreach(@products)
   {
    chomp();
    split_file($_,@struct_catalogue);
    if($Form{'cat'} eq $cat && $Form{'subcat'} eq $subcat && $Form{'image'} eq $image)
    {
     $found++;
     if($Form{'Act'} eq 'Delete')
     {
      unlink $datapath.lc("/$myfolder/$Form{'image'}.jpg");
      unlink $datapath.lc("/$myfolder/$Form{'image'}.gif");
      unlink $datapath.lc("/$myfolder/thumbs/$Form{'image'}.jpg");
      unlink $datapath.lc("/$myfolder/thumbs/$Form{'image'}.gif");
      $Form{'image'}='',
      $imagesinfo.=qq|<b class=warn>Folders and item removed</b>|;
      next;
     }
     $_=join_file(1,0,@struct_catalogue);
    }
    print PRODUCTS "$_$nl";
   }
   close(PRODUCTS);

   if(!$found && $Form{'Act'} ne 'Delete')
   {
    open (PRODUCTS, ">>".$cgi_path.lc("/config/products.txt"));
    $products = "$Form{'cat'}|$Form{'subcat'}|".lc($Form{'image'})."|$Form{'CTitle'}|$Form{'Letter'}|$Form{'Make'}|$Form{'Model'}|$Form{'Brand'}|$Form{'Year'}";
    print PRODUCTS "$products\n";
    close(PRODUCTS);
   }
  }

  open (PRODUCTS, $cgi_path.lc("/config/products.txt"));
  @products=<PRODUCTS>;
  foreach $products(@products)
  {
   chomp($products);
   ($cat,$subcat,$image,$CTitle,$Letter,$Make,$Model,$Brand,$Year)=split(/\|/,$products);
   if($Form{'cat'} eq $cat && $Form{'subcat'} eq $subcat && $Form{'image'} eq $image){ last; }
   else{ ($CTitle,$Letter)=''; }
  }
  close(PRODUCTS);
 } 

 chdir $datapath.lc("/$myfolder") or  $pagedata.="Can't cd to $myfolder: $!\n";
 opendir THISDIR, "." || die print  "serious damage: $!";
 @allfiles = grep !/^\.\.?$/, readdir THISDIR;
 closedir THISDIR;
 @allfiles = sort @allfiles;
 $x=0;
 $found=0;

 $imagesinfo.=qq|<p align=center><input type=submit class=hbut value='Folder Administration' onClick='form.Action.value="Folders"; form.folder.value="products"; form.Page.value="Folders";'></p>\n|;
 $imagesinfo.=qq|<p>
 <H4 class=subinfo>@{[ucfirst($Form{'cat'})]} / @{[ucfirst($Form{'subcat'})]} Items : </H4>
 <table width="95%" cellpadding=0 cellspacing=0 border=0>
 <tr>
 |;

 foreach(@allfiles)
 {
  ($_!~ /\.jpg|\.gif/) && next;
  $Form{'image'} && $_=~ /$Form{'image'}\./?($myphoto="$myfolder/thumbs/$_"):();
  pageit(60);
  $records++;
  ($img)=split(/\./,lc$_);
  $x++;
  $imagesinfo.=qq|
  <td width="5%"><img src='$home/i/i_trash.gif' onClick='goedit(4,"$img","$Form{'cat'}","$Form{'subcat'}");' title='Delete Item/Id' style='cursor:hand;'></td>
  <td width="5%"><img src='$home/i/i_edit.gif' onClick='goedit(3,"$img","$Form{'cat'}","$Form{'subcat'}");' title='View and edit' style='cursor:hand;'></td>
  <td width="40%"><a href="javascript:new1(500,400,'Catalogue','$home/$myfolder/$_');" title='Opens in new window'><u style='color:blue'>$_</u></td>
  |;
  if($x==2){ $imagesinfo.=qq|</tr><tr>\n|; $x=0; }
  $found++;
 }

 $imagesinfo.=qq|</tr></table>|;
 $imagesinfo.=qq|@{[&pagebreak($page_cnt,'pagenum')]}|;

 if(-e "$datapath/$myphoto")
 {
  $imagepreview=qq| <a href="javascript:new1(700,500,'Catalogue','$home/cgi-bin/site.pl?Action=Display&cat=$Form{'cat'}&subcat=$Form{'subcat'}&image=$image')"><img src='$home/$myphoto' border=0 title='View in new window'></a>|;
 }
 else{ $imagepreview=qq|<img src='$home/i/nophoto.gif' border=0 title=''>|; }
#enctype="multipart/form-data";
 if($Form{'image'}){ $updateimage=qq|  <input type=button class='hbut' value='Update Details' onClick='checktext(1); goedit(2,"$Form{'image'}");' $mouse>|; }
  
 $imagesinfo.=qq|
 <center><font style='color:green; font-size=9px;'>$imageresult</font><br>
 <hr width="75%" color='$clrbuttonbg'>
 <table width="95%" cellpadding=0 cellspacing=0 border=0>
  <tr>
   <td width=150 valign=middle align=center>
   $imagepreview<br><font class='notice'>Current</font>
   </td>
   <td width=150 valign=middle align=left>
   <img alt="Image Preview" id="previewField1" src="$home/i/spacer.gif"><br><font class='notice'>Preview</font>
   </td>
   <td valign=top class=notice>
   Used when uploading and <font color='red'>overwrites</font> existing file of same name.
   <br>
   <b> ID : </b><input class=input type='text' name='image' id='image' value='$Form{'image'}'>
   <br>
   <input type='file' name='file' id='myfile' size=30 onChange='showimg(this,1,85);'>
   </td>
  </tr>
 </table>

 <table width="100%" cellpadding=0 cellspacing=3 border=0>
  <tr>
   <th align=right> Brand : </th><td class=notice><input type='text' name='Brand' id='Brand' value='$Brand' style='width:200;'> Optional   </td>
  </tr>
  <tr>
   <th align=right> Year : </th><td class=notice><input type='text' name='Year' id='Year' value='$Year' style='width:100;'> Optional   </td>
  </tr>
  <tr>
   <th align=right> Style : </th><td class=notice><input type='text' name='Style' id='Style' value='$Style' style='width:200;'> Optional   </td>
  </tr>
  <tr>
   <th align=right> Type : </th><td class=notice><input type='text' name='Type' id='Type' value='$Type' style='width:200;'> Optional   </td>
  </tr>
  <tr>
   <th align=right> Title : </th><td class=notice><input type='text' name='CTitle' id='CTitle' value='$CTitle' style='width:500;'> Html allowed   </td>
  </tr>
  <tr>
   <th colspan=2 align=left>
   <div id=load style='display:block; left: 0px; position: relative; visibility:visible;'>
   <p align=center><img src='$home/i/loading.gif'></p>
   </div>
   <div id=myeditor style='display:block; left: 0px; position: relative; visibility:hidden;'>
    Description :
    $editorhead
   <br>
   <textarea name='Letter' id='Letter' width=600 style='width:"99%"; height:350'></textarea>
   <br>
   &nbsp;&nbsp;&nbsp;&nbsp;<b>Tip:</b>
   <font style='color:green; font-weight:normal;'>Creating spaces between paragraphs makes for easy reading.</font>
  </td>
  </tr>
 </table>

 <table width="90%" cellpadding=0 cellspacing=0 border=0>
  <tr>
   <td align=center>
   <input type=button class='hbut' value='Add New Item' onClick=" enctype='multipart/form-data'; goedit(1,'');" $mouse>
   <input type=button class='hbut' value='Update Image \& Details' onClick=" enctype='multipart/form-data'; goedit(1,'');" $mouse>
   $updateimage
   <input type=reset  class='hbut' value='Reset' $mouse>
   </td>
  </tr>
 </table>
 <script> editor_generate('Letter'); </script>
 <script>
 re=/\\n/g;
 be=/'/g;
 xe=/ /g;
 function go(ref)
 {
  //used to avoid error
 }
 function showthem(ref)
 {
  HideLayer('load');
  ShowLayer('myeditor');
 }
 setTimeout("showthem(1)",5000);
 function checktext(ref)
 {
  var re ="/a \\nhref\|a \\n href/gi";
  form.Letter.value=form.Letter.value.replace(re,'a href');
 }
 function ClearUp(ref)
 {
  document.getElementById("myfile").outerHTML = "<input type='file' name='file' id='myfile' size=30 onChange='alert(this.value); showimg(this,1,85)'>";
 }
 function goedit(ref,item,cat,subcat)
 {
  form.Action.value='Images';
  form.Page.value='Images';
  if(item)form.image.value=item;
  form.image.value =form.image.value.replace(xe,"_");
  if(cat)form.cat.value=cat;
  if(subcat)form.subcat.value=subcat;
  form.CTitle.value =form.CTitle.value.replace(be,"`");
  form.Letter.value=form.Letter.value.replace(re,"<br>");
  form.Letter.value=form.Letter.value.replace(be,"`");
  if(ref==3 \|\| ref==4)ClearUp(1);
  if(ref<3)
  {
   var file=form.file.value.toLowerCase();
   if(form.image.value==''){ alert('ID required.'); form.image.focus(); return false; }
   if(file && file.substring(file.length-4,file.length)!='.jpg' && file.substring(file.length-4,file.length)!='.gif')
   { alert('.jpg or .gif image extensions allowed ONLY.'); form.file.focus(); return false;}
   if(ref==1)
   {
    if(form.file.value==''){ alert('Image selection required.'); form.file.focus(); return false;}
    form.Act.value='New'; 
   }
   else form.Act.value='Update';
   if(form.CTitle.value==''){ alert('Title required.'); form.CTitle.focus(); return false; }
   if(form.Letter.value==''){ alert('Description required.'); return false; }
///   if(form.file.value!='' && !confirm('Click if OK to Upload this image to overwrite "'+form.image.value+'" or add new image.'))return false;
  }
  else if(ref==3){ form.submit(); }
  else if(confirm('Click ok to remove Item '+form.image.value)){ form.Act.value='Delete'; }
  else{ return false;}
  form.submit();
 }
 var te= /<br>/g;
 form.CTitle.value='$CTitle'; form.Letter.value='$Letter';
 form.Letter.value=form.Letter.value.replace(te,'\\n');
 </script>
 <p>
 |;

 if($found && $page_cnt > 0){ $imagesinfo.=pagebreak($page_cnt); }
}

1;