#******************************************* # MacVersion = 2.1.4 # MacDescription = Short Names # MacAuthor = multimand # MacFileName = ShortNames.gsk # MacUrl = #******************************************* $remove = Sysinfo("gsakini;TfmConfig;edtSmartConvert.Text") $TotalCount = RegExCount(";",$remove) + 1 $_Special = $d_Name $count = 1 WHILE $count <= $TotalCount $record = Extract($remove,";",$count) $from = AllTrim(Extract($record,"=",1)) $to = AllTrim(Extract($record,"=",2)) $_Special = Replace($from,$to,$_Special) $count = $count + 1 ENDWHILE $prefix = "" if $d_FavPoints >= 50 $prefix = "F" + NumToStr($d_FavPoints) + $prefix EndIf if $d_UserFlag $prefix = "¤" + $prefix EndIf if StrToBool(CustomGet("OBS")) $prefix = "OBS" + $prefix EndIf if $d_HasCorrected $prefix = "*" + $prefix EndIf if $d_Status = "T" $prefix = "D" + $prefix EndIf GOSUB name=BadCheck if $xdnfcheck=TRUE $prefix = $xdnf + $prefix EndIf If len($prefix) > 0 $prefix = $prefix + " " EndIf $_special = $prefix + $_special #msgOK msg=$_special BEGINSUB name=BadCheck $xdnf = "" $countbad = 0 $read = sqlite("sql","select lType from Logs WHERE lParent= '$d_code' order by lDate DESC limit 5") $ix = 0 WHILE $ix < 5 AND $countbad < 5 $ix = $ix + 1 $logtype = Extract($read,$_Newline,$ix) IF $logtype = "Didn't find it" $countbad = $countbad + 1 ENDIF IF $logtype = "Found it" OR $logtype = "Owner Maintenance" or $logtype = "Enable Listing" $ix = 5 ENDIF ENDWHILE IF $countbad >= 1 $xdnfcheck = TRUE beginCase case $countbad = 1 $xdnf = "!" case $countbad = 2 $xdnf = "!!" case $countbad = 3 $xdnf = "!!!" case $countbad = 4 $xdnf = "!!!!" case $countbad = 5 $xdnf = "!!!!!" endcase ELSE $xdnfcheck = FALSE ENDIF ENDSUB