[Yapcom-commit] rev 121 - in yapcom/trunk: lib/YAPC templates

[prev] [thread] [next] [lurker] [Date index for 2003/12/17]

Author: gabor
Date: 2003-12-17 18:32:24 +0200 (Wed, 17 Dec 2003)
New Revision: 121

Modified:
   yapcom/trunk/lib/YAPC/Organizer.pm
   yapcom/trunk/lib/YAPC/Talk.pm
   yapcom/trunk/templates/admin_list_proposals.tmpl
Log:
allow visitors to see list of accepted talks

Modified: yapcom/trunk/lib/YAPC/Organizer.pm
===================================================================
--- yapcom/trunk/lib/YAPC/Organizer.pm	2003-12-17 15:57:48 UTC (rev 120)
+++ yapcom/trunk/lib/YAPC/Organizer.pm	2003-12-17 16:32:24 UTC (rev 121)
@@ -26,7 +26,7 @@
 use Data::Dumper;      # for playing with debugging
 
 # list pages that require valid login to access
-my @user_pages = qw(proposal personal_info change_password
+my @user_pages = qw(proposal personal_info change_password presentations
   user_account logout list_my_proposals edit_my_proposal);
 
 # list of pages accessible to administrators only
@@ -382,11 +382,25 @@
    return $t->output;
 }
 
+sub presentations {
+   my $self = shift;
+   my $list = YAPC::Talk->retrieve_accepted;
+   $self->list_proposals(0, $list);
+}
+
 sub admin_list_proposals {
    my $self = shift;
+   my $list = YAPC::Talk->retrieve_all;
+   $self->list_proposals(1, $list);
+}
 
+sub list_proposals {  
+   my $self = shift;
+   my $admin = shift;
+   my $list = shift;
+   
    my $ar = [];
-   foreach my $p (YAPC::Talk->retrieve_all) {
+   while (my $p = $list->next) {
       push @$ar,
         {
          title    => $p->title,
@@ -394,6 +408,7 @@
          lname    => $p->user_id->lname,
          id       => $p->user_id->id,
          talk_id  => $p->id,
+	 admin    => $admin,
             cgi_path => $cgi_path,
             files_path => $files_path,
             html_path => $html_path,

Modified: yapcom/trunk/lib/YAPC/Talk.pm
===================================================================
--- yapcom/trunk/lib/YAPC/Talk.pm	2003-12-17 15:57:48 UTC (rev 120)
+++ yapcom/trunk/lib/YAPC/Talk.pm	2003-12-17 16:32:24 UTC (rev 121)
@@ -69,6 +69,9 @@
    return %passed_args;
 }
 
+sub retrieve_accepted {
+   __PACKAGE__->search(accepted => 'on');
+}
 =head2 VERSION
 
 $Id:$

Modified: yapcom/trunk/templates/admin_list_proposals.tmpl
===================================================================
--- yapcom/trunk/templates/admin_list_proposals.tmpl	2003-12-17 15:57:48 UTC (rev 120)
+++ yapcom/trunk/templates/admin_list_proposals.tmpl	2003-12-17 16:32:24 UTC (rev 121)
@@ -6,7 +6,9 @@
 <tr><td><hr></td></tr>
 <tr><td><b><a href="<TMPL_VAR NAME="cgi_path">/talk.html?id=<TMPL_VAR NAME="talk_id">"><TMPL_VAR NAME="title"></a></b></pre></td></tr>  
 <tr><td>by: <a href="<TMPL_VAR NAME="cgi_path">/person.html?id=<TMPL_VAR NAME="id">"><TMPL_VAR NAME="fname"> <TMPL_VAR NAME="lname"></a></td></tr>
+<TMPL_IF NAME="admin">
 <tr><td><a href="<TMPL_VAR NAME="cgi_path">/edit_my_proposal.html?id=<TMPL_VAR NAME="talk_id">">edit</a></td></tr>
+</TMPL_IF>
 </TMPL_LOOP>
 </table>
 </p>

• [Yapcom-commit] rev 121 - in yapcom/trunk: lib/YAPC templates svn 18:32 on 17 Dec 2003

Generated at 18:50 on 17 Dec 2003 by mariachi 0.52