Hallo,bin mir nicht ganz sicher, ob mein Problem hier her gehört oder in den CGI Teil aber da es sich wie es scheint um ein Problem bei der If Abfrage handelt setz ich es mal hier rein.
Folgendes:
Ich rufe über eine HTML Seite ein Perl Skript auf und gebe einen Parameter mit (Location).
Je nach Wert des Parameters soll mein Skript ein Array mit Daten füttern und diese dann in einem Template darstellen. Leider enthält mein Array immer nur die gleichen Daten nämlich die des Parameters "UB". Über den Debugger hab ich rausgefunden, dass die If-Abfrage nach dem ersten Anweisungsblock wieder verlassen wird. Ich versteh aber nicht wieso, ich kann keinen syntaktischen Fehler entdecken. Für Ratschläge wäre ich sehr dankbar!
Skriptauszug:
#!/usr/bin/perl -w
use CGI qw(param);
use HTML::Template;
# Ermitteln des Empfaengers
my $loc = param("Location");
my @r;
if ($loc=="UB") {$r[0] = "0544204";
$r[1] = "Universitaetsbibliothek";
$r[2] = "Zweigstelle Neuenheimer Feld";
$r[3] = "Heidelberg";
$r[4][5] = "Bestellung eines Zeitschriftenartikels";}
elsif ($loc=="KM") {$r[0] = "3668";
$r[1] = "Klinikum Mannheim";
$r[2] = "Bibliothek";
$r[3] = "";
$r[4][5] = "Bestellung eines Zeitschriftenartikels";}
elsif ($loc=="TH") {$r[0] = "3668";
$r[1] = "Theoretikum";
$r[2] = "Bibliothek";
$r[3] = "";
$r[4][5] = "Bestellung eines Zeitschriftenartikels";}
elsif ($loc=="FK") {$r[0] = "007247825822";
$r[1] = "Forschungszentrum Karlsruhe";
$r[2] = "Zentralbibliothek/Fernleihe";
$r[3] = "";
$r[4][5] = "Bestellung eines Zeitschriftenartikels";}
elsif ($loc=="FJ") {$r[0] = "3668";
$r[1] = "Forschungszentrum Juelich";
$r[2] = "Zentralbibliothek";
$r[3] = "";
$r[4][5] = "Bestellung eines Zeitschriftenartikels";}
print "Content-type: text/html\n\n";
my $template = HTML::Template->new(filename => './faxformular.tmpl');
$template->param(ADRESSE => $r[1]);
...
print $template->output();
Grüße Herbs
Datum: 20.02.2009-10:57
If Abfrage bleibt "hängen"
