Index: openacs-4/packages/lab-report/www/view-lab.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report/www/view-lab.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/lab-report/www/view-lab.tcl 11 May 2006 11:11:37 -0000 1.1 +++ openacs-4/packages/lab-report/www/view-lab.tcl 12 May 2006 01:34:34 -0000 1.2 @@ -20,11 +20,18 @@ db_1row lab_details {} -db_multirow -extend {view_url} report select_reports {} { - set view_url [export_vars -url -base view-report {lab_id template_id}] +db_multirow -extend {view_url new_url report_created_p} report select_reports {} { + set view_url [export_vars -url -base view-report \ + {lab_id template_id report_id}] + set new_url [export_vars -url -base new-report {lab_id template_id}] + + set report_created_p 1 + if {$report_id == ""} { + set report_created_p 0 + } } -set title "[_ lab-report.lab_reports_for] $lab_name" +set title "$lab_name" set context [list $title] ad_return_template