Revision 604
- Date:
- 2016/10/24 18:07:34
- 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) : '')."\"><<</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) : '')."\">>></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