Re: [Pagekit-users] uploaded file doesn't show up in Model

[Boris Z. <bo...@2b...>]

Hi,

Am Sonntag 08 August 2004 10:08 schrieb Alex Deva:
> Hey,
>
> I'm getting a weird problem. To reproduce it, I've set up a small template:
>
> <PKIT_COMPONENT NAME="/top">
>
>     <PKIT_MESSAGE>
>     <p>
>
>    <form method="post" action="upload_done"
> enctype="application/x-www-form-urlencoded"> <input type="file"
> name="photo">
>               <input type="hidden" name="pkit_done"
> value="http://<PKIT_HOSTNAME>"> <input type="image" img
> src="static/submit.png" width="67" height="20" border="0" name="submit"
> value="Submit"> </form>
>
>
> <PKIT_COMPONENT NAME="/bottom">
>

The main reason that this do not work is the enctype, try it with  
enctype="multipart/form-data".

>
> In MyModel.pm, I have the following subroutine (just to check the number of
> uploaded files):
>
> sub upload_done {
>   my $model = shift;
>   my @filenames;
>
>   foreach my $upload ( $model->apr->upload ) {
>     my $fh = $upload->name;
>     push @filenames, $fh;
>     }
>
>   my $pkit_done = $model->input('pkit_done');
>   $model->pkit_gettext_message("file: ".$#filenames);
>   $model->pkit_redirect("upload");
> }
>

your code looks fine for mod_perl 1, but with mod_perl 2 you  should write

sub upload_done {
  my $model = shift;
  my $apr = $model->apr;
  my @filenames = ();  
  foreach my $n ( $apr->upload ) {
    my $name = $apr->upload($n)->name;
    push @filenames, $name;
  }
  my $pkit_done = $model->input('pkit_done');
  $model->pkit_gettext_message("file: ".@filenames);
  $model->pkit_redirect("upload");  
}

 

> The problem is the result is always -1 (and if I try to access any $upload
> object, it's undefined).
>
> Thank you for any help!

-- 
Boris