sub Doc_type_header
{
  my $doc_type_header = shift;
  my $conf_docfield='./Konfigurationsdaten/20060310.DOCFIELD';
  my $conf_responsitory='./Konfigurationsdaten/20060310.REPOSITORY';

  open(DATEI, '<', $conf_docfield) or die "Fehler beim öffnen ($!)";
  my @Zeilen = <DATEI>;
  close(DATEI);

  my $old_doc;
  #Gehe Zeilen der Docfielddatei durch
  foreach (@Zeilen)
  {
   if (/([\w\$]+)\;(\d+)\;(\d+)\;/)
   {
    my $dokuart =  $1;
    my $zahl2 =  $3;
 
    if($dokuart ne $old_doc)
    {
     open(DATEI, '<', $conf_responsitory) or die "Fehler beim öffnen ($!)";
     my @Zeilen2 = <DATEI>;
     close(DATEI);

     my @tmp=();
     foreach(@Zeilen2)
     { push(@tmp,$2) if(/^$zahl2;([^;]+);([^;]+)/); }
     $doc_type_header->{$dokuart}=\@tmp;
     $old_doc = $dokuart;
    }
   }
  }
}