Index: openacs-4/packages/dotlrn/www/community-edit-revert.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-edit-revert.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/community-edit-revert.tcl	3 Jun 2002 21:16:28 -0000	1.2
+++ openacs-4/packages/dotlrn/www/community-edit-revert.tcl	13 Jun 2002 19:12:56 -0000	1.3
@@ -23,14 +23,27 @@
 
 } -query {
     {referer "community-edit"}
+    {header_logo_only ""}
 }
 
 set user_id [ad_conn user_id]
 set community_id [dotlrn_community::get_community_id]
 dotlrn::require_user_admin_community -user_id $user_id $community_id
 
-# blow way all the attributes
-dotlrn_community::unset_attributes \
-    -community_id $community_id
+if {![empty_string_p $header_logo_only]} {
+    # just blow away the header logo stuff
+    dotlrn_community::unset_attribute \
+        -community_id $community_id \
+        -attribute_name header_logo_item_id
+    
+    dotlrn_community::unset_attribute \
+        -community_id $community_id \
+        -attribute_name header_logo_alt_text
+} else {
+    # blow way all the attributes
+    dotlrn_community::unset_attributes \
+        -community_id $community_id
+    
+}
 
 ad_returnredirect $referer
Index: openacs-4/packages/dotlrn/www/community-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/community-edit.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/community-edit.adp	13 Jun 2002 04:33:31 -0000	1.5
+++ openacs-4/packages/dotlrn/www/community-edit.adp	13 Jun 2002 19:12:56 -0000	1.6
@@ -84,4 +84,6 @@
 </form>
 </p>
 
+<strong>[<a href=community-edit-revert.tcl?header_logo_only=1>Revert ONLY the Header Icon properties to defaults</a>]</strong>
+<br>
 <strong>[<a href=community-edit-revert.tcl>Revert all properties to defaults</a>]</strong>