[Bigsister-cvslog] CVS: bigswaf/BigSWAF Application.pm,1.9,1.10

[Thomas A. <ae...@us...>]

Update of /cvsroot/bigsister/bigswaf/BigSWAF
In directory sc8-pr-cvs1:/tmp/cvs-serv24288/BigSWAF

Modified Files:
	Application.pm 
Log Message:
added script() method


Index: Application.pm
===================================================================
RCS file: /cvsroot/bigsister/bigswaf/BigSWAF/Application.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** Application.pm	15 Nov 2003 10:13:28 -0000	1.9
--- Application.pm	17 Nov 2003 22:27:40 -0000	1.10
***************
*** 52,55 ****
--- 52,56 ----
  	$self->env()->path( $2 );
      }
+     $self->script( $path );
      $request_method = "request_$path";
      my $where = "BigSister::".($self->env()->appid())."::$path";
***************
*** 80,83 ****
--- 81,92 ----
  
  
+ sub script {
+     my( $self, $script ) = @_;
+ 
+     $self->{"script"} = $script if( defined $script );
+     return( $self->{"script"} );
+ }
+ 
+ 
  
  sub skinrequest {
***************
*** 185,188 ****
--- 194,198 ----
          my @values = $self->env()->param( $param );
  	foreach my $value( @values ) {
+ 	    $value = $self->display()->encode_tagtext( $value );
  	    $data .= "<input type=\"hidden\" name=\"$param\" value=\"$value\" />\n";
  	}