[Openinteract-commits] CVS: OpenInteract/pkg/base_page/OpenInteract/Handler Page.pm,1.9,1.10

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

Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/Handler
In directory usw-pr-cvs1:/tmp/cvs-serv910/pkg/base_page/OpenInteract/Handler

Modified Files:
	Page.pm 
Log Message:
fix the forbidden reference


Index: Page.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/Handler/Page.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Page.pm	2001/10/29 14:48:26	1.9
--- Page.pm	2001/10/30 02:25:08	1.10
***************
*** 199,203 ****
          if ( $@ =~ /^security/ ) {
              my $admin_email = $R->CONFIG->{mail}{admin_email};
!             return $class->_forbiden_message( $admin_email )
          }
          elsif ( $@ =~ /^access/ ) {
--- 199,203 ----
          if ( $@ =~ /^security/ ) {
              my $admin_email = $R->CONFIG->{mail}{admin_email};
!             $R->throw({ code => 303 });
          }
          elsif ( $@ =~ /^access/ ) {
***************
*** 469,483 ****
      return ( $active <= $now and $now <= $expires );
  
- }
- 
- 
- sub _forbidden_message {
-     my ( $class, $mail ) = @_;
-     return <<FORBID;
- <h2>Access Forbidden</h2>
- <p>You do not have access rights to view this page.  Please e-mail the
- administrator at <a href="mailto:$mail">$mail</a> if you feel you have
- received this message in error.</p>
- FORBID
  }
  
--- 469,472 ----