Revision 604

Date:
2016/10/24 18:07:34
Author:
ahitrov
Revision Log:
Strange if this pager was functioning at all for such a long time...

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/comps/inc/pages_.msn

     
    21 21 # то IE перейдет на .../../gallery.html?param=1., а NN (4.x) перейдет на
    22 22 # .../../?param=1.., следующий блок вытащит и подставит нужное имя файла.
    23 23 #
    24 if (!$href)
    25 {
    24 if (!$href) {
    26 25 $href = $r->uri();
    27 $href =~ s/\/([\w]{1,}(\.[sp]?html?))//;
    28 $href = $1;
    26 if ( $href =~ /\/(\w+\.[sp]?html?)$/ ) {
    27 $href = $1;
    28 } else {
    29 $href = '';
    30 }
    29 31 if ($href =~ /(index|default|main)$2/ ){
    30 32 $href = '';
    31 33 }
    … …  
    54 56 my $left_border;
    55 57 my $right_border;
    56 58
    57 if ($p >= $left_pushed_border)
    58 {
    59 if ($p >= $left_pushed_border) {
    59 60 $left_border = $p-$mid_position+1;
    60 61 $right_border = $left_border+$size-1;
    61 62 } else {
    62 63 $left_border = 1;
    63 64 $right_border = $size;
    64 65 }
    65 if ($right_border > $parts)
    66 {
    66 if ($right_border > $parts) {
    67 67 $left_border = $left_border-($right_border-$parts);
    68 68 $right_border = $parts;
    69 69 }
    70 70 $left_border = 1 if ($left_border < 1);
    71 71
    72
    73 72 # А не надо ли вставить [В начало]...
    74 73 if ($left_border > 1) {
    75 74 $params->{$pname} = 1;
    … …  
    77 76 }
    78 77
    79 78 # А надо ли вставить [Пред.]...
    80 if ($p > 1)
    81 {
    79 if ($p > 1) {
    82 80 $params->{$pname} = $p-1;
    83 81 push(@parts, "<a title=\"Предыдущая страница\" href=\"$href?$pname=".($p-1).(@params ? '&'.join('&', @params) : '')."\">&lt;&lt;</a>");
    84 82 }
    85 83
    86
    87 foreach my $pn ($left_border .. $right_border)
    88 {
    84 foreach my $pn ($left_border .. $right_border) {
    89 85
    90 86 $params->{$pname} = $pn;
    91 87 push @parts, ($pn == $p) ? "<b>$pn</b>" : "<a href=\"$href?$pname=$pn".(@params ? '&'.join('&', @params) : '')."\">$pn</a>";
    92 88 }
    93 89
    94 90 # А надо ли вставить [След.]...
    95 if ($p < $parts)
    96 {
    91 if ($p < $parts) {
    97 92 $params->{$pname} = $p+1;
    98 93 push(@parts, "<a title=\"Следующая страница\" href=\"$href?$pname=".($p+1).(@params ? '&'.join('&', @params) : '')."\">&gt;&gt;</a>");
    99 94 }
    … …  
    101 96
    102 97
    103 98 # А не надо ли вставить [В конец]...
    104 if ($right_border < $parts)
    105 {
    99 if ($right_border < $parts) {
    106 100 $params->{$pname} = $parts;
    107 101 $LINE .= " [<a href=\"$href?$pname=$parts".(@params ? '&'.join('&', @params) : '')."\">В конец</a>]";
    108 102 }
    109 103
    110
    111
    112 104 </%init>
    113 105 <%doc>
    114 106