[WTF CVS] wtf/util weekly_status.pl,1.2,1.3

[Gryphon S. <gry...@us...>]

Update of /cvsroot/wtf-tracker/wtf/util
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6361/util

Modified Files:
	weekly_status.pl 
Log Message:
Random bits of changes here and there, mostly code clean-up but a few bits of refactoring (globally) based on a code review in prep for v1.02 build and release

Index: weekly_status.pl
===================================================================
RCS file: /cvsroot/wtf-tracker/wtf/util/weekly_status.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** weekly_status.pl	28 Nov 2006 21:58:37 -0000	1.2
--- weekly_status.pl	2 Dec 2006 00:09:09 -0000	1.3
***************
*** 122,127 ****
  				for my $note ( @{ $employee->{'note_content'} } ) {
  					$report .= '  ' . $note->{'work_day'} . "\n";
! 					$note->{'notes'} =~ s|<br\s*/>|\n|msg;
  					$note->{'notes'} =~ s|&nbsp;| |g;
  					$note->{'notes'} =~ s/\n/\n    /msg;
  					$note->{'notes'} =~ s/[\s\r\n]+$//msg;
--- 122,133 ----
  				for my $note ( @{ $employee->{'note_content'} } ) {
  					$report .= '  ' . $note->{'work_day'} . "\n";
! 					
! 					# The following four lines are "dehtmlizing" based on
! 					# WTF::Utils::htmlize_notes()
  					$note->{'notes'} =~ s|&nbsp;| |g;
+ 					$note->{'notes'} =~ s|<br\s*/>\n*|\n|msg;
+ 					$note->{'notes'} =~ s|&lt;|<|msg;
+ 					$note->{'notes'} =~ s|&gt;|>|msg;
+ 
  					$note->{'notes'} =~ s/\n/\n    /msg;
  					$note->{'notes'} =~ s/[\s\r\n]+$//msg;
***************
*** 159,162 ****
--- 165,171 ----
  	./util/weekly_status.pl DEVEL  # run in development enviornment
  
+ 	# run in development enviornment, specifying a date range and a user id
+ 	./util/weekly_status.pl DEVEL 2006-10-25 2006-10-31 77
+ 
  =head1 DESCRIPTION
  
***************
*** 172,175 ****
--- 181,190 ----
  and send all the emails to the administrator.
  
+ By adding on two date ranges and a user ID, the script emails a report based
+ on the date range to the user specified, provided that user has the appropriate
+ authorization.
+ 
+ 	./util/weekly_status.pl DEVEL 2006-10-25 2006-10-31 77
+ 
  =head1 DEPENDENCIES