changed color variables in pl code

var/www/explorer.dragonx.is/bin/update_blocks_redis.pl

@@ -219,29 +219,24 @@ DATA
 		$valueBalance ||= "?";
 		$from         ||= "";
 
-		my $txOutline = "rgba(255, 0, 0, 0.5)";
-		my $txBG = "rgba(255, 0, 0, 0.1)";
 		$txtype = "Mining";
 		if($zins+$zouts>0) {
 			$txtype = "Shielded";
 			if($zins==0 && $zouts>0) { $txtype = "Shielding"; }
-						$txOutline = "rgba(255, 204, 0, 0.6)";
-						$txBG = "rgba(255, 204, 0, 0.1)";
                         if($vins==0 && $vouts==1 && $zins==1 && $zouts==8){ $txtype = "Notary" }
                         if($vins==1 && $vouts==14 && $zins==0 && $zouts==0){ $txtype = "dPoW" }
 			if($vins==0 && $vouts==0){ $txtype = "Fully Shielded" }
-			$txOutline = "rgba(0, 255, 8, 0.5)";
-			$txBG = "rgba(0, 255, 8, 0.1)";
 			# this is prevented by consensus rule on HUSH mainnet
 			# but if we see it, ring the bell, lulz
 			if($zins>0 && $zouts==0) { $txtype = "De-Shielding!"; }
-			$txOutline = "rgba(255, 0, 0, 0.5)";
-			$txBG = "rgba(255, 0, 0, 0.1)";
 		}
 		#if($vouts>0) { $txtype = "DPoW"; }
 		my $stuff;
-
+		my $txOutline = "rgba(255, 0, 0, 0.5)";
+		my $txBG = "rgba(255, 0, 0, 0.1)";
 		if ($txtype eq "Mining") {
+		$txOutline = "rgba(255, 0, 0, 0.5)";
+		$txBG = "rgba(255, 0, 0, 0.1)";
 		$stuff =<<STUFF;
 
 => $to (miner)
@@ -249,13 +244,16 @@ DATA
 => $to2 (FR address)
 STUFF
 		} elsif ($txtype eq "Shielding") {
-
+				$txOutline = "rgba(255, 204, 0, 0.6)";
+				$txBG = "rgba(255, 204, 0, 0.1)";
                 $stuff =<<STUFF; 
 
 $from ($valueBalanceThird $ticker) => zs1??? (shielding)
 
 STUFF
                 } elsif ($txtype eq "Notary") {
+				$txOutline = "rgba(255, 204, 0, 0.6)";
+				$txBG = "rgba(255, 204, 0, 0.1)";
                 $stuff =<<STUFF; 
 
 zs1??? => $to3 (notary)
@@ -264,6 +262,8 @@ zs1??? => zs1??? (shielded change)
 
 STUFF
 		} elsif ($txtype eq "dPoW") {
+				$txOutline = "rgba(255, 204, 0, 0.6)";
+				$txBG = "rgba(255, 204, 0, 0.1)";
                 $stuff =<<STUFF;
 
 => $to2 (FR address)
@@ -272,7 +272,8 @@ STUFF
 
 STUFF
                 } else {
-
+				$txBG = "rgba(0, 255, 8, 0.1)";
+				$txOutline = "rgba(0, 255, 8, 0.5)";
                 $stuff =<<STUFF;
 
 $from => zs1??? (fully shielded)