[Netpass-devel] NetPass/www/components/Admin FormNPApi,1.1,1.2

[Matt <mt...@us...>]

Update of /cvsroot/netpass/NetPass/www/components/Admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28353

Modified Files:
	FormNPApi 
Log Message:


Index: FormNPApi
===================================================================
RCS file: /cvsroot/netpass/NetPass/www/components/Admin/FormNPApi,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- FormNPApi	7 Jun 2005 19:32:58 -0000	1.1
+++ FormNPApi	8 Jun 2005 00:48:59 -0000	1.2
@@ -5,12 +5,14 @@
 </%args>
 
 <%perl>
+	my $anychanges = 0;
 	if ($submit eq "Commit Changes") {
 
 		foreach my $nparg (keys %ARGS) {
 			my $var;
 			if ($nparg =~ /^npapi:(\w+)$/) {
-				$var = $1;
+				$var        = $1;
+				$anychanges = 1;
 			} else {
 				next;
 			}
@@ -20,7 +22,7 @@
 			}
 			$np->cfg->{'cfg'}->obj('npapi')->$var($ARGS{"npapi:$var"});
 		}
-		$np->cfg->save(-user => $m->session->{'username'});
+		$np->cfg->save(-user => $m->session->{'username'}) if $anychanges;
 	}
 
 sub getnpapivalue {