Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.16 by yoffy, Fri Nov 28 02:28:38 2003 UTC revision 1.17 by yoffy, Mon Dec 1 06:19:03 2003 UTC
# Line 150  end; Line 150  end;
150    
151  function        TFavoriteThreadItem.GetItem : TThreadItem;  function        TFavoriteThreadItem.GetItem : TThreadItem;
152  var  var
153          board                           : TBoard;          board                                   : TBoard;
154          boardURL                : string;          boardURL                        : string;
155            browsableURL    : string;
156  begin  begin
157    
158          if FItem = nil then begin          if FItem = nil then begin
159                  boardURL        := GikoSys.GetThreadURL2BoardURL( URL );                  browsableURL := GikoSys.GetBrowsableThreadURL( URL );
160                    boardURL        := GikoSys.GetThreadURL2BoardURL( browsableURL );
161                  board                   := BBSsFindBoardFromURL( boardURL );                  board                   := BBSsFindBoardFromURL( boardURL );
162    
163                  if board = nil then                  if board = nil then
# Line 163  begin Line 165  begin
165                          // ※作っても、追加するカテゴリが無いので激しく保留                          // ※作っても、追加するカテゴリが無いので激しく保留
166                          //board := GikoSys.GetUnknownBoard( nil, boardURL )                          //board := GikoSys.GetUnknownBoard( nil, boardURL )
167                  else                  else
168                          FItem := board.FindThreadFromURL( URL );                          FItem := board.FindThreadFromURL( browsableURL );
169    
170                  if FItem = nil then begin                  if FItem = nil then begin
171                          FItem := TThreadItem.Create( board.BoardPlugIn, URL );                          FItem := TThreadItem.Create( board.BoardPlugIn, browsableURL );
172    
173                          FItem.Title := Title;                          FItem.Title := Title;
174                          board.Add( FItem );                          board.Add( FItem );

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26