Index: openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl	11 Nov 2001 17:57:37 -0000	1.9
+++ openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl	12 Nov 2001 18:43:32 -0000	1.10
@@ -218,7 +218,7 @@
 		<input type=radio name=value value=month>month</LABEL>
 		<input type=radio name=value value=year>year</LABEL>
 		<input type=radio name=value value=list>list</LABEL>
-		<input type=submit value=\"Update\">""
+		<input type=submit value=\"Update\">"
 	    }
 	    "month" {
 		set html "Set default view to:<P>
@@ -260,11 +260,11 @@
     }
 
     
-    ad_proc -public remove_self_from_page { 
-	portal_id 
-	community_id 
+    ad_proc -public remove_self_from_page {
+	portal_id
+	community_id
     } {
-	  Removes a calendar PE from the given page 
+	  Removes a calendar PE from the given page
     
 	  @param page_id The page to remove self from
 	  @param community_id
@@ -273,7 +273,8 @@
     } {
 
 	# get the element IDs (could be more than one!)
-	set element_ids [portal::get_element_ids_by_ds $portal_id [my_name]]
+	set element_ids [portal::get_element_ids_by_ds $portal_id \
+		[my_name]]
 
 	# remove all elements
 	db_transaction {
@@ -288,8 +289,8 @@
 		    db_exec_plsql delete_calendar {
 			begin
 			calendar.delete(
-			calendar_id   => :calendar_id
-			);	
+			calendar_id => :calendar_id
+			);
 			end;
 		    }
 		}
@@ -299,8 +300,8 @@
 	}
     }
     
-    ad_proc -public make_self_available { 
- 	page_id 
+    ad_proc -public make_self_available {
+ 	page_id
     } {
  	Wrapper for the portal:: proc
  	
@@ -312,8 +313,8 @@
  		$page_id [portal::get_datasource_id [my_name]]
     }
 
-    ad_proc -public make_self_unavailable { 
-	page_id 
+    ad_proc -public make_self_unavailable {
+	page_id
     } {
 	Wrapper for the portal:: proc
 	
@@ -323,7 +324,5 @@
     } {
 	portal::make_datasource_unavailable \
 		$page_id [portal::get_datasource_id [my_name]]
-    }
+    } 
 }
-
-