[Openinteract-commits] CVS: OpenInteract2/extra_packages/tips_quotes_cw/OpenInteract2 ShaolinPrinciples.pm,1.1,1.2

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/extra_packages/tips_quotes_cw/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17087/OpenInteract2

Modified Files:
	ShaolinPrinciples.pm 
Log Message:
fixes...


Index: ShaolinPrinciples.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/extra_packages/tips_quotes_cw/OpenInteract2/ShaolinPrinciples.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ShaolinPrinciples.pm	25 Sep 2004 18:22:22 -0000	1.1
--- ShaolinPrinciples.pm	6 Mar 2005 16:54:11 -0000	1.2
***************
*** 14,20 ****
          my $raw = <DATA>;
          my @raw_quotes = split( "%%\n", $raw );
!         foreach my $quote ( @raw_quotes ) {
!             chomp $quote;
!             push @QUOTES, [ $lines[0], $quote ];
          }
  }
--- 14,21 ----
          my $raw = <DATA>;
          my @raw_quotes = split( "%%\n", $raw );
!         foreach my $full_quote ( @raw_quotes ) {
!             chomp $full_quote;
!             my ( $linenum, $quote ) = split /\s/, $full_quote, 2;
!             push @QUOTES, [ $linenum, $quote ];
          }
  }
***************
*** 26,37 ****
  
  sub get_wrapped {
!     my ( $advice, $source ) = get();
      local $Text::Wrap::columns = 60;
!     return ( wrap( undef, undef, $advice ), $source );
  }
  
  sub get_html {
!     my ( $advice, $source ) = get();
!     return HTML::Entities::encode( $advice );
  }
  
--- 27,38 ----
  
  sub get_wrapped {
!     my ( $num, $principle ) = get();
      local $Text::Wrap::columns = 60;
!     return wrap( undef, undef, "$num: $principle" );
  }
  
  sub get_html {
!     my ( $num, $principle ) = get();
!     return "<b>$num</b>: " . HTML::Entities::encode( $principle );
  }
  
***************
*** 51,55 ****
  
   use OpenInteract2::ShaolinPrinciples;
!  my ( $advice, $source, $advice_num ) = OpenInteract2::ShaolinPrinciple->get;
   
   print "In HTML: ", OpenInteract2::ShaolinPrinciple->get_html();
--- 52,56 ----
  
   use OpenInteract2::ShaolinPrinciples;
!  my ( $principle_num, $principle ) = OpenInteract2::ShaolinPrinciple->get;
   
   print "In HTML: ", OpenInteract2::ShaolinPrinciple->get_html();
***************
*** 134,138 ****
  30 March the Long Road
  %%
! 31 Don`t Allways Apologize
  %%
  32 Find Beauty Everywhere
--- 135,139 ----
  30 March the Long Road
  %%
! 31 Don't Allways Apologize
  %%
  32 Find Beauty Everywhere
***************
*** 162,166 ****
  44 Allow Your Opponent to Save Face
  %%
! 45 Don t be a Perfectionist
  %%
  46 Applaud the Courage of the White Belt
--- 163,167 ----
  44 Allow Your Opponent to Save Face
  %%
! 45 Don't be a Perfectionist
  %%
  46 Applaud the Courage of the White Belt
***************
*** 172,176 ****
  49 Focus on Your Priorities
  %%
! 50 Don t Complicate Matters
  %%
  51 Assume Leadership
--- 173,177 ----
  49 Focus on Your Priorities
  %%
! 50 Don't Complicate Matters
  %%
  51 Assume Leadership
***************
*** 254,258 ****
  90 Form Your Day
  %%
! 91 Do What Others Can t
  %%
  92 Build Upon Your Basics
--- 255,259 ----
  90 Form Your Day
  %%
! 91 Do What Others Can't
  %%
  92 Build Upon Your Basics