Index: openacs-4/packages/invoices/www/price-list-choose.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/price-list-choose.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/invoices/www/price-list-choose.tcl	4 Aug 2006 15:25:02 -0000	1.1
+++ openacs-4/packages/invoices/www/price-list-choose.tcl	10 Aug 2006 07:34:07 -0000	1.2
@@ -40,7 +40,7 @@
 	-elements {
 	    title {
 		label {[_ invoices.iv_price_list_1]}
-		display_template {<a href="@iv_pricelist_list.list_url@">@iv_pricelist_list.title@</a>}
+		display_template {<a href="@iv_pricelist_list.list_url@">@iv_pricelist_list.title;noquote@</a>}
 	    }
 	    action {
 		display_template {<a href="/invoices/price-list-choose?organization_id=$organization_id&price_list_id=@iv_pricelist_list.list_id@">\#invoices.ok\#</a>} 
@@ -51,6 +51,9 @@
 
     db_multirow -extend {list_url} iv_pricelist_list iv_pricelist_list {} {
 	set list_url [export_vars -base "price-list" {list_id organization_id}]
+	if {$list_id == [parameter::get -parameter "DefaultPriceListID" -default ""]} {
+	    append title "<font color=red> *</font>"
+	}
     }