From 555b7aa5a63aa631a963b4cb6196d41d650bc605 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Wed, 19 Jan 2011 20:41:09 -0500
Subject: added refresh control link

Ignore-this: 49471725aeff6a76775acb33ef2813ea

darcs-hash:20110120014109-067c0-2410a582fdbc60d7f1e170d4a1dd3e8d4f779008.gz
---
 GradeBook.tcl | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'GradeBook.tcl')

diff --git a/GradeBook.tcl b/GradeBook.tcl
index 921da17..5934399 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -593,13 +593,11 @@ proc ShowControls { permission_list user } {
 	global script_name
 	dbg "outputing contol list"
 	puts "<div class=\"controls\">"
-	set action_list [ list  addcolumnrequest "Add Column" ]
-	set separator {}
+	set action_list [ list  defaultview "Refresh" addcolumnrequest "Add Column"  ]
+	set separator { }
 	foreach {act act_label} $action_list {
-		if { [info exist permission($act) ] } {
-			if { $permission($act) } {
-				puts -nonewline "$separator<a href=$script_name?action=$act>$act_label</a>"
-			}
+		if { [isActionGranted $act $permission_list $user] } {
+			puts -nonewline "$separator<span class=\"controls\"><a href=$script_name?action=$act>$act_label</a></span>"
 		} 
 	}
 	puts "</div>"	
-- 
cgit v1.2.3