Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoSystem.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 4036 |
p : integer; |
p : integer; |
| 4037 |
BNum, BMark : string; |
BNum, BMark : string; |
| 4038 |
begin |
begin |
| 4039 |
p := AnsiPos('BE:', AID); |
p := AnsiPos('BE:', AnsiUpperCase(AID)); |
| 4040 |
if p > 0 then begin |
if p > 0 then begin |
| 4041 |
BNum := Copy(AID, p+3, Length(AID)); |
BNum := Copy(AID, p+3, Length(AID)); |
| 4042 |
AID := Copy(AID, 1, p - 1); |
AID := Copy(AID, 1, p - 1); |
| 4043 |
p := AnsiPos('-', BNum); |
p := AnsiPos('-', BNum); |
| 4044 |
if p > 0 then begin |
if p > 0 then begin |
| 4045 |
BMark := Copy(BNum, p + 1, Length(BNum)); |
BMark := '?' + Trim(Copy(BNum, p + 1, Length(BNum))); |
| 4046 |
BNum := Copy(BNum, 1, p - 1); |
BNum := Copy(BNum, 1, p - 1); |
| 4047 |
end; |
end; |
| 4048 |
BNum := Trim(BNum); |
BNum := Trim(BNum); |
|
BMark := Trim(BMark); |
|
|
if BMark = '' then BMark := '?'; |
|
| 4049 |
Result := AID + ' <a href="' + BE_PHP_URL |
Result := AID + ' <a href="' + BE_PHP_URL |
| 4050 |
+ BNum + '&u=d:' + AURL + IntToStr(ANum) |
+ BNum + '&u=d:' + AURL + IntToStr(ANum) |
| 4051 |
+ '" target=_blank>' + BMark + '</a>'; |
+ '" target=_blank>' + BMark + '</a>'; |
|
|
Legend:
| Removed from v.1.182 |
|
| changed lines |
| |
Added in v.1.183 |
|
|
| |