Index: openacs-4/packages/invoices/catalog/invoices.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/catalog/invoices.en_US.ISO-8859-1.xml,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/invoices/catalog/invoices.en_US.ISO-8859-1.xml 7 Apr 2006 13:52:19 -0000 1.31
+++ openacs-4/packages/invoices/catalog/invoices.en_US.ISO-8859-1.xml 10 Apr 2006 06:21:57 -0000 1.32
@@ -326,6 +326,7 @@
Offer reservation that will appear only on offer.
Send Offer
Send confirmation
+ Send offer again
Interne Deadline des Subprojektes
Template des Angebots
Title
Index: openacs-4/packages/invoices/www/invoice-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-ae.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/invoices/www/invoice-ae.tcl 2 Apr 2006 22:08:02 -0000 1.28
+++ openacs-4/packages/invoices/www/invoice-ae.tcl 10 Apr 2006 06:21:58 -0000 1.29
@@ -124,7 +124,7 @@
set invoice_specialities ""
}
-set context [list [list "invoice-list" "[_ invoices.iv_invoice_2]"] [list [export_vars -base invoice-add {organization_id}] "[_ invoices.iv_invoice_Add]"] $page_title]
+set context [list [list "invoice-list" "[_ invoices.iv_invoice_2]"] [list [export_vars -base invoice-list {organization_id}] "[_ invoices.iv_invoice_Add]"] $page_title]
array set container_objects [iv::util::get_default_objects -package_id $package_id]
set timestamp_format "$date_format [lc_get formbuilder_time_format]"
Index: openacs-4/packages/invoices/www/offer-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-ae.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/invoices/www/offer-ae.tcl 7 Apr 2006 13:46:37 -0000 1.23
+++ openacs-4/packages/invoices/www/offer-ae.tcl 10 Apr 2006 06:21:58 -0000 1.24
@@ -74,7 +74,7 @@
set cur_vat_percent [format "%.1f" $cur_vat_percent]
if {$mode == "edit"} {
db_1row check_invoices {}
- if {$invoice_count>0 && ![info exists send]} {
+ if {$invoice_count>0 && ![info exists send] && ![info exists send_accepted]} {
# do not allow to edit an invoiced offer
ad_return_complaint 1 "[_ invoices.iv_offer_edit_error]"
}
@@ -98,7 +98,7 @@
ad_script_abort
}
if {[info exists send]} {
- ad_returnredirect [export_vars -base offer-send {organization_id offer_id return_url}]
+ ad_returnredirect [export_vars -base offer-send {organization_id offer_id return_url {type offer}}]
ad_script_abort
}
if {[info exists send_accepted]} {
@@ -555,6 +555,7 @@
}
} else {
ad_form -extend -name iv_offer_form -form {
+ {send:text(submit) {label "[_ invoices.iv_offer_send_again]"} {value t}}
{send_accepted:text(submit) {label "[_ invoices.iv_offer_send_accepted]"} {value t}}
}
}
Index: openacs-4/packages/invoices/www/offer-send.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-send.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/invoices/www/offer-send.tcl 7 Apr 2006 13:46:37 -0000 1.19
+++ openacs-4/packages/invoices/www/offer-send.tcl 10 Apr 2006 06:21:58 -0000 1.20
@@ -6,6 +6,7 @@
} {
offer_id:integer
{return_url ""}
+ {type ""}
} -properties {
context:onevalue
page_title:onevalue
@@ -30,7 +31,7 @@
set accept_link [export_vars -base "[ad_url][ad_conn package_url]offer-accepted" {x {offer_id $offer_rev_id}}]
content::item::set_live_revision -revision_id $offer_rev_id
-if {[empty_string_p $accepted_date]} {
+if {[empty_string_p $accepted_date] || $type == "offer"} {
# send pending offer
set offer_text "#invoices.iv_offer_email#"
set subject [lang::util::localize "#invoices.iv_offer_email_subject#" $locale]