Catch 22, populate, populate not called.

diff --git a/htdocs/cgi-bin/config.cgi b/htdocs/cgi-bin/config.cgi
index 9e98885e72b89c7eaec83f65b854177fd47efb7e..602bf16d280c8a54ffb426be4393bc2e2239c54d 100755 (executable)
--- a/htdocs/cgi-bin/config.cgi
+++ b/htdocs/cgi-bin/config.cgi
@@ -257,7 +257,7 @@ while(my @row = $dbs->fetchrow_array()) {
                    <option$s3>Earth</option>
                 </select>);
         }
-        elsif($n eq "KEEP_EXCS"){
+        elsif($n eq "KEEP_EXCS" or $n eq 'TRACK_LOGINS' or $n eq 'DEBUG'){
             my($l,$u)=("","");
             if($v == 0){
                $l = "SELECTED"
@@ -265,24 +265,12 @@ while(my @row = $dbs->fetchrow_array()) {
             else{
                $u = "SELECTED"
             }
-            $v = qq(<select id="excs" name="var$i">
-                   <option value="0" $l>Off</option>
-                   <option value="1" $u>On</option>
-                </select>);
-        }
-        elsif($n eq "DEBUG"){
-            my($l,$u)=("","");
-            if($v == 0){
-               $l = "SELECTED"
-            }
-            else{
-               $u = "SELECTED"
-            }
-            $v = qq(<select id="dbg" name="var$i">
+            $v = qq(<select id="onoff" name="var$i">
                    <option value="0" $l>Off</option>
                    <option value="1" $u>On</option>
                 </select>);
         }
+
         elsif($n ne "RELEASE_VER"){
              $v = '<input name="var'.$i.'" type="text" value="'.$v.'" size="12">';
         }
@@ -562,7 +550,6 @@ elsif ($change == 1){
 
 if($change > 1){
 
-
     my $caid  = $cgi->param('caid');
     my $canm  = $cgi->param('canm');
     my $cade  = $cgi->param('cade');
@@ -622,30 +609,30 @@ elsif($chdbfix){
         }
 
 
-       $dbs = $dbs = Settings::selectRecords($db, "SELECT rowid, ID_CAT, DATE, LOG FROM LOG WHERE $sel ORDER BY DATE;" );
+       $dbs = Settings::selectRecords($db, "SELECT rowid, ID_CAT, DATE, LOG FROM LOG WHERE $sel ORDER BY DATE;" );
        while(my @row = $dbs->fetchrow_array()) {
         my $id = $row[0];# rowid
-        my $ct  = $hshCats{$row[1]}; #ID_CAT
-        my $dt  = DateTime::Format::SQLite->parse_datetime( $row[2] );
-        my $log = $row[3];
-
-        my ( $dty, $dtf ) = $dt->ymd;
-        my $dth = $dt->hms;
-        if ( &Settings::universalDate == 1 ) {
-            $dtf = $dty;
-        }
-        else {
-            $dtf = $lang->time2str( "%d %b %Y", $dt->epoch, &Settings::timezone );
-        }
+            my $ct  = $hshCats{$row[1]}; #ID_CAT
+            my $dt  = DateTime::Format::SQLite->parse_datetime( $row[2] );
+            my $log = $row[3];
+
+            my ( $dty, $dtf ) = $dt->ymd;
+            my $dth = $dt->hms;
+            if ( &Settings::universalDate == 1 ) {
+                $dtf = $dty;
+            }
+            else {
+                $dtf = $lang->time2str( "%d %b %Y", $dt->epoch, &Settings::timezone );
+            }
 
-        $output .= qq(<tr class="r0">
-                <td width="15%">$dtf<input id="y$id" type="hidden" value="$dty"/></td>
-                <td id="t$id" width="10%" class="tbl">$dth</td>
-                <td id="v$id" class="log" width="40%">$log</td>
-                <td id="c$id" width="10%" class="tbl">$ct</td>
-                <td width="20%">
-                    <input name="chk" type="checkbox" value="$id"/>
-                </td></tr>);
+            $output .= qq(<tr class="r0">
+                    <td width="15%">$dtf<input id="y$id" type="hidden" value="$dty"/></td>
+                    <td id="t$id" width="10%" class="tbl">$dth</td>
+                    <td id="v$id" class="log" width="40%">$log</td>
+                    <td id="c$id" width="10%" class="tbl">$ct</td>
+                    <td width="20%">
+                        <input name="chk" type="checkbox" value="$id"/>
+                    </td></tr>);
        }#while
        $output .= qq(<td colspan="5" align="right">
         <button onclick="return selectAllLogs()">Select All</button>

diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi
index 6d3372af6d1d67d960a8d870160f9891eba4b20d..458979f520a68737a43007e3906d90d6388dc61d 100755 (executable)
--- a/htdocs/cgi-bin/login_ctr.cgi
+++ b/htdocs/cgi-bin/login_ctr.cgi
@@ -326,10 +326,7 @@ sub checkCreateTables {
             &Settings::configProperty($db, 200, '^REL_RENUM',$pv);
             &Settings::configProperty($db, $did>0?$did:0, 'RELEASE_VER', $RELEASE);
             &Settings::toLog($db, "Upgraded Life Log from v.$dnm to v.$RELEASE version, this is the $pv upgrade.") if $pv;
-            &populate($db);
         }
-    }
-    else{
         &populate($db);
     }
     Settings::toLog($db, "Log accessed by $alias.") if(&Settings::trackLogins);
@@ -365,13 +362,12 @@ sub populate {
     foreach my $line (@lines) {
 
                     last if ($line =~ /<MIG<>/);
-                    my @tick = split("`",$line);
 
-                     if( index( $line, '<<CONFIG<' ) == 0 ){$table_type = 0; $inData = 0;}
+                     if( index( $line, '<<CONFIG<' ) == 0 )  {$table_type = 0; $inData = 0;}
                     elsif( index( $line, '<<CAT<' ) == 0 )   {$table_type = 1; $inData = 0;}
                     elsif( index( $line, '<<LOG<' ) == 0 )   {$table_type = 2; $inData = 0;}
                     elsif( index( $line, '<<~MIG<>' ) == 0 ) {next;} #Migration is complex main.cnf might contain SQL alter statements.
-
+                    my @tick = split("`",$line);
                     if( scalar @tick  == 2 ) {
 
                         my %hsh = $tick[0] =~ m[(\S+)\s*=\s*(\S+)]g;