更新状況

refs → templates (book) → recent　"最近の更新状況"

<?doctype?> <html> <head> <title><?bookName?></title> <?endHead?></head> <body<?colorScheme?>> <?beforeButtons?><?showButtons?><?afterButtons?> <h2>最近の更新状況</h2> <?recent?> <?endBody?></body> </html>

refs → templates (page) → recentListing　"最近の更新状況のページ表示体裁"

<li><a href="<?toDefault?>"><?name?></a>　<font color=gray size=-1><?accessCount?>　<font color=black>最終更新： <?time?> &lt;<?user?>&gt;</font></font>

refs → actions (book) → recent "最近の更新状況の本体"

| testDate sortedPages item test selectedPages date return | testDate _ Date today subtractDays: 8. sortedPages _ (book pages asSortedCollection: [:x :y | (x date = y date) ifTrue: [x time > y time] ifFalse: [x date > y date]]) asOrderedCollection. item _ 1. [(test _ sortedPages at: item ifAbsent: [nil]) ifNil: [false] ifNotNil: [test date > testDate]] whileTrue: [item _ item + 1]. item _ item - 1. (item < 5) ifTrue: [(sortedPages size < 5) ifTrue: [selectedPages _ sortedPages] ifFalse: [selectedPages _ sortedPages copyFrom: 1 to: 5]] ifFalse: [(item < 30) ifTrue: [selectedPages _ sortedPages copyFrom: 1 to: item] ifFalse: [selectedPages _ sortedPages copyFrom: 1 to: 30]]. date _ nil. return _ WriteStream on: String new. selectedPages do: [:page | (date notNil and: [page date = date]) ifFalse: [ date ifNotNil: ["End Previous" return nextPutAll: '</ul>', String crlf]. date _ page date. return nextPutAll: '<h3>', page printDate, '</h3>', String crlf, '<ul>', String crlf]. return nextPutAll: (book formatPageTemplate: 'recentListing' request: request response: response shelf: shelf page: page)]. return nextPutAll: '</ul>'. "Add link to complete recent changes page if necessary" ((selectedPages size) = (sortedPages size)) ifFalse: [return nextPutAll: String crlf, '<h3>', (book formatBookTemplate: 'toCompleteChanges' request: request response: response shelf: shelf), '</h3>']. "Add link to access ranking page" return nextPutAll: String crlf, '<h3>', (book formatBookTemplate: 'toAccesses' request: request response: response shelf: shelf), '</h3>'. return contents

refs → templates (book) → toCompleteChanges　"全ページの更新状況移動用テンプレート"

<a href="<?toCompleteChanges?>">全ページの更新状況</a>

refs → template (book) → completeChanges　"全ページの更新状況テンプレート"

<?doctype?> <html> <head> <title><?bookName?></title> <?endHead?></head> <body<?colorScheme?>> <?beforeButtons?><?showButtons?><?afterButtons?> <h2>全ページの更新状況</h2> <?completeChanges?> <?endBody?></body> </html>

refs → actions (book) → completeChanges　"全ページの更新状況アクション"

| sortedPages date return | sortedPages _ (book pages asSortedCollection: [:x :y | (x date = y date) ifTrue: [x time > y time] ifFalse: [x date > y date]]) asOrderedCollection. date _ nil. return _ WriteStream on: String new. sortedPages do: [:page | (date notNil and: [page date = date]) ifFalse: [ date ifNotNil: ["End Previous" return nextPutAll: '</ul>', String crlf]. date _ page date. return nextPutAll: '<h3>', page printDate, '</h3>', String crlf, '<ul>', String crlf]. return nextPutAll: (book formatPageTemplate: 'recentListing' request: request response: response shelf: shelf page: page)]. return nextPutAll: '</ul>', String crlf. "Add link to access ranking page" return nextPutAll: String crlf, '<h3>', (book formatBookTemplate: 'toAccesses' request: request response: response shelf: shelf), '</h3>'. return contents

refs → templates (book) → toAccesses "移動用リンクのテンプレート作成"

<a href="<?toAccesses?>">アクセス状況</a>

refs → actions (book) → toAccesses "移動用アクション作成"

request referenceShelf: shelf book: book address: 'accesses'

refs → addresses (book) → accesses　"アドレス作成"

book formatBookTemplate: 'accesses' request: request response: response shelf: shelf

refs → templates (book) → accesses "テンプレート作成"

<?doctype?> <html> <head> <title><?bookName?></title> <?endHead?></head> <body<?colorScheme?>> <?beforeButtons?><?showButtons?><?afterButtons?> <h2>アクセス状況</h2> <?accesses?> <?endBody?></body> </html>

refs → actions (book) → accesses "アクション作成"

| sortedPages return pagenAccesses | pagenAccesses _ book pages collect: [ :page | {page. ExAccessCounter default atBook: book page: page}]. sortedPages _ (pagenAccesses asSortedCollection: [:x :y | x last > y last]) collect: [ :pagenAccess | pagenAccess first]. return _ WriteStream on: String new. return nextPutAll: '<ul>', String crlf. 1 to: (10 min: sortedPages size) do: [ :idx | return nextPutAll: (book formatPageTemplate: 'accessListing' request: request response: response shelf: shelf page: (sortedPages at: idx))]. return nextPutAll: '</ul>', String crlf. "Add link to complete access ranking page" sortedPages size > 10 ifTrue: [return nextPutAll: String crlf, '<h3>', (book formatBookTemplate: 'toAccessRanking' request: request response: response shelf: shelf), '</h3>']. return contents

refs → template (book) → accessListing　"表示用体裁テンプレート"

<li><a href="<?toDefault?>"><?name?></a>　<font size=-1><?accessCount?><font color=gray>　最終更新：<?date?>, <?time?> <<?user?>></font></font>

refs → template (book) → toAccessRanking　"移動用テンプレート作成"

<a href="<?toAccessRanking?>">全ページのアクセス状況</a>

refs → actions (book) → toAccessRanking　"移動用アクション作成"

request referenceShelf: shelf book: book address: 'accessRanking'

refs → addresses (book) → accessRanking　"アドレス作成"

book formatBookTemplate: 'accessRanking' request: request response: response shelf: shelf

refs → templates (book) → accessRanking　"テンプレート作成"

refs → actions (book) → accessRanking　"アクション作成"

このページを編集 (7948 bytes)

以下の 1 ページから参照されています。

Swiki 1.3 への移行に伴う 1.2 改変点再現作業のメモ　最終更新: 2006-12-26, 12:58:03 <pharm88>

This page has been visited 2419 times.