[vhffs-dev] [696] Remove unused/useless columns in vhffs_httpd

[ Thread Index | Date Index | More vhffs.org/vhffs-dev Archives ]


Revision: 696
Author:   gradator
Date:     2007-07-08 20:07:08 +0000 (Sun, 08 Jul 2007)

Log Message:
-----------
Remove unused/useless columns in vhffs_httpd

Modified Paths:
--------------
    trunk/vhffs-api/src/Vhffs/Services/Httpd.pm
    trunk/vhffs-backend/src/pgsql/initdb.sql.in
    trunk/vhffs-compat/4.0.sql.in
    trunk/vhffs-panel/admin/web/edit.pl
    trunk/vhffs-panel/admin/web/edit_submit.pl
    trunk/vhffs-panel/admin/web/show.pl
    trunk/vhffs-panel/templates/admin/web/edit.tmpl
    trunk/vhffs-panel/templates/admin/web/show.tmpl
    trunk/vhffs-panel/templates/web/prefs.tmpl
    trunk/vhffs-panel/web/prefs.pl
    trunk/vhffs-panel/web/prefs_save.pl


Modified: trunk/vhffs-api/src/Vhffs/Services/Httpd.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/Httpd.pm	2007-07-08 17:57:18 UTC (rev 695)
+++ trunk/vhffs-api/src/Vhffs/Services/Httpd.pm	2007-07-08 20:07:08 UTC (rev 696)
@@ -83,11 +83,10 @@
     
         die('Unable to create parent object') unless(defined($parent));
 
-        my $sql = 'INSERT INTO vhffs_httpd(servername, crawl, owner_http, owner_rev, owner_uid, owner_gid, trafic, alert_state, alert_limit, object_id) VALUES(?, 1, ?, ?, ?, ?, 0, 0, 0, ?)';
+        my $sql = 'INSERT INTO vhffs_httpd(servername, owner_uid, owner_gid, object_id) VALUES(?, ?, ?, ?)';
 
-
         my $sth = $dbh->prepare($sql);
-        $sth->execute($servername, $user->get_uid, $user->get_uid, $user->get_uid, $group->get_gid, $parent->get_oid);
+        $sth->execute($servername, $user->get_uid, $group->get_gid, $parent->get_oid);
 
         $dbh->commit;
         $web = get_by_servername($main, $servername);
@@ -100,63 +99,23 @@
     return $web;
 }
 
+
 =pod
 
 =head2 commit
 
-    $httpd->set_crawl(1);
-    $httpd->commit();
+Commit modified changes to the database.
 
-Commits modification concerning craw, trafic and alert_limit.
-
 =cut
 
 sub commit
 {
 	my $self = shift;
-
-    my $sql = 'UPDATE vhffs_httpd SET crawl = ?, trafic = ?, alert_limit = ? WHERE servername = ?';
-    $self->{'db'}->do($sql, undef, $self->{crawl}, $self->{trafic}, $self->{alert_limit}, $self->{servername});
-
 	$self->SUPER::commit;
 }
 
 =pod
 
-=head2 get/set_alertstate, get/set_alertlimit, get/set_trafic
-
-Handles trafic limit parameters.
-
-!!DEPRECATED!! Will be replaced with a more apropriate way of alert handling.
-
-=cut
-
-sub get_alertstate
-{
-	my $self = shift;
-	return $self->{'alert_state'};
-}
-
-sub get_alertlimit
-{
-	my $self = shift;
-	return $self->{'alert_limit'};
-}
-
-sub get_crawl
-{
-	my $self = shift;
-	return $self->{'crawl'};
-}
-
-sub set_crawl
-{
-	my( $self , $value ) = @_;
-		$self->{'crawl'} = $value;
-}
-
-=pod
-
 =head2 get_servername
 
     my $servername = $httpd->getservername;
@@ -171,58 +130,12 @@
 	return $self->{'servername'};
 }
 
-=pod
-
-=head2 get_title
-
-    my $servername = $httpd->getservername;
-
-Returns webarea server name.
-
-!!DEPRECATED!!
-
-=cut
-
-
-sub get_title
-{
-	my $self = shift;
-	return $self->{'servername'};
-}
-
-sub get_trafic
-{
-	my $self = shift;
-	return $self->{'trafic'};
-}
-
-
-sub set_trafic
-{
-	my ($self , $value) = @_;	
-	$self->{'trafic'} = $value;
-}
-
-sub set_alertlimit
-{
-	my ($self , $value) = @_;	
-	$self->{'alert_limit'} = $value;
-}
-
-sub set_alertstate
-{
-	my ($self , $value) = @_;	
-	$self->{'alert_state'} = $value;
-}
-
 sub set_user
 {
 	my( $self , $user ) = @_;
 	$self->{'user'} = $user;
 }
 
-
-
 sub set_group
 {
 	my( $self , $group )  = @_;
@@ -254,7 +167,7 @@
     my $result;
     my $tmp;
 
-    $sql = 'SELECT  h.httpd_id, h.servername, h.crawl, h.owner_http, h.owner_rev, h.owner_uid, h.owner_gid, h.trafic, h.alert_state, h.alert_limit, h.object_id, o.date_creation, o.description, o.state FROM vhffs_httpd h INNER JOIN vhffs_object o ON o.object_id = h.object_id';
+    $sql = 'SELECT  h.httpd_id, h.servername, h.owner_uid, h.owner_gid, h.object_id, o.date_creation, o.description, o.state FROM vhffs_httpd h INNER JOIN vhffs_object o ON o.object_id = h.object_id';
     if(defined $state) {
         $sql .= ' AND o.state = ?';
         push(@params, $state);
@@ -295,7 +208,7 @@
     my $objs = [];
     my $result;
 
-    $sql = 'SELECT  h.httpd_id, h.servername, h.crawl, h.owner_http, h.owner_rev, h.owner_uid, h.owner_gid, h.trafic, h.alert_state, h.alert_limit, h.object_id, o.date_creation, o.description, o.state FROM vhffs_httpd h INNER JOIN vhffs_object o ON o.object_id = h.object_id WHERE h.servername LIKE ?';
+    $sql = 'SELECT  h.httpd_id, h.servername, h.owner_uid, h.owner_gid, h.object_id, o.date_creation, o.description, o.state FROM vhffs_httpd h INNER JOIN vhffs_object o ON o.object_id = h.object_id WHERE h.servername LIKE ?';
 
     push(@params, $letter);
 
@@ -329,7 +242,7 @@
     my $objs;
     my $result;
 
-    $sql = 'SELECT h.httpd_id, h.servername, h.crawl, h.owner_http, h.owner_rev, h.owner_uid, h.owner_gid, h.trafic, h.alert_state, h.alert_limit, h.object_id, o.date_creation, o.description, o.state FROM vhffs_httpd h INNER JOIN vhffs_object o ON o.object_id = h.object_id';
+    $sql = 'SELECT h.httpd_id, h.servername, h.owner_uid, h.owner_gid, h.object_id, o.date_creation, o.description, o.state FROM vhffs_httpd h INNER JOIN vhffs_object o ON o.object_id = h.object_id';
 
     if( ( defined $state ) && ( $state < Vhffs::Constants::TO_DELETE ) ) {
         $sql .= 'WHERE o.state= ? AND ( o.description LIKE ? OR w.servername LIKE ? )';
@@ -365,7 +278,7 @@
     my $tmp;
 
     
-    $sql = 'SELECT h.httpd_id, h.servername, h.crawl, h.owner_http, h.owner_rev, h.owner_uid, h.owner_gid, h.trafic, h.alert_state, h.alert_limit, h.object_id, o.date_creation, o.description, o.state FROM vhffs_httpd h INNER JOIN vhffs_object o ON o.object_id = h.object_id AND h.owner_gid = ? ORDER BY servername';
+    $sql = 'SELECT h.httpd_id, h.servername, h.owner_uid, h.owner_gid, h.object_id, o.date_creation, o.description, o.state FROM vhffs_httpd h INNER JOIN vhffs_object o ON o.object_id = h.object_id AND h.owner_gid = ? ORDER BY servername';
 
 
     $sth = $vhffs->get_db_object()->prepare( $sql );
@@ -394,7 +307,7 @@
 
 sub get_by_servername {
     my ($main, $servername) = @_;
-    my $sql = 'SELECT h.httpd_id, h.servername, h.crawl, h.owner_http, h.owner_rev, h.owner_uid, h.owner_gid, h.trafic, h.alert_state, h.alert_limit, h.object_id, o.date_creation, o.description, o.state FROM vhffs_httpd h INNER JOIN vhffs_object o ON o.object_id = h.object_id WHERE h.servername = ?';
+    my $sql = 'SELECT h.httpd_id, h.servername, h.owner_uid, h.owner_gid, h.object_id, o.date_creation, o.description, o.state FROM vhffs_httpd h INNER JOIN vhffs_object o ON o.object_id = h.object_id WHERE h.servername = ?';
     
     my $dbh = $main->get_db_object();
     my @params;
@@ -417,12 +330,12 @@
 }
 
 sub _new {
-    my ($class, $main, $httpd_id, $servername, $crawl, $owner_http, $owner_rev, $owner_uid, $owner_gid, $trafic, $alert_state, $alert_limit, $oid, $date_creation, $description, $state) = @_;
+    my ($class, $main, $httpd_id, $servername, $owner_uid, $owner_gid, $oid, $date_creation, $description, $state) = @_;
 
     my $self = $class->SUPER::_new($main, $oid, $owner_uid, $date_creation, $description, $state, Vhffs::Constants::TYPE_HTTPD);
     return undef unless(defined($self));
 
-    foreach (qw(httpd_id servername crawl owner_http owner_rev owner_gid trafic alert_state alert_limit)) {
+    foreach (qw(httpd_id servername owner_gid)) {
         no strict 'refs';
         eval '$self->{$_} = $'.$_;
     }

Modified: trunk/vhffs-backend/src/pgsql/initdb.sql.in
===================================================================
--- trunk/vhffs-backend/src/pgsql/initdb.sql.in	2007-07-08 17:57:18 UTC (rev 695)
+++ trunk/vhffs-backend/src/pgsql/initdb.sql.in	2007-07-08 20:07:08 UTC (rev 696)
@@ -157,15 +157,9 @@
 CREATE TABLE vhffs_httpd
 (
 	httpd_id serial,
-	servername varchar(200) NOT NULL DEFAULT ' ',
-	crawl int4 NOT NULL default '1',
-	owner_http int4 NOT NULL,
-	owner_rev int4 NOT NULL,
-	owner_uid int4,
-	owner_gid int4,
-	trafic int4 NOT NULL,
-	alert_state int4 NOT NULL default '0',
-	alert_limit int4 NOT NULL default '80',
+	servername varchar(200) NOT NULL,
+	owner_uid int4 NOT NULL,
+	owner_gid int4 NOT NULL,
 	object_id int4 NOT NULL,
 	CONSTRAINT vhffs_httpd_pkey PRIMARY KEY (httpd_id)
 ) WITH OIDS;

Modified: trunk/vhffs-compat/4.0.sql.in
===================================================================
--- trunk/vhffs-compat/4.0.sql.in	2007-07-08 17:57:18 UTC (rev 695)
+++ trunk/vhffs-compat/4.0.sql.in	2007-07-08 20:07:08 UTC (rev 696)
@@ -1,5 +1,5 @@
 -- OK, we try to minimize risks by setting sequences' current values to
--- the greatest id. Ideally, vhffs should be stopped during upgrade
+-- the upper id. Ideally, vhffs should be stopped during upgrade
 
 SELECT setval('vhffs_object_object_id_seq', (SELECT COALESCE(MAX(object_id), 1) FROM vhffs_object));
 SELECT setval('vhffs_groups_gid_seq', (SELECT COALESCE(MAX(gid), @MINGID@) FROM vhffs_groups));
@@ -217,3 +217,14 @@
 
 -- add ml_name to vhffs_svn for commit system.
 ALTER TABLE vhffs_svn ADD COLUMN ml_name varchar;
+
+-- delete unused/useless columns in vhffs-httpd
+ALTER TABLE vhffs_httpd DROP COLUMN crawl;
+ALTER TABLE vhffs_httpd DROP COLUMN owner_http;
+ALTER TABLE vhffs_httpd DROP COLUMN owner_rev;
+ALTER TABLE vhffs_httpd DROP COLUMN trafic;
+ALTER TABLE vhffs_httpd DROP COLUMN alert_state;
+ALTER TABLE vhffs_httpd DROP COLUMN alert_limit;
+ALTER TABLE vhffs_httpd ALTER owner_uid SET NOT NULL;
+ALTER TABLE vhffs_httpd ALTER owner_gid SET NOT NULL;
+ALTER TABLE vhffs_httpd ALTER servername DROP DEFAULT;

Modified: trunk/vhffs-panel/admin/web/edit.pl
===================================================================
--- trunk/vhffs-panel/admin/web/edit.pl	2007-07-08 17:57:18 UTC (rev 695)
+++ trunk/vhffs-panel/admin/web/edit.pl	2007-07-08 20:07:08 UTC (rev 696)
@@ -93,38 +93,21 @@
 
 
 	$template->param( TEXT_SERVERNAME => gettext("Servername") );
-	$template->param( TEXT_CRAWL => gettext("Crawl") );
-	$template->param( TEXT_ALERT => gettext("Alert Limit") );
-	$template->param( TEXT_ALERT_STATE => gettext("Alert state") );
 	$template->param( TEXT_GROUP => gettext("Group") );
 	$template->param( TEXT_OWNER => gettext("Owner") );
 	$template->param( TEXT_STATUS => gettext("Status") );
-	$template->param( TEXT_CRAWL_YES => gettext("Use Crawl") );
-	$template->param( TEXT_CRAWL_NO => gettext("Don't use Crawl") );
 	$template->param( TEXT_DESCRIPTION => gettext("Description") );
 	$template->param( SEND => gettext("Send") );
 	$template->param( TEXT_HISTORY => gettext("History") );
 
 	$template->param( VALUE_DESCRIPTION => CGI::escapeHTML( $object->get_description ) );
 	$template->param( VALUE_SERVERNAME => $object->get_servername );
-	$template->param( VALUE_ALERT => $object->get_alertlimit );
-	$template->param( VALUE_ALERT_STATE => $object->get_alertstate );
 	$template->param( VALUE_GROUP => Vhffs::Group::get_name_by_gid( $vhffs , $object->get_ownergid ));
 	$template->param( VALUE_OWNER => Vhffs::User::get_name_by_uid( $vhffs , $object->get_owneruid ));
 
 	my $oid = $object->{'object_id'};
 	$template->param( VALUE_HISTORY => "/history.pl?OID=$oid" );
 
-	if( $object->get_crawl == 1 )
-	{
-		$template->param( SELECTED_CRAWL_YES  => "selected" );
-	}
-	else
-	{
-		$template->param( SELECTED_CRAWL_NO  => "selected" );
-	}
-
-
 	$template->param( TEXT_STATUS_WAITING_FOR_VALIDATION => gettext("Waiting for validation") );
 	$template->param( TEXT_STATUS_VALIDATION_REFUSED => gettext("Validation refused") );
 	$template->param( TEXT_STATUS_WAITING_FOR_CREATION => gettext("Waiting for creation") );

Modified: trunk/vhffs-panel/admin/web/edit_submit.pl
===================================================================
--- trunk/vhffs-panel/admin/web/edit_submit.pl	2007-07-08 17:57:18 UTC (rev 695)
+++ trunk/vhffs-panel/admin/web/edit_submit.pl	2007-07-08 20:07:08 UTC (rev 696)
@@ -91,10 +91,7 @@
 	$template = new HTML::Template( filename => $templatedir."/misc/simplemsg.tmpl" );
 
 	$object->set_status( $cgi->param( "STATUS" ) );
-	$object->set_crawl( $cgi->param( "CRAWL" ) );
-    $object->set_alertlimit( $cgi->param( "TEXT_ALERT") );
 
-
 	if( $object->commit < 0 )
 	{
 		$message = gettext("Can't modify object ...");
@@ -105,9 +102,6 @@
 	}
 
 	$template->param( MESSAGE => $message );
-
-	
-
 }
 
 

Modified: trunk/vhffs-panel/admin/web/show.pl
===================================================================
--- trunk/vhffs-panel/admin/web/show.pl	2007-07-08 17:57:18 UTC (rev 695)
+++ trunk/vhffs-panel/admin/web/show.pl	2007-07-08 20:07:08 UTC (rev 696)
@@ -92,9 +92,6 @@
 	$template->param( TITLE => gettext("Show Web Area") );
 
 	$template->param( TEXT_SERVERNAME => gettext("Servername") );
-	$template->param( TEXT_CRAWL => gettext("Crawl") );
-	$template->param( TEXT_ALERT => gettext("Alert Limit") );
-	$template->param( TEXT_ALERT_STATE => gettext("Alert state") );
 	$template->param( TEXT_GROUP => gettext("Group") );
 	$template->param( TEXT_OWNER => gettext("Owner") );
 	$template->param( TEXT_STATUS => gettext("Status") );
@@ -103,20 +100,12 @@
 
 	$template->param( VALUE_DESCRIPTION => CGI::escapeHTML( $object->get_description ) );
 	$template->param( VALUE_SERVERNAME => $object->get_servername );
-	$template->param( VALUE_ALERT => $object->get_alertlimit );
-	$template->param( VALUE_ALERT_STATE => $object->get_alertstate );
 	$template->param( VALUE_GROUP => Vhffs::Group::get_name_by_gid( $vhffs , $object->get_ownergid ));
 	$template->param( VALUE_OWNER => Vhffs::User::get_name_by_uid( $vhffs , $object->get_owneruid ));
 
 	my $oid = $object->{'object_id'};
 	$template->param( VALUE_HISTORY => "/history.pl?OID=$oid" );
 
-	if( $object->get_crawl == 1 )  {
-		$template->param( VALUE_CRAWL => gettext("Use Crawl") );
-	}  else  {
-		$template->param( VALUE_CRAWL => gettext("Don't use Crawl") );
-	}
-
 	$template->param( VALUE_STATUS => Vhffs::Functions::status_string_from_status_id ($object->get_status) );
 }
 

Modified: trunk/vhffs-panel/templates/admin/web/edit.tmpl
===================================================================
--- trunk/vhffs-panel/templates/admin/web/edit.tmpl	2007-07-08 17:57:18 UTC (rev 695)
+++ trunk/vhffs-panel/templates/admin/web/edit.tmpl	2007-07-08 20:07:08 UTC (rev 696)
@@ -8,15 +8,6 @@
 		<TMPL_VAR NAME="VALUE_SERVERNAME">
 	</p>
 	<p>
-		<label for="CRAWL">		
-			<TMPL_VAR NAME="TEXT_CRAWL">
-		</label>
-		<select name="CRAWL" id="CRAWL" >
-			<option value="0" <TMPL_VAR name="SELECTED_CRAWL_NO">> <TMPL_VAR NAME="TEXT_CRAWL_NO"></option>
-			<option value="1" <TMPL_VAR name="SELECTED_CRAWL_YES">> <TMPL_VAR NAME="TEXT_CRAWL_YES"></option>
-		</select>
-	</p>
-	<p>
 		<label>
 			<TMPL_VAR NAME="TEXT_GROUP">
 		</label>
@@ -29,18 +20,6 @@
 		<TMPL_VAR NAME="VALUE_OWNER">
 	</p>
 	<p>
-		<label for="TEXT_ALERT">
-			<TMPL_VAR NAME="TEXT_ALERT">
-		</label>
-		<input type="text" name="TEXT_ALERT" id="TEXT_ALERT" VALUE="<TMPL_VAR NAME="VALUE_ALERT">"/>
-	</p>
-	<p>
-		<label>
-			<TMPL_VAR NAME="TEXT_ALERT_STATE">
-		</label>
-		<TMPL_VAR NAME="VALUE_ALERT_STATE">
-	</p>
-	<p>
 		<label for="STATUS">		
 			<TMPL_VAR NAME="TEXT_STATUS">
 		</label>

Modified: trunk/vhffs-panel/templates/admin/web/show.tmpl
===================================================================
--- trunk/vhffs-panel/templates/admin/web/show.tmpl	2007-07-08 17:57:18 UTC (rev 695)
+++ trunk/vhffs-panel/templates/admin/web/show.tmpl	2007-07-08 20:07:08 UTC (rev 696)
@@ -9,15 +9,6 @@
 		<br/>
 	</p>
 	<p>
-		<label for="CRAWL">
-			<TMPL_VAR NAME="TEXT_CRAWL">
-		</label>
-		<label for="CRAWL">
-			<TMPL_VAR NAME="VALUE_CRAWL">
-		</label>
-		<br/>
-	</p>
-	<p>
 		<label for="TEXT_GROUP">		
 			<TMPL_VAR NAME="TEXT_GROUP">
 		</label>
@@ -36,24 +27,6 @@
 		<br/>
 	</p>
 	<p>
-		<label for="TEXT_ALERT">
-			<TMPL_VAR NAME="TEXT_ALERT">
-		</label>
-		<label for="TEXT_ALERT">
-			<TMPL_VAR NAME="VALUE_ALERT">
-		</label>
-		<br/>
-	</p>
-	<p>
-		<label for="ALERT_STATE">
-			<TMPL_VAR NAME="TEXT_ALERT_STATE">
-		</label>
-		<label for="ALERT_STATE">		
-			<TMPL_VAR NAME="VALUE_ALERT_STATE">
-		</label>
-		<br/>
-	</p>
-	<p>
 		<label for="STATUS">		
 			<TMPL_VAR NAME="TEXT_STATUS">
 		</label>

Modified: trunk/vhffs-panel/templates/web/prefs.tmpl
===================================================================
--- trunk/vhffs-panel/templates/web/prefs.tmpl	2007-07-08 17:57:18 UTC (rev 695)
+++ trunk/vhffs-panel/templates/web/prefs.tmpl	2007-07-08 20:07:08 UTC (rev 696)
@@ -9,31 +9,13 @@
 		<input type="hidden" name="name" id="name" value="<tmpl_var name="VALUE_SERVERNAME">" />
 	</p>
 
-	<fieldset>
-		<legend>
-			<tmpl_var name="TEXT_CRAWL"> :
-		</legend>
-		<p>
-			<input type="radio" name="CRAWL" id="CRAWL_YES" value="1" <tmpl_var name="YES_CHECKED"> />
-			<label for="CRAWL_YES">
-				<tmpl_var name="TEXT_YES">
-			</label>
-		</p>
-		<p>
-			<input type="radio" name="CRAWL" id="CRAWL_NO" value="0" <tmpl_var name="NO_CHECKED"> /> 
-			<label for="CRAWL_NO">
-				<tmpl_var name="TEXT_NO">
-			</label>
-		</p>
+	<p>
+	<label>
+		<tmpl_var name="TEXT_DESCRIPTION"> :
+	</label>
+	 <textarea name="DESCRIPTION" id="DESCRIPTION" cols="45" rows="7"><tmpl_var name="VALUE_DESCRIPTION"></textarea>
+	</p>
 
-	</fieldset>
-		<p>
-		<label>
-			<tmpl_var name="TEXT_DESCRIPTION"> :
-		</label>
-		 <textarea name="DESCRIPTION" id="DESCRIPTION" cols="45" rows="7"><tmpl_var name="VALUE_DESCRIPTION"></textarea>
-		</p>
-
 	<p class="button" id="buttonModify">
 		<input value="<tmpl_var name="TEXT_SEND">" type="submit" />
 	</p>

Modified: trunk/vhffs-panel/web/prefs.pl
===================================================================
--- trunk/vhffs-panel/web/prefs.pl	2007-07-08 17:57:18 UTC (rev 695)
+++ trunk/vhffs-panel/web/prefs.pl	2007-07-08 20:07:08 UTC (rev 696)
@@ -95,35 +95,16 @@
 	$template->param( TEXT_SERVERNAME => gettext("Address (Servername)") );
 	$template->param( VALUE_SERVERNAME => $web->get_servername );
 
-	$template->param( TEXT_CRAWL => gettext("Use crawl (useful for web-search engine)") );
-	$template->param( TEXT_DESCRIPTION => gettext("Description of your webarea") );
-	
 	#Show the current description	
+	$template->param( TEXT_DESCRIPTION => gettext("Description of your webarea") );	
 	$template->param( VALUE_DESCRIPTION => CGI::escapeHTML( $web->get_description ) );
-
-	if( $web->get_crawl == 1 )
-	{
-		$template->param( YES_CHECKED => "checked" );
-		$template->param( NO_CHECKED => "" );
-	}
-	else
-	{
-		$template->param( NO_CHECKED => "checked" );
-		$template->param( YES_CHECKED => "" );
-	}
-
-	$template->param( TEXT_YES => gettext("Yes") );
-	$template->param( TEXT_NO => gettext("No") );
-
-
 	$template->param( TEXT_SEND => gettext("Modify") );
 
+	$template->param( TEXT_ACL_ADMIN => gettext("Admin Rights on this object (ACL)") );
+	$template->param( EXPLAIN_ADMIN_ACL => gettext("You can Manage rights on this service for each user in the VHFFS database. Please read help before manage it.") );
+	$template->param( ADMIN_ACL => gettext("Ok, go to ACL admin") );
+	$template->param( VALUE_OID => $web->get_oid );
 
-    $template->param( TEXT_ACL_ADMIN => gettext("Admin Rights on this object (ACL)") );
-    $template->param( EXPLAIN_ADMIN_ACL => gettext("You can Manage rights on this service for each user in the VHFFS database. Please read help before manage it.") );
-    $template->param( ADMIN_ACL => gettext("Ok, go to ACL admin") );
-    $template->param( VALUE_OID => $web->get_oid );
-
 	$template->param( TEXT_DELETE_WEB => gettext("Delete this web area") );
 	$template->param( TEXT_BEFORE_DELETE => gettext("This action is non-reversible. All services associated to this project will be DESTROYED.") );
 	$template->param( ASK_DELETE_WEB => gettext("Are you SURE you want DELETE this Web Area ?") );

Modified: trunk/vhffs-panel/web/prefs_save.pl
===================================================================
--- trunk/vhffs-panel/web/prefs_save.pl	2007-07-08 17:57:18 UTC (rev 695)
+++ trunk/vhffs-panel/web/prefs_save.pl	2007-07-08 20:07:08 UTC (rev 696)
@@ -62,7 +62,6 @@
 my $message;
 my $owner = $cgi->param("PROJECT_OWNER");
 my $template;
-my $crawl;
 my $description;
 
 my $templatedir = $vhffs->get_config->get_templatedir;
@@ -87,9 +86,7 @@
 }
 else
 {
-	$crawl = $cgi->param("CRAWL");
 	$description = $cgi->param("DESCRIPTION");
-	$web->set_crawl( $crawl );
 	$web->set_description( $description );
 	$web->commit;
 	$message = gettext( "Modifications applied to your webarea" );


Mail converted by MHonArc 2.6.19+ http://listengine.tuxfamily.org/