Changeset 1723

Timestamp:

02/23/16 18:08:11 (8 years ago)

Author:

nanardon

Message:

• 5.1.14

Files:

• tags/5.1.13 (copied) (copied from trunk)
• tags/5.1.13/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm (modified) (1 diff)
• tags/5.1.13/LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (1 diff)
• tags/5.1.13/LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm (modified) (1 diff)
• tags/5.1.14 (copied) (copied from trunk)
• tags/5.1.14/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm (modified) (1 diff)
• tags/5.1.14/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrFormsA.pm (modified) (3 diffs)
• tags/5.1.14/LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (1 diff)
• tags/5.1.14/LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm (modified) (1 diff)
• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm (modified) (1 diff)
• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrFormsA.pm (modified) (3 diffs)
• trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm (modified) (1 diff)

tags/5.1.13/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm

@@ -27 +27 @@
     /;
 
-our $VERSION = '5.1.12';
+our $VERSION = '5.1.13';
 
 # Configure the application. 

tags/5.1.13/LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -12 +12 @@
 use LATMOS::Accounts::I18N;
 
-our $VERSION = '5.1.12';
+our $VERSION = '5.1.13';
 
 =head1 NAME

tags/5.1.13/LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm

@@ -47 +47 @@
 %EXPORT_TAGS = (LOGLEVELS => [ @loglevels ]);
 
-our $VERSION = (q$Rev: 1455 $ =~ /^Rev: (\d+) /)[0];
+our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
 my %lastmessages = ();

tags/5.1.14/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm

@@ -27 +27 @@
     /;
 
-our $VERSION = '5.1.12';
+our $VERSION = '5.1.14';
 
 # Configure the application. 

tags/5.1.14/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrFormsA.pm

@@ -301 +301 @@
 sub attr_DATE {
     my ($self, $value, $name, $id) = @_;
-    
-    warn "-- $name $value";
 
     if (my $time = str2time($value)) {
@@ -309 +307 @@
         $value = $dt->dmy('/')
     }
-    warn $value;
 
     return sprintf(
@@ -339 +336 @@
         $value = $dt->dmy('/') . ' ' . $dt->hms(':')
     }
-
-    warn $value;
 
     return sprintf(

tags/5.1.14/LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -12 +12 @@
 use LATMOS::Accounts::I18N;
 
-our $VERSION = '5.1.12';
+our $VERSION = '5.1.14';
 
 =head1 NAME

tags/5.1.14/LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm

@@ -47 +47 @@
 %EXPORT_TAGS = (LOGLEVELS => [ @loglevels ]);
 
-our $VERSION = (q$Rev: 1455 $ =~ /^Rev: (\d+) /)[0];
+our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
 my %lastmessages = ();

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm

@@ -27 +27 @@
     /;
 
-our $VERSION = '5.1.12';
+our $VERSION = '5.1.14';
 
 # Configure the application. 

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/AttrFormsA.pm

@@ -301 +301 @@
 sub attr_DATE {
     my ($self, $value, $name, $id) = @_;
-    
-    warn "-- $name $value";
 
     if (my $time = str2time($value)) {
@@ -309 +307 @@
         $value = $dt->dmy('/')
     }
-    warn $value;
 
     return sprintf(
@@ -339 +336 @@
         $value = $dt->dmy('/') . ' ' . $dt->hms(':')
     }
-
-    warn $value;
 
     return sprintf(

trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -12 +12 @@
 use LATMOS::Accounts::I18N;
 
-our $VERSION = '5.1.12';
+our $VERSION = '5.1.14';
 
 =head1 NAME