From 68d66b006656ed90e08187a2d5ceb95b08e4f279 Mon Sep 17 00:00:00 2001
From: yorhel <yorhel@1fe2e327-d9db-4752-bcf7-ef0cb4a1748b>
Date: Wed, 30 Jul 2008 12:48:19 +0000
Subject: Auto-expand edit summary form when adding a release, and forgot to
 upload tpl/rlist

git-svn-id: svn://vndb.org/vndb@76 1fe2e327-d9db-4752-bcf7-ef0cb4a1748b
---
 data/tpl/rlist       | 89 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 lib/ChangeLog        |  1 +
 lib/VNDB/Releases.pm |  2 +-
 3 files changed, 91 insertions(+), 1 deletion(-)
 create mode 100644 data/tpl/rlist

diff --git a/data/tpl/rlist b/data/tpl/rlist
new file mode 100644
index 00000000..f586a92b
--- /dev/null
+++ b/data/tpl/rlist
@@ -0,0 +1,89 @@
+[[= ttabs('u', $d{user}, 'list') ]]
+<h2>[[: $p{PageTitle} ]]</h2>
+
+[[
+  my $url = '/u'.$d{user}{id}.'/list';
+  my $surl = sprintf '%s?s=%s;o=%s', $url, $d{order}[0], $d{order}[1];  # main URL + order
+  my $purl = "$surl;c=$d{char}"; # full URL - page
+  my $sourl = "$url?c=$d{char}"; # full URL - page & order
+  my $curl = $surl; # full URL - character & page
+  my $furl = "$surl;c=$d{char};p=$d{page}";   # full URL
+
+  my $i=0;my $j=0;
+
+]]-
+
+<p class="chr">
+ -[[= $d{char} ne 'all' ? '<a href="'.$curl.';c=all">all</a>' : 'all' ]]- |
+ [[ for('a'..'z', 0) { ]]-
+ -[[ if($d{char} eq $_) { ]][[= $_?$_:'#' ]][[ } else { ]]<a href="[[= $curl.';c='.$_ ]]">[[= $_?$_:'#' ]]</a>[[ } ]]
+ [[ } ]]-
+ <br /><br />
+</p>
+
+
+-[[ if(@{$d{list}}) { ]]
+[[= pagebut($surl) ]]
+[[ if($d{user}{username} eq $p{AuthUsername}) { ]]
+<form method="post" action="[[= $furl ]]" class="tblf">
+[[ } ]]-
+<table id="rli">
+ <thead><tr>
+  <td colspan="4" class="tc1">Title -[[= sortbut($sourl, 'title') ]]</td>
+  <td class="tc2" id="relhidpar"><b id="relhidparb">&#9656;</b>Releases*</td>
+  <td class="tc3">Vote -[[= sortbut($sourl, 'vote') ]]</td>
+ </tr></thead>
+[[ for (@{$d{list}}) { $j=0; my $c = ' style="background-color: #'.($i++%2?'fff':'f5f5f5').'"'; ]]-
+ <tr[[=$c]]>
+  <td colspan="4" class="tc1"><a href="/v[[= $_->{vid} ]]" title="[[: $_->{title} ]]">[[= shorten $_->{title}, 50 ]]</a></td>
+  <td class="tc2[[= @{$_->{rels}} ? ' relhid" id="rh'.$_->{vid}.'"' : ' relnone"' ]]><b[[= @{$_->{rels}} ? ' id="rhd'.$_->{vid}.'"' : '' ]]>&#9656;</b>
+   [[= grep $_->{rstat}==2, @{$_->{rels}} ]]/[[= grep $_->{vstat}==2, @{$_->{rels}} ]]/[[= @{$_->{rels}} ]]
+  </td>
+  <td class="tc3">[[= $_->{vote} || '-' ]]</td>
+ </tr>
+ [[ for (@{$_->{rels}}) { ]]-
+ <tr class="relhid" id="rr[[= $_->{vid}.'-'.++$j ]]">
+  <td class="tc1_1">[[= datestr $_->{released} ]]</td>
+  <td class="tc1_2">
+   <acronym class="icons lang -[[= $_->{language} ]]" title="[[: $$VNDB::LANG{$_->{language}} ]]">&nbsp;</acronym><acronym
+    title="[[= $VNDB::RTYP->[$_->{type}] ]]- release" class="icons -[[= lc substr($VNDB::RTYP->[$_->{type}],0,3) ]]">&nbsp;</acronym>
+  </td>
+  <td class="tc1_3"><a href="/r[[= $_->{rid} ]]" title="[[: $_->{original} ]]">[[= shorten $_->{title}, 60 ]]</a></td>
+  <td class="tc1_4">[[: $VNDB::RSTAT->[$_->{rstat}] ]]</td>
+  <td class="tc1_5">[[: $VNDB::VSTAT->[$_->{vstat}] ]]</td>
+  <td class="tc1_6">[[ if($d{user}{username} eq $p{AuthUsername}) { ]]<input type="checkbox" name="rsel" value="[[= $_->{rid} ]]" />[[ } else { ]]&nbsp;[[ } ]]</td>
+ </tr>
+ [[ } ]]
+[[ } ]]-
+</table>
+[[ if($d{user}{username} eq $p{AuthUsername}) { ]]
+<select id="vnlistchange" name="vnlistchange" class="right">
+ <option value="n">- with selected -</option>
+ <option value="d">Delete</option>
+ <!--<option value="-2">Update personal note</option>-->
+ <optgroup label="Update release status:">
+ [[ for (0..$#$VNDB::RSTAT) { ]]-
+  <option value="r[[= $_ ]]">[[: $VNDB::RSTAT->[$_] ]]</option>
+ [[ } ]]
+ </optgroup>
+ <optgroup label="Update play status:">
+ [[ for (0..$#$VNDB::VSTAT) { ]]-
+  <option value="v[[= $_ ]]">[[: $VNDB::VSTAT->[$_] ]]</option>
+ [[ } ]]
+ </optgroup>
+</select>
+</form>
+[[ } ]]
+[[= pagebut($surl) ]]
+<p>
+ <br />
+ <b>*</b> Obtained/finished/total.
+</p>
+
+
+
+[[ } else { ]]-
+<p>
+ No results found.
+</p>
+[[ } ]]
diff --git a/lib/ChangeLog b/lib/ChangeLog
index f14c0edd..75e5cf19 100644
--- a/lib/ChangeLog
+++ b/lib/ChangeLog
@@ -21,6 +21,7 @@ TODO:
 	- Merged user vote list into the new release list (and removed 'hide my
 	  votes' option)
 	- Merged Votes.pm into VNLists.pm
+	- Auto-expand edit summary form when adding a release
 
 1.19 - 2008-07-08 (r62)
 	- Integrated discussion board
diff --git a/lib/VNDB/Releases.pm b/lib/VNDB/Releases.pm
index de598276..d36a2d2d 100644
--- a/lib/VNDB/Releases.pm
+++ b/lib/VNDB/Releases.pm
@@ -133,7 +133,7 @@ sub REdit {
   }
 
   $self->AddHid($frm);
-  $frm->{_hid} = {map{$_=>1} qw| info pnm prod |}
+  $frm->{_hid} = {map{$_=>1} qw| info pnm prod com |}
     if !$frm->{_hid} && !$rid;
   $self->ResAddTpl(redit => {
     form => $frm,
-- 
cgit v1.2.1