openinteract-commits

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

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/TT2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11897/TT2

Modified Files:
	Plugin.pm 
Log Message:
OIN-79: make all url creation calls honor 'do_not_escape' flag

Index: Plugin.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/TT2/Plugin.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Plugin.pm	5 Oct 2004 02:13:50 -0000	1.13
--- Plugin.pm	24 Oct 2004 16:17:29 -0000	1.14
***************
*** 352,372 ****
          $url_base = $p->{BASE};
          delete $p->{ $_ } for ( qw( ACTION TASK BASE IMAGE STATIC ) );
!         return $U->create( $url_base, $p );
      }
      elsif ( $p->{ACTION} ) {
          my ( $action, $task ) = ( $p->{ACTION}, $p->{TASK} );
          delete $p->{ $_ } for ( qw( ACTION TASK BASE IMAGE STATIC ) );
!         return $U->create_from_action(
!                          $action, $task, $p );
      }
      elsif ( $p->{IMAGE} ) {
          my $image_url = $p->{IMAGE};
          delete $p->{ $_ } for ( qw( ACTION TASK BASE IMAGE STATIC ) );
!         return $U->create_image( $image_url, $p );
      }
      elsif ( $p->{STATIC} ) {
          my $static_url = $p->{STATIC};
          delete $p->{ $_ } for ( qw( ACTION TASK BASE IMAGE STATIC ) );
!         return $U->create_static( $static_url, $p );
      }
      else {
--- 352,371 ----
          $url_base = $p->{BASE};
          delete $p->{ $_ } for ( qw( ACTION TASK BASE IMAGE STATIC ) );
!         return $U->create( $url_base, $p, $p->{do_not_escape} );
      }
      elsif ( $p->{ACTION} ) {
          my ( $action, $task ) = ( $p->{ACTION}, $p->{TASK} );
          delete $p->{ $_ } for ( qw( ACTION TASK BASE IMAGE STATIC ) );
!         return $U->create_from_action( $action, $task, $p, $p->{do_not_escape} );
      }
      elsif ( $p->{IMAGE} ) {
          my $image_url = $p->{IMAGE};
          delete $p->{ $_ } for ( qw( ACTION TASK BASE IMAGE STATIC ) );
!         return $U->create_image( $image_url, $p, $p->{do_not_escape} );
      }
      elsif ( $p->{STATIC} ) {
          my $static_url = $p->{STATIC};
          delete $p->{ $_ } for ( qw( ACTION TASK BASE IMAGE STATIC ) );
!         return $U->create_static( $static_url, $p, $p->{do_not_escape} );
      }
      else {