Author: benj
Date: Tue May 10 11:46:31 2016
New Revision: 1677
URL: http://svn.gna.org/viewcvs/gdtc?rev=1677&view=rev
Log:
Add comment to commit
Modified:
trunk/gdtc/scripts/dtcmanager
trunk/gdtc/scripts/utils.pl
Modified: trunk/gdtc/scripts/dtcmanager
URL:
http://svn.gna.org/viewcvs/gdtc/trunk/gdtc/scripts/dtcmanager?rev=1677&r1=1676&r2=1677&view=diff
==============================================================================
--- trunk/gdtc/scripts/dtcmanager (original)
+++ trunk/gdtc/scripts/dtcmanager Tue May 10 11:46:31 2016
@@ -572,7 +572,7 @@
$entry -> { 'prelevement_periodicity'} ) );
my @last_insert = &do_select ( "SELECT last_insert_id() AS id;" );
record_change ( 'added', 'subscription', 'subscription_id',
- $last_insert [ 0 ] -> { 'id' }, '', '', '' );
+ $last_insert [ 0 ] -> { 'id' }, '', '', '',
'dtcmanager reminder' );
&do_query ( sprintf ( "UPDATE membership " .
" SET renewal_date = ADDDATE('%s', INTERVAL
2 YEAR) " .
@@ -581,7 +581,8 @@
$entry -> { 'membership_id' } ) );
record_change ( 'changed', 'membership', 'membership_id',
$entry -> { 'membership_id' }, 'renewal_date',
- $entry -> { 'renewal_date' }, $entry -> {
'subscription_end_date' } );
+ $entry -> { 'renewal_date' }, $entry -> {
'subscription_end_date' },
+ 'dtcmanager reminder' );
### Envoi mail adhérent
@@ -635,7 +636,8 @@
$entry -> { 'voucher' } ) );
my @last_insert = &do_select ( "SELECT last_insert_id() AS id;" );
record_change ( 'added', 'subscription', 'subscription_id',
- $last_insert [ 0 ] -> { 'id' }, '', '', '' );
+ $last_insert [ 0 ] -> { 'id' }, '', '', '',
+ 'dtcmanager reminder' );
$entry -> { 'end_date' } =~ /^(\d+)(-.*)/;
my $end_date = $1+1 . $2;
@@ -656,7 +658,8 @@
$entry -> { 'membership_id' } ) );
record_change ( 'changed', 'membership', 'membership_id',
$entry -> { 'membership_id' }, 'renewal_date',
- $entry -> { 'renewal_date' }, $entry -> {
'subscription_end_date' } );
+ $entry -> { 'renewal_date' }, $entry -> {
'subscription_end_date' },
+ 'dtcmanager reminder' );
}
else
{
@@ -667,7 +670,8 @@
$entry -> { 'membership_id' } ) );
record_change ( 'changed', 'membership', 'membership_id',
$entry -> { 'membership_id' }, 'renewal_date',
- $entry -> { 'renewal_date' }, $entry -> {
'subscription_end_date' } );
+ $entry -> { 'renewal_date' }, $entry -> {
'subscription_end_date' },
+ 'dtcmanager reminder' );
}
Modified: trunk/gdtc/scripts/utils.pl
URL:
http://svn.gna.org/viewcvs/gdtc/trunk/gdtc/scripts/utils.pl?rev=1677&r1=1676&r2=1677&view=diff
==============================================================================
--- trunk/gdtc/scripts/utils.pl (original)
+++ trunk/gdtc/scripts/utils.pl Tue May 10 11:46:31 2016
@@ -215,7 +215,7 @@
sub record_change ()
{
- my ( $type, $table, $id_field, $id, $field, $oldval, $newval ) = @_;
+ my ( $type, $table, $id_field, $id, $field, $oldval, $newval, $comment ) =
@_;
my $user = $ENV{'USER'};
$user = 'web' if ( ! defined($user) );
@@ -224,8 +224,8 @@
$oldval =~ s/'/\\'/g; # Strip slashes.
$field =~ s/'/\\'/g; # Strip slashes.
- &do_query ( 'insert into modification
(user,type_modification,table_name,id_table,id_field,field_name,old_value,new_value)
values ('.
- "'$user', '$type', '$table', '$id_field', '$id', '$field',
'$oldval', '$newval' )");
+ &do_query ( 'insert into modification
(user,type_modification,table_name,id_table,id_field,field_name,old_value,new_value,comment)
values ('.
+ "'$user', '$type', '$table', '$id_field', '$id', '$field',
'$oldval', '$newval', '$comment' )");
}
_______________________________________________
Gdtc-commits mailing list
[email protected]
https://mail.gna.org/listinfo/gdtc-commits
