;
close(DB);
foreach $row (@db) {
splitData($row);
if ($data{visiblity} =~ /suunnistuskoulutiedotukset/) {
push @tapahtumat, "$data{nro}|$data{'subject'}";
}
}
print "Content-type: text/html\n\n";
foreach (@tapahtumat) {
split(/\|/);
print "\n";
}
###Hajottaa datarivin data hashiin
sub splitData {
my($rivi)=@_;
my(@jou);
@jou = split(/\|/,$rivi);
$data{'nro'} = $jou[0];
$data{'c_date'} = $jou[1];
$data{'m_date'} = $jou[2];
$data{'owner'} = $jou[3];
$data{'modifier'} = $jou[4];
$data{'creator'} = $jou[5];
$data{'h_date'} = $jou[6];
$data{'subject'} = $jou[7];
$data{'state'} = $jou[8];
$data{'visiblity'} = $jou[9];
$data{'location'} = $jou[10];
$data{'happening'} = $jou[11];
$data{'referate'} = $jou[12];
}
Vanhempia juttuja:
Kuvia vuodelta 2003
Kevätkausi 2002
Kesäkausi 2001
Hipposuunnistus 2001
Oravaleiri 8.4. 2000
Oravien leiri Marjaniemessä 7.-8.9.1999
[an error occurred while processing the directive]