HTML::template, Select & Vorbelegung: geht das? - #3291 (Perl/CGI)

renee

2004-08-02 10:15

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich weiß jetzt nicht, ob ich genau verstanden habe, was Du im Endeffekt haben willst. Aber ich habe mal was gemacht:
Template:

Code: (dl )

<html>
<body>

<!-- TMPL_LOOP NAME=OUTER -->
  <select name="<!-- TMPL_VAR NAME=SELNR ESCAPE=HTML -->">
  <!-- TMPL_LOOP NAME=LOOP -->
    <option <!-- TMPL_IF NAME=SEL -->selected<!-- /TMPL_IF -->><!-- TMPL_VAR NAME=ZIMMER --></option>
  <!-- /TMPL_LOOP -->
  </select>
<!-- /TMPL_LOOP -->

</body>
</html>

Skript:

Code: (dl )

#! /usr/bin/perl
use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use lib qw(./perllib);
use HTML::Template; # musst Du Dir evtl. noch installieren
 
my $cgi = CGI->new(); 
my %params = $cgi->Vars();     
print $cgi->header(-type => 'text/html');

my $template = HTML::Template->new(filename => '../booking.tmpl');

my @zimmertyp = qw(Einzelzimmer Doppelzimmer Suite Präsidentensuite);
my $loop = [];

foreach(@zimmertyp){
  my $selected = 0;
  $selected = 1 if($_ eq 'Doppelzimmer');
  push(@{$loop},{ZIMMER => $_, SEL => $selected});
}

my $outer = [];
for(1..3){
  push(@$outer,{SELNR => 'select'.$_, LOOP => $loop});
}

$template->param(OUTER => $outer);

print $template->output();

Probier es einfach mal aus, ob es das ist, was Du haben willst...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/