Index: openacs-4/packages/project-manager/lib/search-jobid.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/Attic/search-jobid.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/project-manager/lib/search-jobid.tcl 19 Oct 2005 12:01:32 -0000 1.2
+++ openacs-4/packages/project-manager/lib/search-jobid.tcl 19 Oct 2005 19:08:07 -0000 1.3
@@ -13,31 +13,26 @@
# Expects:
# keyword
-set output ""
+set focus_message "if(this.value=='[_ project-manager.Search_jobid]')this.value='';"
+set blur_message "if(this.value=='')this.value='[_ project-manager.Search_jobid]';"
ad_form -name search_jobid -form {
{keyword:text(text)
- {label "[_ project-manager.Jobid]:"}
- {help_text "[_ project-manager.Jobid_help]"}
- {html {size 20}}
+ {html {size 20 onfocus "$focus_message" onblur "$blur_message" class search_jobid}}
+ {value "[_ project-manager.Search_jobid]"}
}
} -on_submit {
+ set match_projects [db_list_of_lists get_projects { }]
+ if { [string equal [llength $match_projects] 1] } {
+ set project_item_id [lindex [lindex $match_projects 0] 0]
+ set object_package_id [lindex [lindex $match_projects 0] 2]
- set project_item_id [db_string get_project { } -default 0]
-
- if { [string equal $project_item_id 0] } {
- set projects_list [db_list_of_lists get_projects { }]
- if { [string equal [llength $projects_list] 0] } {
- append output "Available Options:
No Match"
- } else {
- append output "Available Options:
Go |