Mojolicious: bedingtes "self->render" (gelöst) (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

[thread]16619[/thread]

Mojolicious: bedingtes "self->render" [gelöst]

Tags: perl5 mojolicious Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

+13 replies

Kuerbis

2011-08-10 10:56

User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

get '/zwei' => sub {
   my $self = shift;
   my $count = $dbh->prepare( "SELECT COUNT(*) FROM $table WHERE nachname == ?" );
   $count->execute( $self->param('nachname') );
   my $exists = ( $count->fetchrow_array )[0];
   if ( not $exists ) {
      $self->render( 'eingabe' ); # neuen Eintrag zu Datenbank hinzufügen
   }
   elsif ( $exists == 1 ) {
      my $sth = $dbh->prepare( "SELECT * FROM $table WHERE nachname == ?" );
      $sth->execute( $self->param('nachname') );
      my $hash = $sth->fetchrow_hashref;
      $self->stash( vorname => $hash->{vorname} );
      $self->stash( nachname => $hash->{nachname} );
      $self->stash( steuernummer => $hash->{steuernummer} );
      $self->stash( strasse => $strasse );
      $self->stash( nummer => $nummer );
      $self->stash( ort => $ort );
      $self->stash( plz => $plz );
      $self->render( 'kontrolle' ); # ausgewählten Eintrag ausgeben
   }
   else { 
      my $sth = $dbh->prepare( "SELECT vorname, nachname, steuernummer FROM $table WHERE nachname == ?" );
      $sth->execute( $self->param('nachname') );
      $self->stash( sth => $sth );
      $self->render( 'auswahl' ); # aus gefundenen Einträgen auswählen
   }
};

Ist das so in Ordnung, wenn ich je nach Resultat der Datenbankabfrage verschiedene Seiten aufrufen möchte?

+12 replies

moritz

2011-08-10 11:37

User since
2007-05-11
923 Artikel
HausmeisterIn

Es ist schon OK, aber vielleicht einfacher, wenn du einen Redirect zur richigen Seite machst, und dort dann den stash befoelkerst.

Aber wieso gibst du denn dem Template ein statement handle? Meiner Meinung nach gehoert der Datenbankzugriff in das Modell (oder mit zusammengekniffenen Augen auch noch in den Controller), nicht ins Template.

Perl 6 - Perls Zukunft

+11 replies

Kuerbis

2011-08-10 13:34

User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

get '/zwei' => sub {
   my $self = shift;
   my $count = $dbh->prepare( "SELECT COUNT(*) FROM $table WHERE nachname == ?" );
   $count->execute( $self->param('nachname') );
   my $exists = ( $count->fetchrow_array )[0];
   if ( not $exists ) {
      $self->redirect_to( 'eingabe' ); # neuen Eintrag zu Datenbank hinzufügen
   }
   elsif ( $exists == 1 ) {
      $self->redirect_to( 'kontrolle' ); # ausgewählten Eintrag ausgeben
   }
   else { 
      my $sth = $dbh->prepare( "SELECT vorname, nachname, steuernummer FROM $table WHERE nachname == ?" );
      $sth->execute( $self->param('nachname') );
      my $ref = $sth->fetchall_hashref( 'steuernummer' );
      $self->stash( ref => $ref );
      $self->render( 'auswahl' ); # aus gefundenen Einträgen auswählen
   }
};

Was kann ich machen, damit der Parameter ( param('nachname') ) beim redirect_to('kontrolle') an 'kontrolle' weitergeleitet wird?

+5 replies
Kuerbis

2011-08-10 15:43

User since
2011-03-20
947 Artikel
BenutzerIn

Last edited: 2011-08-10 22:38:16 +0200 (CEST)
- +4 replies
- Linuxer
  
  2011-08-10 22:42
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  ??? Wo ist der Inhalt Deines Beitrags abgeblieben?
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - topeg
    
    2011-08-10 22:58
    
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Möglicherweise viel der Inhalt unter die Kategorie: tödlichster Witz aller Zeiten :-)
  - Kuerbis
    
    2011-08-11 07:25
    
    User since
    2011-03-20
    947 Artikel
    BenutzerIn
    
    Inhalt nochmals eingefügt:
    
    "Mit $self->redirect_to( 'kontrolle', steuernummer => $steuernummer ) funktioniert es auch nicht."
    
    Laut Doku (und Quellcode) kann es so auch nicht funktionieren.
  - gelöscht 2011-08-11 07:25
+5 replies

Kuerbis

2011-08-11 11:39

User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]

So scheint es zu funktionieren:

Code (perl): (dl )

get '/zwei' => sub {
        my $self = shift;
        my $nachname = $self->param( 'nachname' );
        my $sth = $dbh->prepare( "SELECT vorname, steuernummer FROM $table WHERE nachname == ?" );
        $sth->execute( $nachname );
        my @rows;
        while ( my $row = $sth->fetchrow_hashref ) {
                push @rows, { vorname => $row->{vorname}, nachname => $nachname, steuernummer => $row->{steuernummer} };
        }
        if ( not @rows ) {
                $self->redirect_to( 'eingabe' );
        } elsif ( @rows == 1 ) {
                $self->redirect_to( "/kontrolle?steuernummer=$rows[0]{steuernummer}" );
        } else {
                $self->stash( rows => \@rows );
                $self->render( 'zwei' );
        }
};

Ist das ein böser Hack oder kann man das so machen?

+4 replies

Kuerbis

2011-08-14 08:54

User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]

Meine vorläufige Finalverison:

Code (perl): (dl )

get '/zwei' => sub {
        my $self = shift;
        my $nachname = $self->param( 'nachname' );
        my $sth = $dbh->prepare( "SELECT vorname, steuernummer FROM $table WHERE nachname == ?" );
        $sth->execute( $nachname );
        my @rows;
        while ( my $row = $sth->fetchrow_hashref ) {
                push @rows, { vorname => $row->{vorname}, nachname => $nachname, steuernummer => $row->{steuernummer} };
        }
        if ( not @rows ) {
                $self->redirect_to( 'eingabe' );
        } elsif ( @rows == 1 ) {
                my $steuernummer = $rows[0]{steuernummer};
                my $uri = URI->new( '/kontrolle' );
                $uri->query_form( steuernummer => $steuernummer );
                $self->redirect_to( $uri );
        } else {
                $self->stash( rows => \@rows );
                $self->render( 'zwei' );
        }
};

+3 replies
dominicn

2011-10-08 07:49
User since
2003-08-08
327 Artikel
BenutzerIn
Du könntest auch mit flash arbeiten:
statt
Code: (dl )

1 2 3

my $uri = URI->new( '/kontrolle' ); $uri->query_form( steuernummer => $steuernummer ); $self->redirect_to( $uri );
schreibst du
Code: (dl )

1 2

$self->flash( steuernummer => $steuernummer ); $self->redirect_to( '/kontrolle' );
und im Kontrolle-Template nutzt du dann einfach $self->flash("steuernummer")
- +2 replies
- Kuerbis
  
  2011-10-08 10:58
  User since
  2011-03-20
  947 Artikel
  BenutzerIn
  Da das Kontrolle-Template die Parameter auch aus Formularen von anderen Seiten bekommen kann, habe ich es nicht mit `flash` versucht und sondern so gelöst:
  
  Code (perl): (dl )
  
  1 2
  
  my $url = $self->url_for( '/kontrolle' ); $self->redirect_to( $url->query( steuernummer => $steuernummer ) );
  - gelöscht 2011-10-08 11:20

View all threads created 2011-08-10 10:56.