#!/usr/bin/perl -w

# $Id: index.pl,v 1.7 2001/02/20 13:29:27 irt Exp $

use strict;

use CGI qw(:standard);
use HTML::Template;
use extra;

my $tpl;
my $sessie;

my $type;
my $mode;
my $wie;

my $q = new CGI;

$mode = param('mode') || "";

# Het publiek toegankelijke deel
if($mode eq "publiek") {
    $sessie = extra::init_sessie(10, { mode => $mode });

    # Als er nog geen sessie-id was meegegeven, is er ondertussen
    # eentje aangemaakt, dus moet ie als parameter gegeven worden
    print $q->redirect("zoeken.pl?sessid=$sessie");
    exit;
}

# Mode is hier "prive" of iets anders
$sessie = extra::init_sessie(9, {});
my %account = %extra::account;

my $dbh = extra::init_database();

$tpl = HTML::Template->new(filename => "templates/index.tmpl",
			   die_on_bad_params => 0);

if($account{type} < 10) {
    $tpl->param(INGELOGD => 1,
		LOGIN => $account{naam});
}

if($account{type} <= 0) {
  $tpl->param(MAGBEHEREN => 1);
  if($account{type} <= -1) {
      $tpl->param(SUPERBEHEERDER => 1);
  }
}

$type = $account{type};
$mode = extra::typetomode($type);
$wie = $account{id};

# Vul de template definities voor SCHOLEN
sub lijstjevanscholen {
    my $sth;
    my $result;
    my $school;
    my $naam;
    my $url;
    my @tmpldata;

    $sth = extra::database_exec($dbh, "SELECT id, naam, url FROM scholen ORDER BY naam");

    if($sth->rows) {
	$tpl->param(SCHOOL_DEF => 1);
    }

    while (($school, $naam, $url) = $sth->fetchrow_array()) {
	my %row_data;

	$row_data{SCHOOL} = $naam;
	$row_data{SESSID} = $sessie;
	$row_data{SCHOOLID} = $school;
	if(defined($url) && $url ne '') {
	    $row_data{PLAATJE} = $url;
	}
	push(@tmpldata, \%row_data);
    }
    $tpl->param(SCHOLEN => \@tmpldata);
    
    $sth->finish();
}

if($account{type} == 0) {
  $tpl->param(MAGBEHEREN => 1);
}

extra::init_pagina($q);
lijstjevanscholen();
$tpl->param(SESSID => $sessie,
            MODE     => $mode,
	     WIEID    => $wie);

print $tpl->output;
extra::exit_database($dbh);