###############################################################################################
#######################  DELING BEELDBANK ##############################################
###############################################################################################
$INSERT0 .= <<'EOR';
if ($sub == 1) {
	## Zorg ervoor dat de juiste (sub-)beeldbanknaam in beeld komt.
 	$TXT_HEADING1 = "Collectie Objecten";
	$TXT_NAVIGAT = "Collectie Objecten";
	$TXT_NAVIGAT2 = "Collectie Objecten";
	
	################################################################
	## Verwijderen van alle niet-object records via inhoud Veld 16 
	#################################################################
	foreach $my_number (keys(%ALL)) { 
		@my_veld = split (/\t/, $ALL{$my_number}); 
		delete ($ALL{$my_number}) if ($my_veld[16] !~ /Objecten/i);
	}
	
###########################################################################
## Voor de (sub-)beeldbank Archeologie wordt dit op gelijke wijze uitgevoerd
###########################################################################
}elsif ($sub == 2) { 	
	$TXT_HEADING1 = "Collectie Archeologie";
	$TXT_NAVIGAT = "Collectie Archeologie";
	$TXT_NAVIGAT2 = "Collectie Archeologie";
	
	################################################################
	## Verwijderen van alle niet-archeologie records via inhoud Veld 16 
	#################################################################
	foreach $my_number (keys(%ALL)) { 
		@my_veld = split (/\t/, $ALL{$my_number}); 
		delete ($ALL{$my_number}) if ($my_veld[16] !~ /Archeologie/i);
		$SOURCE =~ s|btn_menu_8|btn_active|;
	}
	
###########################################################################
## Mocht er een fout optreden dan is dit een bericht aan de bezoeker
###########################################################################
}else{
	$DUMMY .= "Er is een fout opgetreden. Verzoek om deze foutmelding aan het systeembeheer door te geven!";
}
EOR

####################################################
## Om te zorgen dat dit ook goed functioneert tijdens een testsessie dient er de 
## volgende INSERT9 te worden gehanteerd.
####################################################
$INSERT9 .= <<'EOR';
	$SOURCE =~ s|(pl\?misc=90")(>Waar)|$1 target="_blank"$2|;
if ($sub == 1) {
	$SOURCE =~ s|btn_menu_6|btn_active|;
	$SOURCE =~ s|objecten2.pl".*Link|objecten2.pl?sub=1".*Link|;
}elsif ($sub == 2) { 
	$SOURCE =~ s|btn_menu_8|btn_active|;
	$SOURCE =~ s|objecten2.pl|objecten2.pl?sub=2|;
}else{
	$DUMMY = "Foutmelding aan systeembeheer!";
}
EOR
###############################################################################################
#######################   EINDE DELING BEELDBANK ##############################################
###############################################################################################