again

Quikpic

@@ -24,7 +24,7 @@ sub _check_user_pw {
         my $i = IO::File->new("<$file") or die "no such file $file";
         $dirs = [ map { chomp; $_; } $i->getlines ];
     }
-    my %labels = map { $_ => do { /\/([^\/]*)$/; substr($1,0,10); }} @$dirs;
+    my %labels = map { $_ => do { /\/([^\/]*)$/; $1; }} @$dirs;
     $c->stash(user => $user);
     $c->stash(dirs => [ sort {
                   $labels{$a} =~ /^\d/ && $labels{$b} !~ /^\d/ ? -1
@@ -92,7 +92,7 @@ __DATA__
 <td <%== $i==$dirindex ? 'class="selected"' : '' %> <%== sprintf('style="width:%d%%"',100/$cols) =%> >
 % my $label = $labels->{$dirs->[$i]};
 %= link_to 'index' => {dirindex => $i} => (title => "$label") => begin
-<%= $label =%>
+<%= substr($label,0,10) =%>
 % end
 </td>
 %== ($i+1) % $cols == 0 ? "</tr><tr>" : ""