From: Frank Brehm Date: Tue, 22 Mar 2011 22:30:56 +0000 (+0000) Subject: Bugfixing X-Git-Url: https://git.uhu-banane.org/?a=commitdiff_plain;h=4bf0f4aaec7c66af9d9c450bb2ab1152cbeaf07a;p=books.git Bugfixing --- diff --git a/lib/FrBr/Books/Controller/Books.pm b/lib/FrBr/Books/Controller/Books.pm index 93cb7a1..20774ad 100644 --- a/lib/FrBr/Books/Controller/Books.pm +++ b/lib/FrBr/Books/Controller/Books.pm @@ -483,8 +483,11 @@ sub form_new : Path('new') { 'name' => "Neu" }; + $c->log->debug( $K . "Check for «new» buttons ..." ) if $c->stash->{'debug_level'} > 2; + # Es wurde auf "Neuer Autor" geklickt. if ( $c->request->params->{'neuer_autor'} ) { + $c->log->debug( $K . "Auf neuen Autor geklickt ..." ) if $c->stash->{'debug_level'} > 2; $c->session->{'form'} = {} unless $c->session->{'form'}; $c->session->{'form'}{'buch'} = {} unless $c->session->{'form'}{'buch'}; $c->session->{'form'}{'buch'}{'neuer_autor_angefordert'} = 1; @@ -493,8 +496,20 @@ sub form_new : Path('new') { return 1; } + # Es wurde auf "Neuer Verlag" geklickt. + if ( $c->request->params->{'neuer_verlag'} ) { + $c->log->debug( $K . "Auf neuen Verlag geklickt ..." ) if $c->stash->{'debug_level'} > 2; + $c->session->{'form'} = {} unless $c->session->{'form'}; + $c->session->{'form'}{'buch'} = {} unless $c->session->{'form'}{'buch'}; + $c->session->{'form'}{'buch'}{'neuer_verlag_angefordert'} = 1; + $self->bookdata_cgi2session($c); + $c->response->redirect( $c->web_path( '/verlag/new', { 'return_target_form' => $c->stash->{'self_url'} } ) ); + return 1; + } + # Es wurde auf "Neuer Aufbewahrungsort" geklickt. if ( $c->request->params->{'neuer_aufbewahrungsort'} ) { + $c->log->debug( $K . "Auf neuen Aufbewahrungsort geklickt ..." ) if $c->stash->{'debug_level'} > 2; $c->session->{'form'} = {} unless $c->session->{'form'}; $c->session->{'form'}{'buch'} = {} unless $c->session->{'form'}{'buch'}; $c->session->{'form'}{'buch'}{'neuer_ort_angefordert'} = 1; @@ -505,6 +520,7 @@ sub form_new : Path('new') { # Es wurde auf "Neue Kategorie" geklickt. if ( $c->request->params->{'neue_kategorie'} ) { + $c->log->debug( $K . "Auf neue Kategorie geklickt ..." ) if $c->stash->{'debug_level'} > 2; $c->session->{'form'} = {} unless $c->session->{'form'}; $c->session->{'form'}{'buch'} = {} unless $c->session->{'form'}{'buch'}; $c->session->{'form'}{'buch'}{'neue_kategorie_angefordert'} = 1; @@ -515,6 +531,7 @@ sub form_new : Path('new') { # Es wurde auf "Neue Buchserie" geklickt. if ( $c->request->params->{'neue_serie'} ) { + $c->log->debug( $K . "Auf neue Buchserie geklickt ..." ) if $c->stash->{'debug_level'} > 2; $c->session->{'form'} = {} unless $c->session->{'form'}; $c->session->{'form'}{'buch'} = {} unless $c->session->{'form'}{'buch'}; $c->session->{'form'}{'buch'}{'neue_serie_angefordert'} = 1; @@ -525,6 +542,7 @@ sub form_new : Path('new') { # Es wurde auf "Neue Währung" geklickt. if ( $c->request->params->{'neue_waehrung'} ) { + $c->log->debug( $K . "Auf neue Waehrung geklickt ..." ) if $c->stash->{'debug_level'} > 2; $c->session->{'form'} = {} unless $c->session->{'form'}; $c->session->{'form'}{'buch'} = {} unless $c->session->{'form'}{'buch'}; $c->session->{'form'}{'buch'}{'neue_waehrung_angefordert'} = 1; @@ -563,7 +581,7 @@ sub form_new : Path('new') { $c->stash->{'return_target_action'} = $c->session->{'return_target_new'}; my $res = $self->do_save_book($c); - delete $c->session->{'book_list_page'} if $res and exists $c->session->{'book_list_page'}; + #delete $c->session->{'book_list_page'} if $res and exists $c->session->{'book_list_page'}; return $res; } @@ -1435,4 +1453,4 @@ it under the same terms as Perl itself. __END__ -# vim: noai : ts=4 fenc=utf-8 filetype=perl +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab diff --git a/root/src/books/form.tt2 b/root/src/books/form.tt2 index 94b6265..7a13c3a 100644 --- a/root/src/books/form.tt2 +++ b/root/src/books/form.tt2 @@ -16,7 +16,7 @@ Buch-Formular