diff options
| author | Jules Laplace <carbon@melanarchy.org> | 2013-12-23 18:47:59 -0600 |
|---|---|---|
| committer | Jules Laplace <carbon@melanarchy.org> | 2013-12-23 18:47:59 -0600 |
| commit | 13beba8606c26160c9f325299f7b06b4bf2eef8e (patch) | |
| tree | 0b2655b7c0cde56589e5c08339c676158b61a705 | |
| parent | c3150cb2fe6ff53c4d12fb967b27c73e15f64f28 (diff) | |
fix debug logging of ids
| -rw-r--r-- | bucky2/bin/fix-files | 2 | ||||
| -rw-r--r-- | lib/comments.pm | 1 | ||||
| -rw-r--r-- | lib/files.pm | 8 |
3 files changed, 7 insertions, 4 deletions
diff --git a/bucky2/bin/fix-files b/bucky2/bin/fix-files index 080ef78..150d6fa 100644 --- a/bucky2/bin/fix-files +++ b/bucky2/bin/fix-files @@ -4,7 +4,7 @@ use lib "../lib"; use Bucky; my $bucky = new Bucky; -my $file_list = $bucky->db->select("file", {'thread = 2833 AND id > 16186'}); +my $file_list = $bucky->db->select("file", {'thread = 2833'}); my $file_map = {}; foreach my $f (@$file_list) { $file_map->{ $f->{'filename'} } = $f->{'id'}; diff --git a/lib/comments.pm b/lib/comments.pm index 1ccd469..576155c 100644 --- a/lib/comments.pm +++ b/lib/comments.pm @@ -207,6 +207,7 @@ sub display_subcomment my $z_date = verbosedate($c->{date}); my $z_age = get_age($c->{date}); $z_age .= " ago" unless $age eq "now"; + my $z_id = $c->{id}; my $z_user = $c->{username}; my $z_profile = qq($BUCKY/profile/$z_user); my $z_comment = linebr($c->{comment}, $args->{shorturl}); diff --git a/lib/files.pm b/lib/files.pm index 71ccafa..b9a57d5 100644 --- a/lib/files.pm +++ b/lib/files.pm @@ -191,14 +191,16 @@ sub display_file my $bright = 0; $checked = check_key($cbox, $f->{id}); + print qq[<tr class="row$r">]; + if ($DEBUG) { - print qq!Displaying file $f->{id}!; + print qq!<td>\n!; + print qq!$f->{id}!; print qq! (checked)! if ($checked); - print qq!<br>\n!; + print qq!</td>\n!; } - print qq[<tr class="row$r">]; if ($cbox) { print qq!<td align="right"><input type="checkbox" name="file$f->{id}" value="$f->{id}"!; |