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.50 by h677, Mon Dec 12 14:52:57 2005 UTC revision 1.51 by h677, Wed Feb 1 15:23:49 2006 UTC
# Line 410  begin Line 410  begin
410                                                  board := BBSsFindBoardFromBBSID( Node.Attributes[ 'bbs' ] );                                                  board := BBSsFindBoardFromBBSID( Node.Attributes[ 'bbs' ] );
411                                                  if board <> nil then                                                  if board <> nil then
412                                                          FavBoard := TFavoriteBoardItem.Create(                                                          FavBoard := TFavoriteBoardItem.Create(
413                                                                  board.URL, Node.Attributes[ 'title' ], board );                                                                  board.URL, MojuUtils.UnSanitize(Node.Attributes[ 'title' ]), board );
414                                          end else begin                                          end else begin
415                                                  FavBoard := TFavoriteBoardItem.Create(                                                  FavBoard := TFavoriteBoardItem.Create(
416                                                          Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil );                                                          Node.Attributes[ 'url' ], MojuUtils.UnSanitize(Node.Attributes[ 'title' ]), nil );
417                                          end;                                          end;
418                                          CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavBoard);                                          CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, UnSanitize(Node.Attributes['title']), FavBoard);
419                                          CurrentNode.ImageIndex := 15;                                          CurrentNode.ImageIndex := 15;
420                                          CurrentNode.SelectedIndex := 15;                                          CurrentNode.SelectedIndex := 15;
421                                  end else if Node.Attributes['favtype'] = 'thread' then begin                                  end else if Node.Attributes['favtype'] = 'thread' then begin
# Line 433  begin Line 433  begin
433                                                                  board.BoardPlugIn,                                                                  board.BoardPlugIn,
434                                  board,                                  board,
435                                                                  GikoSys.Get2chBoard2ThreadURL( board, ChangeFileExt( Node.Attributes[ 'thread' ], '' ) ) );                                                                  GikoSys.Get2chBoard2ThreadURL( board, ChangeFileExt( Node.Attributes[ 'thread' ], '' ) ) );
436                                                          threadItem.Title := Node.Attributes[ 'title' ];                                                          threadItem.Title := UnSanitize(Node.Attributes[ 'title' ]);
437                                                          board.Add( threadItem );                                                          board.Add( threadItem );
438                                                  end;                                                  end;
439                                                  FavThread := TFavoriteThreadItem.Create(                                                  FavThread := TFavoriteThreadItem.Create(
440                                                          threadItem.URL, Node.Attributes[ 'title' ], threadItem );                                                          threadItem.URL, UnSanitize(Node.Attributes[ 'title' ]), threadItem );
441                          threadItem.Free;                          threadItem.Free;
442                                          end else begin                                          end else begin
443                                                  FavThread := TFavoriteThreadItem.Create(                                                  FavThread := TFavoriteThreadItem.Create(
444                                                          Node.Attributes[ 'url' ], Node.Attributes[ 'title' ], nil );                                                          Node.Attributes[ 'url' ], UnSanitize(Node.Attributes[ 'title' ]), nil );
445                                          end;                                          end;
446                                          CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavThread);                                          CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, UnSanitize(Node.Attributes['title']), FavThread);
447                                          CurrentNode.ImageIndex := 16;                                          CurrentNode.ImageIndex := 16;
448                                          CurrentNode.SelectedIndex := 16;                                          CurrentNode.SelectedIndex := 16;
449                                  end;                                  end;
# Line 558  begin Line 558  begin
558                  end else if TObject(data) is TFavoriteBoardItem then begin                  end else if TObject(data) is TFavoriteBoardItem then begin
559                          FavBoard := TFavoriteBoardItem(data);                          FavBoard := TFavoriteBoardItem(data);
560                          s := Format('<favitem type="2ch" favtype="board" url="%s" title="%s"/>',                          s := Format('<favitem type="2ch" favtype="board" url="%s" title="%s"/>',
561                                                                          [HtmlEncode( FavBoard.URL ), HtmlEncode(Node.Text)]);                                                                          [HtmlEncode( FavBoard.URL ), HtmlEncode(MojuUtils.Sanitize(Node.Text))]);
562                          SaveList.Add(s);                          SaveList.Add(s);
563                  end else if TObject(data) is TFavoriteThreadItem then begin                  end else if TObject(data) is TFavoriteThreadItem then begin
564                          FavThread := TFavoriteThreadItem(data);                          FavThread := TFavoriteThreadItem(data);
565                          s := Format('<favitem type="2ch" favtype="thread" url="%s" title="%s"/>',                          s := Format('<favitem type="2ch" favtype="thread" url="%s" title="%s"/>',
566                                                                          [HtmlEncode( FavThread.URL ), HtmlEncode(Node.Text)]);                                                                          [HtmlEncode( FavThread.URL ), HtmlEncode(MojuUtils.Sanitize(Node.Text))]);
567                          SaveList.Add(s);                          SaveList.Add(s);
568                  end;                  end;
569                  Node := Node.getNextSibling;                  Node := Node.getNextSibling;

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

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