Thread HTC und Loops in Loops (10 answers)
Opened by MartinR at 2007-07-23 13:22

renee
 2007-07-23 14:33
#407 #407
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das ist doch übersichtlich:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#!/usr/bin/perl

use strict;
use warnings;
use Data::Tabulate;
use Data::Dumper;
use Date::Calc qw(Day_of_Week Days_in_Month);
use HTML::Template::Compiled;

my $month = 2;
my $year  = 2007;

# nicht jeder monat faengt mit Montag an
my $dow   = Day_of_Week( $year, $month, 1 );
$dow = 7 if $dow == 1;
$dow--;
my @array = (' ') x $dow;

# bearbeite die tage
my @tage;
for( @array, 1 .. Days_in_Month($year,$month) ){
    push @tage, {
        TAGESZAHL => $_,
        CSS       => 'irgendein_css',
        #...
    };
}

# teile in wochen auf
my $tab = Data::Tabulate->new();
$tab->min_columns(7);
$tab->max_columns(7);
my @wochen = map{ {WOCHE => $_} }$tab->tabulate(@tage);

# template processing
my $template = HTML::Template::Compiled->new( filehandle => *DATA );
$template->param( ALLEWOCHEN => \@wochen );
print $template->output;


__DATA__
<table>
    <TMPL_LOOP NAME=ALLEWOCHEN>
    <tr>
        <TMPL_LOOP NAME=WOCHE>
        <td class="<TMPL_VAR NAME=CSS ESCAPE=HTML>"><TMPL_VAR NAME=TAGESZAHL></td>
        </TMPL_LOOP>
    </tr>
    </TMPL_LOOP>
</table>
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/

View full thread HTC und Loops in Loops