Index: openacs-4/packages/bug-tracker/www/bug.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug.adp,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/bug-tracker/www/bug.adp 13 Oct 2003 19:33:22 -0000 1.10
+++ openacs-4/packages/bug-tracker/www/bug.adp 13 Oct 2003 19:52:48 -0000 1.11
@@ -6,9 +6,8 @@
Index: openacs-4/packages/bug-tracker/www/bug.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/bug-tracker/www/bug.tcl 13 Oct 2003 19:37:12 -0000 1.23
+++ openacs-4/packages/bug-tracker/www/bug.tcl 13 Oct 2003 19:52:48 -0000 1.24
@@ -365,6 +365,8 @@
set filter_bug_numbers [bug_tracker::bug::get_bug_numbers]
set filter_bug_index [lsearch -exact $filter_bug_numbers $bug_number]
+ set first_url {}
+ set last_url {}
set prev_url {}
set next_url {}
@@ -379,27 +381,47 @@
set filter_bug_index [lsearch -exact $filter_bug_numbers $bug_number]
if { $filter_bug_index > 0 } {
+ set first_bug_number [lindex $filter_bug_numbers 0]
+ set first_url [export_vars -base bug -entire_form -override { { bug_number $first_bug_number } }]
set prev_bug_number [lindex $filter_bug_numbers [expr $filter_bug_index -1]]
set prev_url [export_vars -base bug -entire_form -override { { bug_number $prev_bug_number } }]
}
if { $filter_bug_index < [expr [llength $filter_bug_numbers]-1] } {
set next_bug_number [lindex $filter_bug_numbers [expr $filter_bug_index +1]]
set next_url [export_vars -base bug -entire_form -override { { bug_number $next_bug_number } }]
+ set last_bug_number [lindex $filter_bug_numbers end]
+ set last_url [export_vars -base bug -entire_form -override { { bug_number $last_bug_number } }]
}
- multirow create navlinks url label
+ multirow create navlinks url img alt label
if { $filter_bug_index != -1 } {
multirow append navlinks \
+ $first_url \
+ "/resources/acs-subsite/stock_first-16.png" \
+ "First"
+
+ multirow append navlinks \
$prev_url \
- {}
+ "/resources/acs-subsite/stock_left-16.png" \
+ "Previous"
- multirow append navlinks "" "[expr $filter_bug_index+1] of [llength $filter_bug_numbers]"
+ multirow append navlinks \
+ {} \
+ {} \
+ {} \
+ "[expr $filter_bug_index+1] of [llength $filter_bug_numbers]"
multirow append navlinks \
$next_url \
- {}
+ "/resources/acs-subsite/stock_right-16.png" \
+ "Next"
+
+ multirow append navlinks \
+ $last_url \
+ "/resources/acs-subsite/stock_last-16.png" \
+ Last
}
}
}