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.30 by yoffy, Sat Apr 10 13:53:00 2004 UTC revision 1.31 by yoffy, Sun Apr 11 10:03:34 2004 UTC
# Line 129  begin Line 129  begin
129                          if GikoSys.Is2chHost( host ) then begin                          if GikoSys.Is2chHost( host ) then begin
130                                  GikoSys.Parse2chURL( tmpURL, path, document, BBSID, BBSKey );                                  GikoSys.Parse2chURL( tmpURL, path, document, BBSID, BBSKey );
131                                  FItem := BBSs[ 0 ].FindBBSID( BBSID );                                  FItem := BBSs[ 0 ].FindBBSID( BBSID );
132                                    if FItem <> nil then
133                                            URL := FItem.URL;
134                          end;                          end;
135                          {                          {
136                          // ※作っても、追加するカテゴリが無いので激しく保留                          // ※作っても、追加するカテゴリが無いので激しく保留
# Line 206  begin Line 208  begin
208                  FItem := board.FindThreadFromURL( browsableURL );                  FItem := board.FindThreadFromURL( browsableURL );
209    
210                  if FItem = nil then begin                  if FItem = nil then begin
211                            tmpURL := URL;
212                            GikoSys.ParseURI( tmpURL, protocol, host, path, document, port, bookmark );
213                            if GikoSys.Is2chHost( host ) then begin
214                                    GikoSys.Parse2chURL( tmpURL, path, document, BBSID, BBSKey );
215                                    FItem := BBSs[ 0 ].FindThreadItem( BBSID, BBSKey + '.dat' );
216                                    if FItem <> nil then
217                                            URL := FItem.URL;
218                            end;
219                    end;
220    
221                    if FItem = nil then begin
222                          FItem := TThreadItem.Create( board.BoardPlugIn, browsableURL );                          FItem := TThreadItem.Create( board.BoardPlugIn, browsableURL );
223    
224                          FItem.Title := Title;                          FItem.Title := Title;

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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