Changeset 229
- Timestamp:
- 07/31/08 08:46:10
- Files:
-
- obskml/trunk/QAQC/GenPlatformUptimeWebpage.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
obskml/trunk/QAQC/GenPlatformUptimeWebpage.pl
r199 r229 13 13 ############################################################################################################################## 14 14 #Revisions 15 #Rev: 1.3.0.0 16 # Changes: Added code to break out the url in the sensor data column, if there is one, and form an HREF. Opens a new tab/browser 17 # when the link is clicked. 18 # 15 19 #Rev: 1.2.0.0 16 20 #Author: DWR … … 131 135 { 132 136 my $strColumn = shift(@Columns); 137 133 138 #my $rgbColor = RGB_DEFAULT; 134 139 my $strBGColorID = "RGB_DEFAULT"; 135 140 if( $iCnt >= 3 ) 136 141 { 137 if( $strColumn >= 90.0 ) 142 #DWR v1.3.0.0 143 #Break out the url, if there is one, for the sensor query 144 my @ColData = split(/;/,$strColumn); 145 my $strVal = @ColData[0]; 146 my $strURL = @ColData[1]; 147 #Now format an HREF 148 $strColumn = "<A HREF=\"$strURL\" target=\"new\">$strVal</A>"; 149 150 if( $strVal >= 90.0 ) 151 #if( $strColumn >= 90.0 ) 138 152 { 139 153 #$rgbColor = RGB_90THPERCENTILE; 140 154 $strBGColorID = "RGB_90THPERCENTILE"; 141 155 } 142 elsif( $strColumn >= 70.0 ) 156 elsif( $strVal >= 70.0 ) 157 #elsif( $strColumn >= 70.0 ) 143 158 { 144 159 #$rgbColor = RGB_70THPERCENTILE; … … 150 165 $strBGColorID = "RGB_UNDER70TH"; 151 166 } 167 152 168 } 153 169 # First 3 columns are platform, url, and date.
