[vhffs-dev] [1200] What if we add missing files for commit 1198

[subversion@xxxxxxxxxxxxx]

Revision: 1200
Author:   beuss
Date:     2008-05-21 23:54:43 +0200 (Wed, 21 May 2008)

Log Message:
-----------
What if we add missing files for commit 1198 

Added Paths:
-----------
    trunk/vhffs-panel/admin/tag/request/list.pl
    trunk/vhffs-panel/templates/admin/tag/request/list.tmpl


Added: trunk/vhffs-panel/admin/tag/request/list.pl
===================================================================
--- trunk/vhffs-panel/admin/tag/request/list.pl	                        (rev 0)
+++ trunk/vhffs-panel/admin/tag/request/list.pl	2008-05-21 21:54:43 UTC (rev 1200)
@@ -0,0 +1,76 @@
+#!%PERL% -w
+# Copyright (c) vhffs project and its contributors
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without 
+# modification, are permitted provided that the following conditions 
+# are met:
+#
+# 1. Redistributions of source code must retain the above copyright 
+#   notice, this list of conditions and the following disclaimer.
+#2. Redistributions in binary form must reproduce the above copyright
+#   notice, this list of conditions and the following disclaimer in 
+#   the documentation and/or other materials provided with the 
+#   distribution.
+#3. Neither the name of vhffs nor the names of its contributors 
+#   may be used to endorse or promote products derived from this 
+#   software without specific prior written permission.
+#
+#THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
+#"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 
+#LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 
+#FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE 
+#COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, 
+#INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, 
+#BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
+#LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER 
+#CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN 
+# ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+
+
+use utf8;
+use POSIX qw(locale_h);
+use DateTime;
+use DateTime::Locale;
+use locale;
+use Locale::gettext;
+use CGI::Carp;
+use CGI;
+use CGI::Session;
+use Encode;
+use strict;
+
+use lib '%VHFFS_LIB_DIR%';
+use Vhffs::Main;
+use Vhffs::ObjectFactory;
+use Vhffs::Panel::Main;
+use Vhffs::Panel::Template;
+use Vhffs::Tag::Request;
+   
+my $panel = new Vhffs::Panel::Main();
+exit 0 unless $panel;
+my $session = $panel->get_session;
+exit 0 unless $session;
+my $templatedir = $panel->{'templatedir'};
+
+$panel->check_modo;
+
+my $template = new Vhffs::Panel::Template( filename => $templatedir.'/panel/admin/tag/request/list.tmpl', die_on_bad_params => 0 );
+# HTML::Template is wonderfull, I love to loop three
+# times over the same array.
+my $user = $panel->{user};
+my $loc = DateTime::Locale->load($user->get_lang);
+
+my $requests = Vhffs::Tag::Request::get_all($panel->{vhffs});
+foreach my $r (@$requests) {
+	$r->{user} = $r->get_requester->get_username;
+	$r->{object} = $r->get_tagged->get_label;
+	my $dt = DateTime->from_epoch( epoch => $r->{created}, locale => $user->get_lang);
+	$r->{created} = $dt->strftime($loc->medium_date_format().' '.$loc->long_time_format());
+}
+$template->param('REQUESTS' => $requests);
+
+$panel->build($template);
+$panel->display;

Added: trunk/vhffs-panel/templates/admin/tag/request/list.tmpl
===================================================================
--- trunk/vhffs-panel/templates/admin/tag/request/list.tmpl	                        (rev 0)
+++ trunk/vhffs-panel/templates/admin/tag/request/list.tmpl	2008-05-21 21:54:43 UTC (rev 1200)
@@ -0,0 +1,27 @@
+<h2><TMPL_I18N KEY="Tag Requests"></h2>
+<TMPL_IF NAME="REQUESTS">
+<table border="1">
+<thead>
+<tr>
+	<th><TMPL_I18N KEY="Category"></th>
+	<th><TMPL_I18N KEY="Tag"></th>
+	<th><TMPL_I18N KEY="Requester"></th>
+	<th><TMPL_I18N KEY="On object"></th>
+	<th><TMPL_I18N KEY="Date"></th>
+</tr>
+</thead>
+<tbody>
+<TMPL_LOOP NAME="REQUESTS">
+<tr>
+	<td><TMPL_VAR NAME="category_label"></td>
+	<td><TMPL_VAR NAME="tag_label"></td>
+	<td><TMPL_VAR NAME="user"></td>
+	<td><TMPL_VAR NAME="object"></td>
+	<td><TMPL_VAR NAME="created"></td>
+</tr>
+</TMPL_LOOP>
+</tbody>
+</table>
+<TMPL_ELSE>
+<p class="info"><TMPL_I18N KEY="No tag requests waiting"></p>
+</TMPL_IF>
\ No newline at end of file