Erste Überarbeitung "Prüfen beim Speichern, ob Dokument geändert wurde."

[mfinanz.git] / bin / mozilla / oe.pl

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index 97494cfb8347c11f951412e0111e2824c939880f..ea2cffadf766443ffdb35d75610b41ff30bd5635 100644 (file)
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -1147,6 +1147,7 @@ sub save_and_close {
   my $locale   = $main::locale;
 
   check_oe_access();
   my $locale   = $main::locale;
 
   check_oe_access();

+  $form->mtime_ischanged('oe');

 
   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 
 
   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 


@@ -1253,6 +1254,7 @@ sub save {
 
   check_oe_access();
 
 
   check_oe_access();
 

+  $form->mtime_ischanged('oe');

   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 
 
   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 
 


@@ -1404,6 +1406,8 @@ sub invoice {
 
   check_oe_access();
   check_oe_conversion_to_sales_invoice_allowed();
 
   check_oe_access();
   check_oe_conversion_to_sales_invoice_allowed();

+  $form->mtime_ischanged('oe');
+

   $main::auth->assert($form->{type} eq 'purchase_order' || $form->{type} eq 'request_quotation' ? 'vendor_invoice_edit' : 'invoice_edit');
 
   $form->{old_salesman_id} = $form->{salesman_id};
   $main::auth->assert($form->{type} eq 'purchase_order' || $form->{type} eq 'request_quotation' ? 'vendor_invoice_edit' : 'invoice_edit');
 
   $form->{old_salesman_id} = $form->{salesman_id};


@@ -1751,6 +1755,8 @@ sub purchase_order {
   my $locale   = $main::locale;
 
   check_oe_access();
   my $locale   = $main::locale;
 
   check_oe_access();

+  $form->mtime_ischanged('oe');
+

   $main::auth->assert('purchase_order_edit');
 
   $form->{sales_order_to_purchase_order} = 0;
   $main::auth->assert('purchase_order_edit');
 
   $form->{sales_order_to_purchase_order} = 0;


@@ -1789,6 +1795,7 @@ sub sales_order {
 
   check_oe_access();
   $main::auth->assert('sales_order_edit');
 
   check_oe_access();
   $main::auth->assert('sales_order_edit');

+  $form->mtime_ischanged('oe');

 
   if ($form->{type} eq "purchase_order") {
     delete($form->{ordnumber});
 
   if ($form->{type} eq "purchase_order") {
     delete($form->{ordnumber});


@@ -1878,6 +1885,8 @@ sub delivery_order {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 

+  $form->mtime_ischanged('oe');
+

   if ($form->{type} =~ /^sales/) {
     $main::auth->assert('sales_delivery_order_edit');
 
   if ($form->{type} =~ /^sales/) {
     $main::auth->assert('sales_delivery_order_edit');
 


@@ -1937,6 +1946,7 @@ sub e_mail {
 
   check_oe_access();
 
 
   check_oe_access();
 

+  $form->mtime_ischanged('oe','mail');

   $form->{print_and_save} = 1;
 
   my $saved_form = save_form();
   $form->{print_and_save} = 1;
 
   my $saved_form = save_form();