#!/usr/local/bin/perl
######################################################
#Virtual Employment Agency
# ver 5.0 - se
######################################################
# Copyright (c) 2000 e-Business Solutions. All Rights Reserved
# www.biz-on-line.com # sid@biz-on-line.com
######################################################

require 'jobs.cfg';
require 'jobs.pl';
use CGI;

$query = new CGI;

$this_path = &get_path_info;
$script_ref = $ENV{"HTTP_REFERER"};
  if ($script_ref =~ /\/$/) { chop ($script_ref)};


  if ($query->cookie(-name=>'mainlogin') eq 'admin') {$user = 1}
  else {$user = 0};

$script_mode = $query->param('mod');
   if ($query->param('komis_ref')) {
      $script_reference = $query->param('komis_ref');
   } else {
      $script_reference = $script_ref;
   }
if ($query->param('action') eq 'kom_insert') {
   &staff_insert;
} elsif ($query->param('action') eq 'kom_edit') {
   &staff_edit;
} else {
#  $this_path =~ s/\/staff$//;
  %tags = &get_bib_info_komis($staff_root.$this_path);
  %params = &get_params(%tags);

  $type = $tags{'Type'};

  @inc_list = &verify_list("$staff_root$this_path",$life_time);
  @sections_list = &get_inc_link_sections("$staff_root$this_path",@inc_list);


  &get_html ($staff_root);

}

sub staff_list {
  local (@prod_list) = @_;
 @products_list=@prod_list if (@prod_list);

  if (@products_list) {
#	&full_search;
        print "<CENTER><TABLE WIDTH=80% BORDER=0>";

         foreach (@products_list) {

		  %tags = &get_bib_info_komis($staff_root.$this_path.'/'.$_);

           print "<TR><TD align=left><B>";
           print "<A HREF=\"$staff_url"."$this_path/$_\">" if ($user);
		   print "$tags{'name'}</A></B><BR>";
           print " $tags{'description'}";

             if ($tags{'contacts'}) {
                 print "<i>Direct Line - ",$tags{'contacts'};
             }
#			print '<BR>';
             if ($tags{'contacts'}) {
                 print "e-mail - <A HREF=MAILTO:$tags{'user_email'}>",$tags{'user_email'},'</A>';
             }

           print "</i><BR><BR></TD></TR>\n";
#          }
         }# end foreach


         print "</TABLE></CENTER><BR>";

  } else {
       print "<CENTER><TABLE WIDTH=60%>";
       print "<TR><TH ALIGN=CENTER>There are no Assignments in this folder</TH></TR>";
       print "</TABLE></CENTER>";
  }
#return;
}


sub show_staff {
#Вывод списка менеджеров
     if ($tags{'Type'} ne 'Unit') {

      if (@inc_list) {

        &staff_list(@inc_list);

      } else {     # if (@inc_list)
       print "<CENTER><TABLE WIDTH=60%>";
       print "<TR><TH ALIGN=CENTER>UNDER CONSTRUCTION - CHECK BACK SOON!</TH></TR>";
       print "</TABLE></CENTER>";
      }         # end if (@inc_list)
   } else {    # END Вывод списка менеджеров    if ($tags{'Type'} ne 'Unit') 
        
#Вывод информации о менеджере

	$ad_num = $this_path;
	$ad_num =~ s#\/##g;

    print "<center><TABLE border=0 width=80%><TR><TD>";
    print "<p><TABLE border=0>";
    print "<TR><TD vAlign=top Align=left>";
    print $tags{'description'},'</TD></TR>';
    print "<TR><TD>";

    print "<p><TABLE border=0>";
    print "<TR><TD vAlign=top><B>Contacts: </B></TD></TR><TR><TD>";
    print $tags{'contacts'},'</TD></TR>';
    print "<TR><TD ALIGN=LEFT>E-mail : 
                   <A HREF = \"mailto:$tags{'user_email'}\">$tags{'user_email'}</A></TD></TR>" if ($tags{'user_email'});
    print "</TABLE><BR>";
# Confidential Information
#	if ($user) {
#	 print "<TR bgcolor=\"#ddddc8\"><TD vAlign=top Align=left>";
#     print "&nbsp;<b>Client:</b> $tags{'client'} <br>\n",
#	 		"&nbsp;<b>City:</b> $tags{'city'} <br>\n",
#			"&nbsp;<b>Search code:</b> $tags{'search_code'} <br>\n",
#			'</TD></TR>';
#	}
    
	print "</TD></TR></TABLE>";
    }
    print "</BLOCKQUOTE>";
    print "<P ALIGN=center>";

#    if ($tags{'Type'} eq 'Group') {

# Реклама.ру

#    } elsif ($tags{'Type'} eq 'Unit') {
    
# Реклама.ру

#    }

    print "<BR><BR>";
#    print "<CENTER>Copyright (c) 2000 e-Business Solutions. All Rights Reserved";
#    print $query->end_html;
}

sub staff_menu_bar {
    print <<END_TITLE;
      <TABLE bgcolor="#FFFFFF" border="0" cellPadding="0" cellSpacing="0" align="left">
        <TR vAlign=top>
		<TD width=22 bgcolor="White">&nbsp;</TD>
END_TITLE

    if ((!@sections_list) && ($user)) {
print '<TD>';
      if ($tags{'Type'} eq 'Group') {
# In Group
print $query->startform("POST","$staff_url$this_path");
print $query->hidden('action','kom_insert');
print $query->submit('Add new');
print $query->endform;
print "or Click on the NAME<BR> to EDIT or DELETE\n";
       if (@inc_list) {
# In Group (no Empty!)
#         print "<TD width=34><A href=\"$base_url".$this_path."?action=kom_insert\">";
#         print "<IMG alt=\"New Assignment\" border=0 height=34  width=34 src=\"$images_path/add.gif\"></A></TD>";
print $query->startform("POST","$staff_url$this_path");
print $query->hidden('step','2');
print $query->hidden('Type','Group');
print $query->hidden('action','kom_edit');
       } else {
# In Group (Empty)
print $query->startform("POST","$staff_url$this_path");
print $query->hidden('step','2');
print $query->hidden('Type','Group');
print $query->hidden('action','kom_edit');
print $query->submit('mod','del');
       }

#print $query->submit('mod','edit');
print $query->endform;
print '</TD>';
      } elsif ($tags{'Type'} eq 'Unit') {
# In Unit
print $query->startform("POST","$staff_url");
print $query->submit('Return');
print $query->endform;

print $query->startform("POST","$staff_url$this_path");
print $query->hidden('step','2');
print $query->submit('mod','edit');
print "&nbsp;";
print $query->hidden('action','kom_edit');
print $query->submit('mod','del');
print $query->endform;
print '</TD>';
      }

    } elsif ($user) {
# ROOT

print '<TD>';
print $query->startform("POST","$staff_url$this_path");
print $query->hidden('step','2');
print $query->hidden('Type','Group');
print $query->hidden('action','kom_insert');
print $query->submit('Add New');
print $query->endform;
print '</TD>';
    }

    print "<TD width=22>&nbsp;</TD></TR></TABLE>";
    return;
}


#########################################
#   Процедуры Employment                #
#########################################


sub verify_list {
  local($cur_dir,$l_time) = @_;
  local($nextname,@inc_list,$level,@tmp,$tmp,$section,%cur_bib_data);
 # Чтение текущей директории и BIB.TXT в поддиректориях
    opendir(CUR_DIR,$cur_dir)||&err_handler("Can't open dir $cur_dir: $!");        
    while ($nextname = readdir(CUR_DIR)) {
      if ( (-d $cur_dir.'/'.$nextname) && ($nextname =~ /^\d+\d$/)) {
        %cur_bib_data = &get_bib_info ($cur_dir.'/'.$nextname);

# проверка объявления на давность
        if ((($cur_bib_data{'create time'}+$l_time) < time ) && ($cur_bib_data{'create time'}) && 
            ($l_time != 0)) {
           unlink($cur_dir.'/'.$nextname."/BIB.TXT") || &err_handler("Can't del file");
           rmdir($cur_dir.'/'.$nextname) || &err_handler("Can't del dir");
        } else {
           push(@inc_list, $nextname);
        }

      }                  
    }
    close(CUR_DIR);

  return @inc_list;
}

sub get_inc_link_sections {
  local($full_path,@inc_list) = @_;
  local(%tags,$tmp,@section_list,$nextname);
  foreach $nextname (@inc_list) {
    %tags = &get_bib_info($full_path.'/'.$nextname);
    $tmp = $tags{'Type'};
    if ($tmp eq 'Group') {
#      $tmp = "<A HREF=\"$base_url"."$this_path/$nextname?bag=$bag\">";
$tmp = "<A class=leftmenu HREF=\"$base_url"."$this_path/$nextname";
$tmp .= "?sort_type=$sort_type" if ($sort_type);
$tmp .= "\"\n>";

      if ($tags{'Картинка'}) {
        $tmp .= "<IMG BORDER=0 SRC=\"$doc_base_url/data\n".
	 "$this_path/$nextname/$tags{'Картинка'}\">  &nbsp;\n"
      };
      $tmp .= "$tags{'name'} &nbsp; &nbsp; &nbsp;</A>\n";
      push (@section_list,$tmp);
    }
  }
  return @section_list;
}


sub sort_by_param {
  local($sort_param,%product_list)=@_;
  local(@result_list,%param_array,@nill_param_list,$tmp,$tmp2);
  if ($sort_param eq 'rate') {
    %param_array = %product_prices;    
  }
  elsif ($sort_param eq 'job_type') {
    %param_array = %product_types;
  }
  elsif ($sort_param eq 'name') {
    %param_array = %product_list;
  }
  else {
    %param_array = %product_sort_par;
  }
  foreach $tmp (keys(%param_array)) {
    unless ($param_array{$tmp}) {
      push(@nill_param_list,$tmp);
      delete $param_array{$tmp};
    }
  }

#  foreach $tmp (sort &numeric (values (%param_array))) {
  foreach $tmp (sort (values (%param_array))) {
#  foreach $tmp (values (%param_array)) {
    foreach $tmp2 (keys(%product_list)) {
### TEST
## print "=$tmp2+$param_array{$tmp2}+$tmp";

      if ($param_array{$tmp2} eq $tmp) {
        delete $param_array{$tmp2};
        push(@result_list,$tmp2);
      }
    }
  }
  foreach $tmp (@nill_param_list) {
    push (@result_list, $tmp);
  }

  return @result_list;
}


# --------- anticuar ----------------- #
sub numeric {
  if ( ($a =~ /^\d+/) && ($b =~ /^\d+/)) {
    if ($a > $b) {return 1}
    elsif ($a < $b) {return -1}
    else { return 0 }
  }
  else {
    $aa = &translating($a);
    $bb = &translating($b);
    if ($aa gt $bb) {return 1}
    elsif ($aa lt $bb) {return -1}
    else { return 0 }
  }
}


# *) This SUB are calling from HTML template
#     Список Секций (штатов);
sub show_sections {
my($i,$lnk,@temp_list,$tmp);
#@temp_list = keys (%states);
      print " <CENTER>\n";
      print " <TABLE border=0 cellPadding=0 cellSpacing=0 width=169>\n";
#<A class=leftmenu HREF="/cgi/empl.cgi/01">TORONTO &nbsp; &nbsp; &nbsp;</A>
       for($i=1; $i <= keys (%states); $i++) {
         print " <TR>\n"," <TD align=right>";

		 if($i<10){
			 $lnk = '0'.$i;
		 } else {
			 $lnk = "$i";
		 }

		 $tmp = $states{$lnk};
         print "<A class=leftmenu HREF=\"$base_url/$lnk\">$tmp \&nbsp; \&nbsp; \&nbsp;</A>\n";
         print " </TD>\n"," </TR>\n";
       }
      print " </TABLE>\n"," <CENTER><BR>\n";
return;
}

sub show_sections_old {
local($temp_path)=@_;
local(@inc_temp_list,@temp_list);
#    print "<BLOCKQUOTE>";
#    print "<H2 align=center>Select State</h2>";

 if ($temp_path) {
 $temp_path =~ s/\/+$//;
   @inc_temp_list = &verify_list("$staff_root$temp_path",$life_time);
   @temp_list = &get_inc_link_sections($temp_path,@inc_temp_list);
 }
   @temp_list = @sections_list unless (@temp_list);

    if (@temp_list) {
      print " <CENTER>\n";
      print " <TABLE border=0 cellPadding=0 cellSpacing=0 width=169>\n";

       foreach (@temp_list) {
         print " <TR>\n"," <TD align=right>";
         print $_;
         print " </TD>\n"," </TR>\n";
       }
      print " </TABLE>\n"," <CENTER>\n";
    }
return;
}


sub get_bib_info_komis {
  local($fullname) = @_;
  local(%tags,$key,$tmp,$level,$section,@params,$i);
  open(BIB, $fullname.'/BIB.TXT')||&err_handler("Can not open bib file $fullname : $!");
  while ($tmp=<BIB>) {

    if ($tmp =~ /^%(.*)%/) {
      $key = $1;
    } else {
       chomp($tmp);
$tmp =~ s/\r//g;

       if ($tmp) {
         if (($key eq 'description') || ($key eq 'must_skils') || ($key eq 'nice_skils') || ($key eq 'contacts') || ($key eq 'other_link')) { 
            $tags{$key} .= $tmp."<BR>\n";
         } elsif (($key eq 'create time' ) || ($key eq 'rate')) { 
            $tags{'Параметры'} .= $key."###".$tmp."\n";        
            $tags{$key} .= $tmp;
         } else {
            $tags{$key} .= $tmp;
         }
       }
    }
 }#wile
  close(BIB);
  return %tags;
}

sub get_inc_link_products_komis {
  local($this_path,$sortparam,$sort_type,@inc_list) = @_;
  local(%tags,%params,$tmp,$temp,@product_list,$sort_par);
  if ($sortparam eq 'date') {$sort_par = 'create time'} 
                        else {$sort_par = $sortparam}  
  foreach $nextname (@inc_list) {
    %tags = &get_bib_info_komis($staff_root.$this_path.'/'.$nextname);
    %product_list = &get_inc_link_products(%tags);
  }
  return %product_list;
}

sub get_inc_link_products {
# То же, что и get_inc_link_products_komis, только с готовым %tags
  local(%tags) = @_;
      %params = &get_params(%tags);
    $tmp = $tags{'Type'};
#    $temp = $params{'job_type'};
    $temp = $tags{'job_type'};

    if (($tmp eq 'Unit') && ((!$sort_type) || ($sort_type eq $temp))) {
#    if ($tmp eq 'Unit'){
      $product_sort_par{$nextname} = $params{$sort_par};
      $product_dates{$nextname} = $params{'create time'};
      $product_prices{$nextname} = $params{'rate'};
# OLD #
#      $product_types{$nextname} = $tags{'job_type'};
# NEW #
      $product_types{$nextname} = $job_type{$tags{'job_type'}};
      $product_list{$nextname} = $tags{'name'};
    }
  return %product_list;
}

# Скрипты _insert и _edit

sub staff_edit {

  local ($action_name) = 'kom_edit';
  local ($path_info) = $ENV{"PATH_INFO"};

  if (($query->param('step') == 1) && ($query->param('name'))) {
      &print_headhtml(' ');
      $full_datadir_path = $staff_root.$ENV{"PATH_INFO"};
      $prod_name = $query->param('name'); 
      chdir($full_datadir_path)  || die print_err("Can not open dir",$script_reference);
      while ($dir_current = <*>) {
        if (-d $dir_current) {
           open(BIBL,$dir_current.'/BIB.TXT') || die print_err("Can not open file",$script_reference);
           while (<BIBL>) {
              chop;
              if ($_ eq '%name%') { last }
           }
           $_=<BIBL>;
           chop;
           if (/^$prod_name/i) {
               %prod_list= (%prod_list,$dir_current,$_);
           }
           close(BIBL);
        }
      }
  } elsif ($query->param('step') == 2){
      unless ($user) {
         print_err("You can not do it! <BR>Press CANCEL!",$base_url);
#         &login; # LOGIN для Администратора
      } else {
        $full_datadir_path = $staff_root.$ENV{"PATH_INFO"};
        chdir($full_datadir_path)  || die print_err("Can't open dir $! ",$script_reference);


### TEST
#&print_headhtml('Test page'); 
#print "User aproved";
# 
#    $type = $tags{'Type'};

    $type = $query->param('Type');
          if ($query->param('mod') ne 'del') { 

### TEST
#print "Type $type <BR>";
#print "Path $this_path <BR>";
#print "Local $path_info <BR>";
# 

       # Если редактируем Название города, то одна форма:
			if ($type eq 'Group') { 
			$staff_url .= $path_info;
			   %bib = &get_bib_info ($staff_root.$this_path);
			            &print_headhtml('Edit current Folder');
			            &print_addform($staff_url,$bib{'name'},'form','edit',$script_reference,'kom_insert');
       # Если редактируем Job Position, то другая форма:
			 } else {
				#   %bib = &get_bib_info_komis ($staff_root.$this_path.'/'.$ENV{"PATH_INFO"});
				   %bib = &get_bib_info_komis ($staff_root.$this_path);
				            chomp($bib{'description'});
				            &print_headhtml("Edit current Assignment ");
							print '<br>';
				            foreach $key_vol (keys %bib) { $bib{$key_vol} = &convert_bracket($bib{$key_vol},1) }
				            &print_insertform($staff_url,$bib{'name'},$bib{'description'},
				                                         $bib{'Картинка'},$bib{'user_email'},$bib{'other_link'},
				                                         $bib{'rate'},$bib{'password'},
				                                         'form',$script_mode,$script_reference,'kom_insert',
				                                         $bib{'must_skils'},$bib{'nice_skils'},$bib{'contacts'},$bib{'job_type'},$bib{'create time'});
			}
#            close(BIBL);
          } else {
# Удаление директории ->  if ($query->param('mod') eq 'del')
            close(BIBL);
            unlink("BIB.TXT") || die &print_err("Can't del file: $! ",$script_reference);
            unlink('ID');
            chdir("..") || die &print_err("Can't up to dir",$script_reference);
            @deldirs = split(/\//,$ENV{"PATH_INFO"});
            $deldir = pop(@deldirs);
            rmdir($deldir) || die &print_err("Can't del dir",$script_reference);
            @script_ref_arr = split(/\?/,$script_reference);
            $script_ref_arr[0] = substr($script_ref_arr[0],0,rindex($script_ref_arr[0],"/"));
            $script_reference = join ("?",@script_ref_arr);
#            $this_path = join("/",@deldirs);
#            &show_komis($this_path);
            print $query->redirect($script_reference);
          }
      } # unless ($user) 
  } # IF param('step') == 1 or 2
}

sub staff_insert {

  local ($action_name) = 'kom_insert';
  local (@temp1);

# Проверка Admin password
      if ($user) {

# Данные уже введены?
    if ($query->param('reference') eq 'form') {

        $full_datadir_path = $staff_root.$ENV{"PATH_INFO"};
        $full_datadir_path =~ s#\/\/#\/#;

### TEST
#&print_headhtml('TesT');
#print $full_datadir_path;
#exit;
        chdir($full_datadir_path) || die &print_err("Can't open directory $full_datadir_path: $! ", $script_reference);
#================      
        if ($query->param('reference1') eq 'ins') {
		
          &dir_verify($bib_type,$bib_type_name) || die &print_err("Yon couldn't do this $bib_type,$bib_type_name!!!", $script_reference);

# NEW Method
  opendir(CUR_DIR,$full_datadir_path);
    while ($nextname = readdir(CUR_DIR)) {
       if ((-d "$nextname")&&($nextname =~ /^\d/)) {
         $nextname =~ s/^0+//;
         @dirs=(@dirs,$nextname);
       }
    }
  close(CUR_DIR);

# OLD Method
#          while (<*>) {
#              if (-d) {
#                s/^0+//;
#                @dirs=(@dirs,$_); 
#              }
#          }

          @dirs = sort { $a<=>$b } @dirs;  
          $dir_new = 1;
          foreach (@dirs) {
              if ($dir_new == $_) { 
                  $dir_new++; 
              } else { 
                  last; 
              }
          }
          for ($i=length($dir_new); $i < $staff_dir_num; $i++) { $dir_new = "0".$dir_new; }
	  
          mkdir($dir_new,0777) || die &print_err("Cannot make dir $dir_new in:$! ", $script_reference);
          chdir($dir_new);
          open(BIBL,">./BIB.TXT") || die &print_err("Could not create file", $script_reference);
#          if ($query->param('Картинка') eq $image_def_string) {$query->delete('Картинка')};
          &save_info_into_bib_file(1);

### TEST
#&print_headhtml('TesT');
#print 'Param <br>';
#foreach $kew ($query->param){print '<'.$kew.'>';}

#!!        print "Объявление успешно добавлено !!! <BR>";
          $query->delete_all();
          @temp1 = split(/\?/,$script_reference); 
          $script_reference = $temp1[0].'/'.$dir_new;
          print $query->redirect($script_reference);
        } elsif  ($query->param('reference1') eq 'edit') { 

# Обновление редактирования
            open(BIBL,">./BIB.TXT") || die &print_err("Could not create file", $script_reference);
            &save_info_into_bib_file(0); 
#!!          print "Изменения сделанные в объявлении были приняты !!!";
            $query->delete_all();
            @temp1 = split(/\?/,$script_reference);
            $script_reference = $temp1[0]."?update=ok";
            print $query->redirect($script_reference);
        }
#================      

# ADD NEW Name of CITY:
#  } elsif ($query->param('Type') eq 'Group') {
#        &print_headhtml('Administration. New Group.');
#        &print_addform($staff_url,'','form','ins',$script_reference,$action_name);

# Добавляем новое объявление в любую группу
  } else {
        &print_headhtml('Administration. New Assignment.');
        &print_insertform($staff_url,'','',$image_def_string,'','','','',
                          'form','ins',$script_reference,$action_name);
  }
 } # end else if (password)
}

sub save_info_into_bib_file {
    local($crtime) = @_;
    local ($path_info) = $ENV{"PATH_INFO"};
    if ($path_info =~ /\/$/) { chop ($path_info)};

    unless ($type) {$type=$query->param('Type')};
    $params{'create time'} = $query->param('create time') unless ($params{'create time'});

    if ($type eq 'Unit') {
        print BIBL "%",$bib_type,"%\n";
#        print BIBL $bib_type_tovname,"\n";
        print BIBL $type,"\n";

# Обновлять ли параметр "время создания"?
        if ($crtime == 1) { 
          print BIBL "%",$bib_time,"%\n";
          print BIBL time,"\n";
        } elsif ($crtime == 0) {
          print BIBL "%",$bib_time,"%\n";
          print BIBL $params{'create time'},"\n";
#          print BIBL $query->param('create time'),"\n";
          $query->delete('Параметры')
        }

     } elsif ($type eq 'Group') {
        print BIBL "%",$bib_type,"%\n";
#        print BIBL $bib_type_name,"\n"; 
        print BIBL $type,"\n";
     } else {
        print BIBL "Wrong DATA!!! \n";
        print BIBL "%",$bib_type,"%\n";
        print BIBL $bib_type_name,"\n"; 
     }

        foreach $key ($query->param) {
          unless ($key =~ /^(repassword|reference|old_pass|komis_ref|action|Type|create time|state)/) {
            print BIBL "%",$key,"%\n";
          print BIBL &convert_bracket($query->param($key),0),"\n";                   
          }
        }
        close(BIBL);
}                          

sub dir_verify {
        local($bib_type,$bib_type_name) = @_;
        open(BIBL,"./BIB.TXT") || die &print_err("Could not open file", $script_reference);
        while (<BIBL>) {
          chomp;
          $_ =~ s/%(.*)%/$1/g;
          if ($_ eq $bib_type) { last }
        }
        $_=<BIBL>;
        chomp;
        close(BIBL);

        ($_ eq $bib_type_name)
}


sub convert_bracket {
        local($str,$direct) = @_;
        unless ($direct) {
           $str =~ s/</\&#060;/g;
           $str =~ s/>/\&#062;/g;
        } else {
           $str =~ s/\&#060;/</g;
           $str =~ s/\&#062;/>/g;                                
           $str =~ s/\&#060/</g;               
           $str =~ s/\&#062/>/g;                                
        }
        return $str;
}

# Скрипт Print_html.pl

sub print_headhtml {
    local($html_title) = @_;
    print $query->header;
	$html_title = 'Direct Marketing Resources - Focusing exclusively in the Direct Marketing industry - 
	Account Management, Database Marketing, DB Research & Analysis, Creative, Sales and Internet / 
	Interactive Marketing' unless $html_title;
    print $query->start_html(-title=>$html_title,
                                           -style=>{'src'=>$images_path.'/employ.css'},
										    -meta=>{'keywords'=>$title_keywords,
															'Web-Developer'=>'Oleg Sidorenko',
															'Reply-to'=>'sid@biz-on-line.com',
															'WEB'=>'http://www.biz-on-line.com',
															'description'=>"$title_description",
                            						        'Copyright'=>'e-Busines Solutions'},
                                           -BGCOLOR=>'#FFFFFF',
										   -topmargin=>0,
										   -leftmargin=>0);

#<BODY bgColor=#99CCFF DDDDC8  topmargin="0" leftmargin="0">
#<LINK href="IT_files/boss.css" rel=STYLESHEET type=text/css>
#           print "<center>";
#           print &get_dyn_recl('banner1');
#           print "</center><br>";### /banner
			     
}

sub print_addform {
    local($staff_url,$bib_name_def,$reference_def,$reference1_def,$reference2_def,$action_name) = @_;
    print "<CENTER>",$query->startform('POST',$staff_url),"\n";
    print "Type NEW Name of CITY:<br>\n",
          $query->textfield('name',$bib_name_def,60,60),"<p>\n";

    print $query->hidden(-name=>'action',
                      -default=>$action_name,
                      -override=>1);
    print $query->hidden('reference',$reference_def),$query->hidden('reference1',$reference1_def),
            $query->hidden('komis_ref',$script_reference);
            $query->param('Type','Group');
    print $query->hidden('Type');
    print "<table cellpadding=5><tr>
           <td>",$query->submit("",' Submit '),"</td>\n";
    print "<td>",$query->reset('Erase'),"</td>";
    print $query->endform;
    print $query->startform(-action=>''),"\n";
    print "<td>",$query->submit("",'Cancel'),"</td>\n";
    print $query->endform;
	print "</tr><tr><td colspan=\"3\"><br>If you want to add or edit Assignment<br>
	          press CANCEL and SELECT CITY first.<br><BR></td>";
    print "</tr></table></center>";
}

sub print_insertform {
    
local($staff_url,$product_def,$description_def,$image_url_def,
      $contact_email_def,$other_contact_def,$rate_def,$password_def,
      $reference_def,$reference1_def,$reference2_def,$action_name,
      $must_skils_def,$nice_skils_def,$contacts_def,$job_type_def,$create_time_def) = @_;


$description_def =~ s#<BR>##g;
$contacts_def =~ s#<BR>##g;
$other_contact_def =~ s#<BR>##g;
$refno_def =~ s#<BR>##g;
$client_def =~ s#<BR>##g;
$city_def =~ s#<BR>##g;
$search_code_def =~ s#<BR>##g;

### TEST $bib{'refno'};
## print "Type ->> ",$type;
## print "<BR>Time - >> ",$create_time_def;
## print "<BR>Type param->> ", $query->param('Type');
## print "<BR>Action ->> ",$query->param('action');

    print <<END_TITLE;

<center>
<table border=1 cellspacing=6 cellpadding=6 bgcolor="#DDDDC8">
<tr><td><p align="center"><font size=+1>Manager</font></p>
<table border="0"><tr vAlign=\"middle\"><td>
END_TITLE
    $staff_url .= $ENV{"PATH_INFO"};
    print $query->startform('POST',$staff_url),"\n";
    print " Full name: &nbsp;\n",
          $query->textfield('name',$product_def,60,60),"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\n";
	print "</td></tr></table><br>\n";
    print "Description:<br>\n",
          $query->textarea('description',$description_def,10,70),"<p>\n";

#    print "Ссылка на изображение товара:<br>\n",$query->textfield(
#                                                                     -name=>'Картинка',
#                                                                     -default=>$image_url_def,
#                                                                     -size=>52),"<p>\n";

#    print "<p>Job type: \n";

    print "Contact information:<br>\n",,$query->textarea('contacts',$contacts_def,5,36),"<p>\n";
    print "E-mail for upload Resume:<br>\n",$query->textfield('user_email',$contact_email_def,36,36),"<p>\n";

    print "Password:<br>\n",$query->textfield('password',$password_def,36,36),"<p>\n";
#    print "Повторите пароль:<br>\n",$query->password_field('repassword',$password_def,52,20),"<p>\n";

    print $query->hidden(-name=>'action',
                      -default=>$action_name,
                      -override=>1);
    print $query->hidden('reference',$reference_def),$query->hidden('reference1',$reference1_def),
            $query->hidden('komis_ref',$reference2_def);
            $query->param('Type','Unit');
    print $query->hidden('Type');
    print $query->hidden('create time',$create_time_def);
#    print $query->hidden('old_pass',$password_def) if ($reference1_def eq 'edit');
    print "</td></tr><tr><td align=\"center\">";
    print "<table cellpadding=5><tr>
           <td>",$query->submit("",' Submit '),"</td>\n";
    print "<td>",$query->reset('Erase'),"</td>";
    print $query->endform;
    print $query->startform(-action=>$reference2_def),"\n";
    print "<td>",$query->submit("",'Cancel'),"</td>\n";
    print $query->endform;
    print "</tr></table>";

    print <<END_HTML

</td></tr></table>
</BODY>
</HTML>

END_HTML

}


sub print_err {        
    local($err_mes,$script_ref) = @_;
    local($name,$referer,@del_mas);
	    &print_headhtml('Error');
    print "<blockquote><center>\n";
    print "<B><FONT COLOR=#FF0000>$err_mes</FONT></B> <p>";
    print '<table cellpadding=10><tr><td>';
    if ($query->param('reference1') eq 'edit') {
      $referer = (split(/\?/,$ENV{"HTTP_REFERER"}))[0];
      print $query->startform(-action=>$referer);
      print $query->hidden(-name=>'mod',-default=>'edit',-override=>1);
      print $query->hidden(-name=>'step',-default=>2,-override=>1);
      print $query->hidden(-name=>'p_word',-default=>$query->param('old_pass'),-override=>1);
      print $query->submit(-name=>'Back');
      print $query->hidden(-name=>'action',-default=>'kom_edit',-override=>1);
      @del_mas = ('mod','step','p_word','action');
      foreach (@del_mas) { $query->delete($_) }
  
    } else {
      print $query->startform(-action=>$ENV{"HTTP_REFERER"});
      print $query->submit(-name=>'Return');
      $query->delete('reference');

    }
    foreach $name ($query->param) {
      print $query->hidden(-name=>$name,-default=>$query->param($name));
    }
    print $query->endform;
    print '</td><td>';                                                                                   

    print $query->startform(-action=>$script_ref);
    print $query->submit(-name=>'Cancel');
    print $query->endform;
    print '</td></tr></table>';                  
#    print 'path ',$referer;
#    foreach $name ($query->param) {
#       print "$name = ",$query->param($name),"<br>";
#    }
    print "</blockquote>\n";
    print $query->end_html;
}

sub print_simple_form {
    local($desc_string,$text_field_name,$button_name,$hid_param,$hid_param1,$script_ref,$action_name) = @_;
#    local($myname);
    print "<blockquote>\n";
    print '<center><table cellpadding=5>';
    print "<tr><td align=\"center\" colspan=2>$desc_string</td></tr><tr><td valign=\"center\">";
    print $query->startform;
    if ($text_field_name eq 'name') {
       print $query->textfield($text_field_name,"",40,40),"   ";
    } else {
       print $query->password_field($text_field_name,"",40,10),"   ";
    }
    print $query->submit($button_name);
#    if ($this_path =~ m#^/komis# ) {
       print $query->hidden('step',$hid_param);                            
       print $query->hidden('mod',$hid_param1);
       print $query->hidden('komis_ref',$script_ref);
       print $query->hidden('action',$action_name);
#    } elsif ($this_path =~ m#^/guestbook# ) {
#       print $query->hidden(-name=>'gbook_ref',-default=>$script_ref,-override=>1);
#       foreach $myname ($query->param) {
#         print $query->hidden(-name=>$myname,-default=>$query->param($myname),-override=>1);
#       }
#    }
    print $query->endform;
    print '</td><td>';

    print $query->startform(-action=>$script_ref);
    print $query->submit(-name=>'Cancel');
    print $query->endform; 

    print '</td></tr></table>';                   
#    foreach $name ($query->param) {
#       print "$name = ",$query->param($name),"<br>";
#    }          
    print "</blockquote>\n";    
    print $query->end_html;
}

1;