/[Arh]/lib/Arh/View.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Arh/View.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 78 by dpavlin, Sat Apr 19 21:36:07 2008 UTC revision 80 by dpavlin, Sat Apr 19 23:07:08 2008 UTC
# Line 79  template '/index.html' => page { Line 79  template '/index.html' => page {
79    
80          h1 { _("Last %1 units entered", $last) };          h1 { _("Last %1 units entered", $last) };
81    
82            div {
83                    outs _('Limit:');
84                    foreach my $new_last ( 15, 50, 100 ) {
85                            outs_raw ' ';
86                            if ( $new_last == $last ) {
87                                    b { $new_last }
88                            } else {
89                                    hyperlink(
90                                            label => $new_last,
91                                            url => '/?last=' . $new_last,
92                                    );
93                            }
94                    }
95            }
96    
97          ol {          ol {
98                  class is 'units';                  class is 'units';
99                  for ( 1 .. $last ) {                  for ( 1 .. $last ) {
100                          my $unit = $units->next || last;                          my $unit = $units->next || last;
101                          li {                          li {
102                                  outs( $unit->name, ' ' );                                  div {
103                                  hyperlink(                                          outs( $unit->name, ' ' );
104                                          label => $unit->unit_id,                                          hyperlink(
105                                          url => '/units/single?id=' . $unit->id,                                                  label => $unit->unit_id,
106                                  );                                                  url => '/unit/' . $unit->id,
107                                  span { class is 'unit details';                                          );
108                                    }
109                                    div { class is 'unit details';
110                                          outs join(', ', grep(defined($_),                                          outs join(', ', grep(defined($_),
111                                                  $unit->subcategory,                                                  $unit->subcategory,
112                                                  $unit->category->name,                                                  $unit->category->name,
Legend:
Removed from v.78  
changed lines
  Added in v.80
  ViewVC Help
Powered by ViewVC 1.1.26