[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Request CGI.pm,1.24,1.25

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

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

Modified Files:
	CGI.pm 
Log Message:
be able to assign the deployment URL from externally


Index: CGI.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Request/CGI.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** CGI.pm	6 Apr 2005 20:54:31 -0000	1.24
--- CGI.pm	22 Oct 2005 21:53:26 -0000	1.25
***************
*** 33,42 ****
      my $req_type = $cgi->request_method || 'GET';
  
!     # Assign URL info from CGI...
! 
!     my $base_url = $cgi->script_name || '';
  
!     $log->is_info && $log->info( "Deployed as $req_type to $base_url" );
!     CTX->assign_deploy_url( $base_url );
  
      my $full_url = join( '', $base_url, $cgi->path_info );
--- 33,47 ----
      my $req_type = $cgi->request_method || 'GET';
  
!     # Assign URL info from CGI unless told otherwise
  
!     my $base_url = '';
!     if ( defined $params->{deploy_url} ) {
!         CTX->assign_deploy_url( $params->{deploy_url} );
!     }
!     else {
!         $base_url = $cgi->script_name || '';
!         $log->is_info && $log->info( "Deployed as $req_type to $base_url" );
!         CTX->assign_deploy_url( $base_url );
!     }
  
      my $full_url = join( '', $base_url, $cgi->path_info );