Thread Mojolicious: bedingtes "self->render" (10 answers)
Opened by Kuerbis at 2011-08-10 10:56

Kuerbis
 2011-08-10 10:56
#151442 #151442
User since
2011-03-20
938 Artikel
BenutzerIn
[default_avatar]
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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?

View full thread Mojolicious: bedingtes "self->render"