Als ik regel 3 print " "; weg haal wordt de routine vervoer niet uitgevoerd. Wat ik dus totaal niet snap.
Het enige wat in deze routine gebeurd is het inlezen van een form, een datum check (met Date::Manip) en data wordt naar de database geschreven.
Het enige wat in deze routine gebeurd is het inlezen van een form, een datum check (met Date::Manip) en data wordt naar de database geschreven.
code:
1
2
3
4
5
6
7
8
9
10
11
| sub make_party
{
print " ";
&Date_Init("TZ=GMT");
my $parpakket =param('pakketcode');
my $pardag =param('Dag');
my $parmaand =param('Maand');
.....
...
vervoer($userkey, $anvrnummer, $medewerker, $vervoer)
} |