ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/user.pl
(Generate patch)

Comparing kgsueme/kgsueme/user.pl (file contents):
Revision 1.17 by elmex, Tue Jun 8 23:14:41 2004 UTC vs.
Revision 1.18 by root, Wed Jun 9 06:33:26 2004 UTC

… …
49 49
50 $self->{page_record} = new Gtk2::ScrolledWindow; 50 $self->{page_record} = new Gtk2::ScrolledWindow;
51 $self->{page_record}->set_policy ("automatic", "always"); 51 $self->{page_record}->set_policy ("automatic", "always");
52 $self->{page_record}->add ($self->{record_list} = Gtk2::SimpleList->new( 52 $self->{page_record}->add ($self->{record_list} = Gtk2::SimpleList->new(
53 Time => "text", 53 Time => "text",
54 White => "text",
54 Black => "text", 55 Black => "text",
55 White => "text",
56 Size => "int", 56 Size => "int",
57 H => "int", 57 H => "int",
58 Komi => "text", 58 Komi => "text",
59 Score => "text", 59 Score => "text",
60 )); 60 ));
… …
72} 72}
73 73
74sub draw_info { 74sub draw_info {
75 my ($self, $inlay) = @_; 75 my ($self, $inlay) = @_;
76 return unless defined $self->{userinfo}; 76 return unless defined $self->{userinfo};
77 $inlay->append_text( 77 $inlay->append_text (
78 "<infoblock>" 78 "<infoblock>"
79 ."\n<leader>Realname:</leader> " . (util::toxml $self->{userinfo}{realname}) 79 . "\n<leader>Realname:</leader> " . (util::toxml $self->{userinfo}{realname})
80 ."\n<leader>Email:</leader> " . (util::toxml $self->{userinfo}{email}) 80 . "\n<leader>Email:</leader> " . (util::toxml $self->{userinfo}{email})
81 ."\n<leader>Flags:</leader> " . (util::toxml $self->{userinfo}{user}->flags_string) 81 . "\n<leader>Flags:</leader> " . (util::toxml $self->{userinfo}{user}->flags_string)
82 ."\n<leader>Rank:</leader> " . (util::toxml $self->{userinfo}{user}->rank_string) 82 . "\n<leader>Rank:</leader> " . (util::toxml $self->{userinfo}{user}->rank_string)
83 ."\n<leader>Registered:</leader> " . (util::toxml util::date_string($self->{userinfo}{regdate})) 83 . "\n<leader>Registered:</leader> " . (util::toxml util::date_string($self->{userinfo}{regdate}))
84 ."\n<leader>Last Login:</leader> " . (util::toxml util::date_string($self->{userinfo}{lastlogin})) 84 . "\n<leader>Last Login:</leader> " . (util::toxml util::date_string($self->{userinfo}{lastlogin}))
85 ."\n<leader>Comment:</leader>\n" . (util::toxml $self->{userinfo}{info}) 85 . "\n<leader>Comment:</leader>\n" . (util::toxml $self->{userinfo}{info})
86 ."\n<leader>Picture:</leader></infoblock>\n"); 86 . "\n<leader>Picture:</leader>"
87 . "</infoblock>\n"
88 );
87 if ($self->{userinfo}{user}->has_pic) { 89 if ($self->{userinfo}{user}->has_pic) {
88 $self->{app}->userpic ($self->{name}, sub { 90 $self->{app}->userpic ($self->{name}, sub {
89 if ($_[0]) {
90 $inlay->append_widget(gtk::image_from_data $_[0]); 91 $inlay->append_widget(gtk::image_from_data $_[0])
91 } 92 if $_[0];
92 }); 93 });
93 } 94 }
94} 95}
95 96
96sub join { 97sub join {
… …
115 116
116 for (@{$self->{game_record}}) { 117 for (@{$self->{game_record}}) {
117 push @{$self->{record_list}->{data}}, 118 push @{$self->{record_list}->{data}},
118 [ 119 [
119 util::date_string $_->{timestamp}, 120 util::date_string $_->{timestamp},
121 $_->{white}->as_string,
120 $_->{black}->as_string, 122 $_->{black}->as_string,
121 $_->{white}->as_string,
122 $_->size, 123 $_->size,
123 (sprintf "%.1d", $_->handicap), 124 (sprintf "%.1d", $_->handicap),
124 $_->komi, 125 $_->komi,
125 $_->score_string, 126 $_->score_string,
126 ]; 127 ];

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines