Allow to add empty offpeak start/end time.

lib/NGCP/Panel/Controller/Billing.pm

@@ -511,11 +511,11 @@ sub peaktime_weekdays_edit :Chained('peaktime_weekdays_base') :PathPart('edit')
         params => $c->request->params,
     );
     if($form->validated) {
+        $form->values->{weekday} = $c->stash->{weekday_id};
+        $form->values->{start} = '00:00:00' unless($form->values->{start});
+        $form->values->{end} = '23:59:59' unless($form->values->{end});
         $c->stash->{'weekdays_result'}
-            ->create({
-                %{ $form->fif },
-                weekday => $c->stash->{weekday_id},
-             });
+            ->create($form->values);
     }
     
     my $delete_param = $c->request->params->{delete};

lib/NGCP/Panel/Form/BillingPeaktimeWeekdays.pm

@@ -50,10 +50,14 @@ sub validate {
 
     my $parsetime  = DateTime::Format::Strptime->new(pattern => '%T');
     my $parsetime2 = DateTime::Format::Strptime->new(pattern => '%R');
-    my $start = $parsetime->parse_datetime($self->field('start')->value)
-            || $parsetime2->parse_datetime($self->field('start')->value);
-    my $end = $parsetime->parse_datetime($self->field('end')->value)
-          || $parsetime2->parse_datetime($self->field('end')->value);
+    my $stime = $self->field('start')->value;
+    my $etime = $self->field('end')->value;
+    $stime = '00:00:00' unless($stime && length($stime));
+    $etime = '23:59:59' unless($etime && length($etime));
+    my $start = $parsetime->parse_datetime($stime)
+            || $parsetime2->parse_datetime($stime);
+    my $end = $parsetime->parse_datetime($etime)
+          || $parsetime2->parse_datetime($etime);
 
     if ($end < $start) {
         my $err_msg = 'Start time must be later than end time.';

lib/NGCP/Panel/Form/Preferences.pm

@@ -97,7 +97,6 @@ sub field_list {
         }
         $field->{label} = $meta->attribute;
         push @field_list, $field;
-        use Data::Printer; print ">>>>>>>>>>>>>>>>>>>>> pref fields:\n"; p @field_list;
     }
     
     return \@field_list;
@@ -130,10 +129,7 @@ sub create_structure {
     my $self = shift;
     my $field_list = shift;
    
-    print ">>>>>>>>>>>>> create_structure\n";
     $self->block('fields')->render_list($field_list);
-    print ">>>>>>>>>>>>> end of create_structure\n";
-    use Data::Printer; p $self;
 }
 
 1;