[Cpan-forum-commit] rev 130 - in trunk: lib/CPAN templates

[svn at pti.co.il]

Author: gabor
Date: 2005-03-22 15:36:06 +0200 (Tue, 22 Mar 2005)
New Revision: 130

Modified:
   trunk/lib/CPAN/Forum.pm
   trunk/templates/admin.tmpl
   trunk/templates/internal_error.tmpl
   trunk/templates/search.tmpl
Log:
administrator should be able to add new groups

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2005-03-22 12:59:23 UTC (rev 129)
+++ trunk/lib/CPAN/Forum.pm	2005-03-22 13:36:06 UTC (rev 130)
@@ -593,6 +593,7 @@
 			admin_process
 			admin_edit_user
 			admin_edit_user_process
+			add_new_group
 			response_form 
 			module_search
 			selfconfig change_password change_info update_subscription); 
@@ -887,8 +888,10 @@
 					password => $q->param('password'),
 			});
 	if (not $user) {
+		$self->log->debug("No user found");
 		return $self->login({bad_login => 1});
 	}
+	$self->log->debug("Username: " . $user->username);
 
 	my $session = $self->session;
 	$session->param(admin     => 0); # make sure it is clean
@@ -1942,6 +1945,30 @@
 	$t->output;
 }
 
+sub add_new_group {
+	my ($self) = @_;
+	if (not $self->session->param("admin")) {
+		return $self->internal_error("", "restricted_area");
+	}
+	my $q = $self->query;
+	my $group_name = $q->param("group");
+	$self->log->debug("Adding group with name: '$group_name'");
+	my $group = eval {
+			CPAN::Forum::Groups->create({
+				name  => $group_name,
+				gtype => 3,
+				});
+			};
+	if ($@) {
+		$self->log->debug("Failed to add group with name: '$group_name'");
+		return $self->internal_error("", "failed_to_add_group");
+	}
+
+	my $t = $self->load_tmpl("admin.tmpl");
+	$t->param(updated => 1);
+	$t->output;
+}
+
 sub admin_edit_user_process {
 	my ($self) = @_;
 	if (not $self->session->param("admin")) {

Modified: trunk/templates/admin.tmpl
===================================================================
--- trunk/templates/admin.tmpl	2005-03-22 12:59:23 UTC (rev 129)
+++ trunk/templates/admin.tmpl	2005-03-22 13:36:06 UTC (rev 130)
@@ -2,13 +2,31 @@
 <p id="pageTitle">Admin interface</p>
 
 <TMPL_INCLUDE NAME="navigation.tmpl">
+<TMPL_INCLUDE NAME="search_form.tmpl">
 
 <TMPL_IF updated>
-Data updated. <a href="/admin/">look it again</a>
+Data updated. <a href="/admin/">look at it again</a>
 <TMPL_ELSE>
 
+<hr />
 <form method="POST" action="/admin/">
 <p>
+<input type="hidden" name="rm" value="add_new_group" />
+</p>
+<table>
+<tr><td>Group name:</td><td><input name="group" value="" size="50"></td></tr>
+</table>
+<p>
+<input type="submit" value="Add new group" />
+</p>
+</form>
+
+
+<hr />
+
+
+<form method="POST" action="/admin/">
+<p>
 <input type="hidden" name="rm" value="admin_process" />
 </p>
 <table>

Modified: trunk/templates/internal_error.tmpl
===================================================================
--- trunk/templates/internal_error.tmpl	2005-03-22 12:59:23 UTC (rev 129)
+++ trunk/templates/internal_error.tmpl	2005-03-22 13:36:06 UTC (rev 130)
@@ -24,11 +24,19 @@
 No such user.
 </TMPL_IF>
 
+<TMPL_IF failed_to_add_group>
+<p>
+Failed to add group.
+</p>
+</TMPL_IF>
+
+
 <TMPL_IF generic>
 <p>
 Something went wrong here. The webmaster will be informed and will try to take action. 
 </p>
 </TMPL_IF>
 
+
 <TMPL_INCLUDE NAME="footer.tmpl">
 

Modified: trunk/templates/search.tmpl
===================================================================
--- trunk/templates/search.tmpl	2005-03-22 12:59:23 UTC (rev 129)
+++ trunk/templates/search.tmpl	2005-03-22 13:36:06 UTC (rev 130)
@@ -2,6 +2,7 @@
 <p id="pageTitle">Search page</p>
 
 <TMPL_INCLUDE NAME="navigation.tmpl">
+<TMPL_INCLUDE NAME="search_form.tmpl">
 
 <TMPL_LOOP groups>
    <a href="/dist/<TMPL_VAR name>"><TMPL_VAR name></a><br />