[Scoop-checkins] scoop/lib/Scoop/Calendar Events.pm

[scoop at lithium.sabren.com]

Update of /cvs/scoop/scoop/lib/Scoop/Calendar
In directory lithium.sabren.com:/tmp/cvs-serv1516/lib/Scoop/Calendar

Modified Files:
	Events.pm 
Log Message:
Hulver's fixes for bugs 24, 77, 86, 160, 176, and 185

-janra



Index: Events.pm
===================================================================
RCS file: /cvs/scoop/scoop/lib/Scoop/Calendar/Events.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Events.pm	21 Jan 2005 14:14:30 -0000	1.1
--- Events.pm	28 May 2005 01:56:28 -0000	1.2
***************
*** 352,356 ****
  	my $oldevent = $S->get_event($eid);
  	my $perm;
! my $DEBUG = 1;
  	unless ( $S->check_formkey() ) {
  		# formkey is only used for new event submission, but
--- 352,356 ----
  	my $oldevent = $S->get_event($eid);
  	my $perm;
! 
  	unless ( $S->check_formkey() ) {
  		# formkey is only used for new event submission, but
***************
*** 535,539 ****
  			$S->run_hook('event_update',$eid);
  			my $other_cals = $S->cgi->param('other_cals');
! my $DEBUG = 1;
  			warn " (_save_event) displaystatus is $event->{displaystatus}" if $DEBUG;
  			if ( defined($event->{displaystatus}) ) {
--- 535,539 ----
  			$S->run_hook('event_update',$eid);
  			my $other_cals = $S->cgi->param('other_cals');
! 
  			warn " (_save_event) displaystatus is $event->{displaystatus}" if $DEBUG;
  			if ( defined($event->{displaystatus}) ) {
***************
*** 730,734 ****
  	my $eid = shift;
  	my $dispstat;
! my $DEBUG = 1;
  	if ($eid) {
  		my ($rv,$sth) = $S->db_select({
--- 730,734 ----
  	my $eid = shift;
  	my $dispstat;
! 
  	if ($eid) {
  		my ($rv,$sth) = $S->db_select({