package OWN::Functions;

use strict;
use warnings;
use lib "../../lib/";
use Digest::MD5  qw(md5);

our $VERSION = '0.01';

#Konstruktor
sub new{
    my ($class) = @_;
    my $self = {};
    return bless $self,$class;
}
sub database_navigation{
	my ($self,$group) = @_;
	if($group == 1){
	  #administrator
	  my $data = (
		{
			SERVER => '1',
		 	DATENBANKLISTE => [
		 		{
		 			DATENBANK => 'HKR'
		 		},
		 		{
		 			DATENBANK => 'HKR2'
		 		}
		 	]	 		
		},
	
		{	SERVER => '2',
			DATENBANKLISTE => [
		 		{
		 			DATENBANK => 'EWO'
		 		},
		 		{
		 			DATENBANK => 'EWO2'
		 		}
		 	]
		 }
	  );
	}else{
	  #Verfahrensbetreuer
	  my $data = (
		{
			SERVER => '1',
		 	DATENBANKLISTE => [
		 		{
		 			DATENBANK => 'HKR'
		 		},
		 		{
		 			DATENBANK => 'HKR2'
		 		}
		 	]	 		
		}
	  );	
	}
	$self->{data} = @data;
	return $self->{data};
}