Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.444 by yoffy, Wed Sep 29 04:48:08 2004 UTC revision 1.445 by yoffy, Wed Sep 29 14:03:29 2004 UTC
# Line 2878  begin Line 2878  begin
2878                          threadItem := GetActiveContent;                          threadItem := GetActiveContent;
2879                          if Pos('about:blank..', Text) = 1 then begin                          if Pos('about:blank..', Text) = 1 then begin
2880                                  wkInt := LastDelimiter( '/', threadItem.URL );                                  wkInt := LastDelimiter( '/', threadItem.URL );
2881                                  if Pos( '?', Copy( threadItem.URL, wkInt, MaxInt ) ) = 0 then                                  if Pos( '?', Copy( threadItem.URL, wkInt, MaxInt ) ) = 0 then begin
2882                                          URL := Copy( threadItem.URL, 1,  LastDelimiter( '/', threadItem.URL ) ) +                                          // Thread.URL は PATH_INFO 渡し
2883                                                  Copy( Text, LastDelimiter( '/', Text ) + 1, MaxInt )                                          URL := Copy( threadItem.URL, 1,  LastDelimiter( '/', threadItem.URL ) );
2884                                  else                                          wkInt := LastDelimiter( '/', Text );
2885                                          URL := Copy( threadItem.URL, 1,  LastDelimiter( '?', threadItem.URL ) ) +                                          if Pos( '?', Copy( Text, wkInt, MaxInt ) ) = 0 then
2886                                                  Copy( Text, LastDelimiter( '?', Text ) + 1, MaxInt )                                                  // Text も PATH_INFO 渡し
2887                                                    URL := URL + Copy( Text, LastDelimiter( '/', Text ) + 1, MaxInt )
2888                                            else
2889                                                    // Text は QUERY_STRING 渡し
2890                                                    URL := URL + Copy( Text, LastDelimiter( '?', Text ) + 1, MaxInt );
2891                                    end else begin
2892                                            // Thread.URL は QUERY_STRING 渡し
2893                                            URL := Copy( threadItem.URL, 1,  LastDelimiter( '?', threadItem.URL ) );
2894                                            wkInt := LastDelimiter( '/', Text );
2895                                            if Pos( '?', Copy( Text, wkInt, MaxInt ) ) = 0 then begin
2896                                                    // Text は PATH_INFO 渡し
2897                                                    // URL に板とキーが足らないので Text から頂戴する
2898                                                    wkInt := LastDelimiter( '/', Copy( Text, 1, wkInt - 1 ) );
2899                                                    wkInt := LastDelimiter( '/', Copy( Text, 1, wkInt - 1 ) );
2900                                                    URL := Copy( URL, 1, Length( URL ) - 1 ) + Copy( Text, wkInt, MaxInt );
2901                                            end else begin
2902                                                    // Text も QUERY_STRING 渡し
2903                                                    URL := URL + Copy( Text, LastDelimiter( '?', Text ) + 1, MaxInt )
2904                                            end;
2905                                    end;
2906                          end else begin                          end else begin
2907                                  URL := Text;                                  URL := Text;
2908                          end;                          end;

Legend:
Removed from v.1.444  
changed lines
  Added in v.1.445

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