From 31c550e16d97ff099c81959588c77d9665494cfe Mon Sep 17 00:00:00 2001 From: Frank Brehm Date: Sun, 7 Sep 2008 07:10:27 +0000 Subject: [PATCH] Zwischenstand --- bin/show_sessions.pl | 3 + lib/FrBr/Books.pm | 4 + lib/FrBr/Books/Controller/Autor.pm | 6 +- lib/FrBr/Books/Controller/Books.pm | 4 + lib/FrBr/Books/Controller/Login.pm | 4 + lib/FrBr/Books/Controller/Root.pm | 4 + lib/FrBr/Books/Controller/Verlag.pm | 144 ++++++++++++++++++++++++++ lib/FrBr/Books/Db.pm | 4 + lib/FrBr/Books/Db/Autor2buch.pm | 4 + lib/FrBr/Books/Db/Autoren.pm | 4 + lib/FrBr/Books/Db/Bindungsarten.pm | 4 + lib/FrBr/Books/Db/Buch2kategorie.pm | 4 + lib/FrBr/Books/Db/Buch2serie.pm | 4 + lib/FrBr/Books/Db/Buecher.pm | 4 + lib/FrBr/Books/Db/Kategorien.pm | 4 + lib/FrBr/Books/Db/Serien.pm | 4 + lib/FrBr/Books/Db/Session.pm | 4 + lib/FrBr/Books/Db/Users.pm | 4 + lib/FrBr/Books/Db/Verlage.pm | 4 + lib/FrBr/Books/Db/Waehrungen.pm | 4 + lib/FrBr/Books/Model/Schema.pm | 4 + lib/FrBr/Books/Plugin/ConfigLoader.pm | 3 + lib/FrBr/Books/Plugin/WebPath.pm | 3 + lib/FrBr/Books/Util/Author.pm | 4 + lib/FrBr/Books/Util/Book.pm | 4 + lib/FrBr/Books/Util/Category.pm | 4 + lib/FrBr/Books/Util/Serie.pm | 4 + lib/FrBr/Books/Util/Verlag.pm | 12 ++- lib/FrBr/Books/Util/Waehrung.pm | 4 + lib/FrBr/Books/View/TtDefault.pm | 4 + lib/FrBr/Common.pm | 2 + root/lib/config/colors.tt2 | 2 + root/lib/config/main.tt2 | 2 + root/lib/config/url.tt2 | 2 + root/lib/site/footer.tt2 | 2 + root/lib/site/header.tt2 | 2 + root/lib/site/html.tt2 | 2 + root/lib/site/jscript.tt2 | 2 + root/lib/site/jsfiles.tt2 | 2 + root/lib/site/layout.tt2 | 2 + root/lib/site/statusbar.tt2 | 2 + root/lib/site/wrapper.tt2 | 2 + root/src/autor/autor_form.tt2 | 2 + root/src/autor/index.tt2 | 6 +- root/src/autor/new.tt2 | 8 +- root/src/autor/save_success.tt2 | 6 +- root/src/books/book_form.tt2 | 8 +- root/src/books/index.tt2 | 6 +- root/src/books/list.tt2 | 2 + root/src/books/new.tt2 | 8 +- root/src/error.tt2 | 6 +- root/src/index.tt2 | 6 +- root/src/not_implemented.tt2 | 14 +-- root/src/verlag/form.css | 10 ++ root/src/verlag/index.tt2 | 6 +- root/src/verlag/new.tt2 | 16 +++ root/src/verlag/save_success.tt2 | 17 +++ root/src/verlag/verlag_form.tt2 | 39 +++++++ root/src/welcome.tt2 | 6 +- script/frbr_books_cgi.pl | 4 + script/frbr_books_create.pl | 4 + script/frbr_books_fastcgi.pl | 4 + script/frbr_books_server.pl | 4 + script/frbr_books_test.pl | 4 + 64 files changed, 443 insertions(+), 34 deletions(-) create mode 100644 root/src/verlag/form.css create mode 100644 root/src/verlag/new.tt2 create mode 100644 root/src/verlag/save_success.tt2 create mode 100644 root/src/verlag/verlag_form.tt2 diff --git a/bin/show_sessions.pl b/bin/show_sessions.pl index 1b83392..8ce8410 100755 --- a/bin/show_sessions.pl +++ b/bin/show_sessions.pl @@ -58,3 +58,6 @@ for ( @all_items ) { exit 0; +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books.pm b/lib/FrBr/Books.pm index 4192593..5be44ca 100644 --- a/lib/FrBr/Books.pm +++ b/lib/FrBr/Books.pm @@ -185,3 +185,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Controller/Autor.pm b/lib/FrBr/Books/Controller/Autor.pm index 622865f..56c6f07 100644 --- a/lib/FrBr/Books/Controller/Autor.pm +++ b/lib/FrBr/Books/Controller/Autor.pm @@ -160,7 +160,7 @@ sub check_formparams : Private { return undef; } - unless ( $c->stash->{'autor_edit'} ) { + unless ( $c->stash->{'autor_edit'}{'name'} ) { $c->stash->{'error_message'} = "Kein Name des Autors angegeben."; return undef; } @@ -232,3 +232,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Controller/Books.pm b/lib/FrBr/Books/Controller/Books.pm index 267af57..0d404ce 100644 --- a/lib/FrBr/Books/Controller/Books.pm +++ b/lib/FrBr/Books/Controller/Books.pm @@ -546,3 +546,7 @@ it under the same terms as Perl itself. #------------------------------------------------------- 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Controller/Login.pm b/lib/FrBr/Books/Controller/Login.pm index 723cdb9..d1d8c5d 100644 --- a/lib/FrBr/Books/Controller/Login.pm +++ b/lib/FrBr/Books/Controller/Login.pm @@ -50,3 +50,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Controller/Root.pm b/lib/FrBr/Books/Controller/Root.pm index 0caeb5d..3eb1071 100644 --- a/lib/FrBr/Books/Controller/Root.pm +++ b/lib/FrBr/Books/Controller/Root.pm @@ -75,3 +75,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Controller/Verlag.pm b/lib/FrBr/Books/Controller/Verlag.pm index 4788632..aa10511 100644 --- a/lib/FrBr/Books/Controller/Verlag.pm +++ b/lib/FrBr/Books/Controller/Verlag.pm @@ -80,6 +80,146 @@ sub default : Private { } ## end sub default : +#------------------------------------------------------- + +=head2 form_new( ) + +Erstellen eines neuen Verlages. + +=cut + +sub form_new : Path('new') { + + my ( $self, $c ) = @_; + my $K = __PACKAGE__ . "::form_new(): "; + + $c->log->debug( $K . "aufgerufen." ) if $c->stash->{'debug_level'} > 2; + + $c->stash->{'menu_path'} = [] unless $c->stash->{'menu_path'}; + push @{ $c->stash->{'menu_path'} }, { + 'path' => $c->web_path("/verlag/new"), + 'name' => "Neu" + }; + + $c->stash->{'template'} = 'verlag/new.tt2'; + push @{$c->stash->{'cssfiles'}}, 'verlag/form.css'; + + $c->stash->{'error_message'} = ''; + +# $self->prepare_data_structures($c); + + $self->verlag_cgi2session($c); + + $c->stash->{'verlag_edit'} = {} unless $c->stash->{'verlag_edit'}; + $self->verlag_session2stash($c); + $c->stash->{'verlag_edit'}{'name'} = "Neuer Verlag" unless $c->stash->{'verlag_edit'}{'name'}; + + $c->stash->{'return_target_verlag_save'} = $c->session->{'return_target_verlag_save'} || $c->web_path('/verlag'); + + return 1 unless $c->request->params->{'verlag_form_sent'} and $c->request->params->{'do_save'}; + + return $self->do_save_verlag($c); + +} + +#------------------------------------------------------- + +sub do_save_verlag : Private { + + my ( $self, $c ) = @_; + my $K = __PACKAGE__ . "::do_save_verlag(): "; + + return 1 unless $self->check_formparams($c); + + eval { + die "Speichern des Verlags misslungen." unless save_verlag( $c, $c->stash->{'verlag_edit'} ); + }; + if ( $@ ) { + $c->stash->{'error_message'} = $@; + return undef; + } + + $c->stash->{'template'} = 'verlag/save_success.tt2'; + delete $c->session->{'verlag_data_edit'} if exists $c->session->{'verlag_data_edit'}; + delete $c->session->{'return_target_verlag_save'} if exists $c->session->{'return_target_verlag_save'}; + + return 1; + +} + +#------------------------------------------------------- + +sub check_formparams : Private { + + my ( $self, $c ) = @_; + my $K = __PACKAGE__ . "::check_formparams(): "; + + unless ( $c->stash->{'verlag_edit'} ) { + $c->stash->{'error_message'} = "Interner Fehler"; + return undef; + } + + unless ( $c->stash->{'verlag_edit'}{'name'} ) { + $c->stash->{'error_message'} = "Kein Name des Verlags angegeben."; + return undef; + } + + return 1; + +} + +#------------------------------------------------------- + +sub verlag_cgi2session : Private { + + my ( $self, $c ) = @_; + my $K = __PACKAGE__ . "::verlag_cgi2session(): "; + + return 1 unless $c->request->params->{'verlag_form_sent'}; + + $c->session->{'return_target_verlag_save'} = $c->request->params->{'return_target_form'} if $c->request->params->{'return_target_form'}; + + # Basis anlegen, wenn notwendig + $c->session->{'verlag_data_edit'} = {} unless $c->session->{'verlag_data_edit'}; + + # Autor-Id eintragen, wenn notwendig + $c->session->{'verlag_data_edit'}{'id'} = $c->request->params->{'verlag_id'} if $c->request->params->{'verlag_id'}; + + # Kurzname des Verlags + if ( defined $c->request->params->{'verlag_name'} ) { + my $name = $c->request->params->{'verlag_name'}; + $name =~ s/^\s+//; + $name =~ s/\s+$//; + $c->session->{'verlag_data_edit'}{'name'} = $name; + } + + # Langname des Verlags + if ( defined $c->request->params->{'verlag_name_long'} ) { + my $name = $c->request->params->{'verlag_name_long'}; + $name =~ s/^\s+//; + $name =~ s/\s+$//; + $c->session->{'verlag_data_edit'}{'name_long'} = $name; + } + + return 1; + +} + +#------------------------------------------------------- + +sub verlag_session2stash : Private { + + my ( $self, $c ) = @_; + my $K = __PACKAGE__ . "::verlag_session2stash(): "; + + $c->stash->{'verlag_edit'} = {} unless $c->stash->{'verlag_edit'}; + $c->stash->{'verlag_edit'}{'id'} = $c->session->{'verlag_data_edit'}{'id'} if $c->session->{'verlag_data_edit'}{'id'}; + $c->stash->{'verlag_edit'}{'name'} = $c->session->{'verlag_data_edit'}{'name'} if $c->session->{'verlag_data_edit'}{'name'}; + $c->stash->{'verlag_edit'}{'name_long'} = $c->session->{'verlag_data_edit'}{'name_long'} if $c->session->{'verlag_data_edit'}{'desc'}; + + return 1; + +} #------------------------------------------------------- @@ -95,3 +235,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db.pm b/lib/FrBr/Books/Db.pm index 779d4ee..45a6f44 100644 --- a/lib/FrBr/Books/Db.pm +++ b/lib/FrBr/Books/Db.pm @@ -17,3 +17,7 @@ __PACKAGE__->load_classes; # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Autor2buch.pm b/lib/FrBr/Books/Db/Autor2buch.pm index 2facd46..ae715c4 100644 --- a/lib/FrBr/Books/Db/Autor2buch.pm +++ b/lib/FrBr/Books/Db/Autor2buch.pm @@ -28,3 +28,7 @@ __PACKAGE__->might_have( 'autor' => 'FrBr::Books::Db::Autoren', { 'foreign.id' = # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Autoren.pm b/lib/FrBr/Books/Db/Autoren.pm index e640a97..0bab31d 100644 --- a/lib/FrBr/Books/Db/Autoren.pm +++ b/lib/FrBr/Books/Db/Autoren.pm @@ -25,3 +25,7 @@ __PACKAGE__->add_unique_constraint("autor_name", ["autor_name"]); # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Bindungsarten.pm b/lib/FrBr/Books/Db/Bindungsarten.pm index c0d4a61..666dbbf 100644 --- a/lib/FrBr/Books/Db/Bindungsarten.pm +++ b/lib/FrBr/Books/Db/Bindungsarten.pm @@ -18,3 +18,7 @@ __PACKAGE__->set_primary_key("id"); __PACKAGE__->add_unique_constraint("art_name", ["art_name"]); 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Buch2kategorie.pm b/lib/FrBr/Books/Db/Buch2kategorie.pm index a3feb21..624cb8a 100644 --- a/lib/FrBr/Books/Db/Buch2kategorie.pm +++ b/lib/FrBr/Books/Db/Buch2kategorie.pm @@ -27,3 +27,7 @@ __PACKAGE__->might_have( 'kategorie' => 'FrBr::Books::Db::Kategorien', { 'foreig # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Buch2serie.pm b/lib/FrBr/Books/Db/Buch2serie.pm index 2a81a2b..12b5179 100644 --- a/lib/FrBr/Books/Db/Buch2serie.pm +++ b/lib/FrBr/Books/Db/Buch2serie.pm @@ -29,3 +29,7 @@ __PACKAGE__->might_have( 'serie' => 'FrBr::Books::Db::Serien', { 'foreign.id' = # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Buecher.pm b/lib/FrBr/Books/Db/Buecher.pm index 1a195dd..8840bfa 100644 --- a/lib/FrBr/Books/Db/Buecher.pm +++ b/lib/FrBr/Books/Db/Buecher.pm @@ -38,3 +38,7 @@ __PACKAGE__->might_have( 'bindungsart' => 'FrBr::Books::Db::Bindungsarten', { 'f # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Kategorien.pm b/lib/FrBr/Books/Db/Kategorien.pm index bae38d7..e6878ba 100644 --- a/lib/FrBr/Books/Db/Kategorien.pm +++ b/lib/FrBr/Books/Db/Kategorien.pm @@ -24,3 +24,7 @@ __PACKAGE__->add_unique_constraint("kategorie_name", ["kategorie_name"]); # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Serien.pm b/lib/FrBr/Books/Db/Serien.pm index 65d3c50..3ffa546 100644 --- a/lib/FrBr/Books/Db/Serien.pm +++ b/lib/FrBr/Books/Db/Serien.pm @@ -25,3 +25,7 @@ __PACKAGE__->add_unique_constraint("serien_name", ["serien_name"]); # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Session.pm b/lib/FrBr/Books/Db/Session.pm index 0563b1d..7189892 100644 --- a/lib/FrBr/Books/Db/Session.pm +++ b/lib/FrBr/Books/Db/Session.pm @@ -24,3 +24,7 @@ __PACKAGE__->set_primary_key("id"); # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Users.pm b/lib/FrBr/Books/Db/Users.pm index 8dd53d0..e4beabc 100644 --- a/lib/FrBr/Books/Db/Users.pm +++ b/lib/FrBr/Books/Db/Users.pm @@ -34,3 +34,7 @@ __PACKAGE__->add_unique_constraint("login", ["login"]); # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Verlage.pm b/lib/FrBr/Books/Db/Verlage.pm index 463f602..9624090 100644 --- a/lib/FrBr/Books/Db/Verlage.pm +++ b/lib/FrBr/Books/Db/Verlage.pm @@ -25,3 +25,7 @@ __PACKAGE__->add_unique_constraint("name_short", ["name_short"]); # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Db/Waehrungen.pm b/lib/FrBr/Books/Db/Waehrungen.pm index 5eb0f54..7140fa9 100644 --- a/lib/FrBr/Books/Db/Waehrungen.pm +++ b/lib/FrBr/Books/Db/Waehrungen.pm @@ -26,3 +26,7 @@ __PACKAGE__->add_unique_constraint("waehrungs_kuerzel", ["waehrungs_kuerzel"]); # You can replace this text with custom content, and it will be preserved on regeneration 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Model/Schema.pm b/lib/FrBr/Books/Model/Schema.pm index 22cbc9e..16bed79 100644 --- a/lib/FrBr/Books/Model/Schema.pm +++ b/lib/FrBr/Books/Model/Schema.pm @@ -42,3 +42,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Plugin/ConfigLoader.pm b/lib/FrBr/Books/Plugin/ConfigLoader.pm index cb62899..2247463 100644 --- a/lib/FrBr/Books/Plugin/ConfigLoader.pm +++ b/lib/FrBr/Books/Plugin/ConfigLoader.pm @@ -100,3 +100,6 @@ sub finalize_config { #--------------------------------------------------------------------------- +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Plugin/WebPath.pm b/lib/FrBr/Books/Plugin/WebPath.pm index 935e660..98a42b4 100644 --- a/lib/FrBr/Books/Plugin/WebPath.pm +++ b/lib/FrBr/Books/Plugin/WebPath.pm @@ -36,3 +36,6 @@ sub web_path { 1; +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Util/Author.pm b/lib/FrBr/Books/Util/Author.pm index de295ff..cafd723 100644 --- a/lib/FrBr/Books/Util/Author.pm +++ b/lib/FrBr/Books/Util/Author.pm @@ -171,3 +171,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Util/Book.pm b/lib/FrBr/Books/Util/Book.pm index 90b1661..be9454e 100644 --- a/lib/FrBr/Books/Util/Book.pm +++ b/lib/FrBr/Books/Util/Book.pm @@ -246,3 +246,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Util/Category.pm b/lib/FrBr/Books/Util/Category.pm index 9b6f740..cc365fc 100644 --- a/lib/FrBr/Books/Util/Category.pm +++ b/lib/FrBr/Books/Util/Category.pm @@ -122,3 +122,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Util/Serie.pm b/lib/FrBr/Books/Util/Serie.pm index 1cecc61..b654b8f 100644 --- a/lib/FrBr/Books/Util/Serie.pm +++ b/lib/FrBr/Books/Util/Serie.pm @@ -143,3 +143,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Util/Verlag.pm b/lib/FrBr/Books/Util/Verlag.pm index c6d306c..e64a989 100644 --- a/lib/FrBr/Books/Util/Verlag.pm +++ b/lib/FrBr/Books/Util/Verlag.pm @@ -120,9 +120,9 @@ sub get_verlagsliste { sub save_verlag { - my $c = shift; - my $autor = shift; - my $K = __PACKAGE__ . "::save_verlag(): "; + my $c = shift; + my $verlag = shift; + my $K = __PACKAGE__ . "::save_verlag(): "; $c->log->debug( $K . "aufgerufen." ) if $c->stash->{'debug_level'} > 2; @@ -151,7 +151,7 @@ ENDE $sth->execute( $verlags_id, $name_short, $name_long, $name_short, $name_long ); }; - $storage->dbh_do( $save_func, $verlag->{'id'}, $verlag->{'name'}, $verlag->{'desc'} ); + $storage->dbh_do( $save_func, $verlag->{'id'}, $verlag->{'name'}, $verlag->{'name_long'} ); return $storage->last_insert_id(); @@ -171,3 +171,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/Util/Waehrung.pm b/lib/FrBr/Books/Util/Waehrung.pm index 8a67883..34ede56 100644 --- a/lib/FrBr/Books/Util/Waehrung.pm +++ b/lib/FrBr/Books/Util/Waehrung.pm @@ -129,3 +129,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Books/View/TtDefault.pm b/lib/FrBr/Books/View/TtDefault.pm index 45a9857..1c8eb06 100644 --- a/lib/FrBr/Books/View/TtDefault.pm +++ b/lib/FrBr/Books/View/TtDefault.pm @@ -45,3 +45,7 @@ it under the same terms as Perl itself. =cut 1; + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/lib/FrBr/Common.pm b/lib/FrBr/Common.pm index cc47329..31ea1fb 100644 --- a/lib/FrBr/Common.pm +++ b/lib/FrBr/Common.pm @@ -430,3 +430,5 @@ sub escape_html { #------------------------------------------------------------------------------------------ __END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/root/lib/config/colors.tt2 b/root/lib/config/colors.tt2 index 478cef4..59facbc 100644 --- a/root/lib/config/colors.tt2 +++ b/root/lib/config/colors.tt2 @@ -2,6 +2,8 @@ alle Farbdefinitionen + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + $Id$ $URL$ diff --git a/root/lib/config/main.tt2 b/root/lib/config/main.tt2 index 167fca1..eebd07f 100644 --- a/root/lib/config/main.tt2 +++ b/root/lib/config/main.tt2 @@ -1,5 +1,7 @@ [%# config/main + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + $Id$ $URL$ diff --git a/root/lib/config/url.tt2 b/root/lib/config/url.tt2 index ab28d80..0d73d7d 100644 --- a/root/lib/config/url.tt2 +++ b/root/lib/config/url.tt2 @@ -2,6 +2,8 @@ config/url.tt2 + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + # alle URL-Definitionen # # $Id$ diff --git a/root/lib/site/footer.tt2 b/root/lib/site/footer.tt2 index ae59d85..909a3de 100644 --- a/root/lib/site/footer.tt2 +++ b/root/lib/site/footer.tt2 @@ -1,6 +1,8 @@ [%# ** Template fuer Fusszeile ** + ** vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + ** ** $Id$ ** $URL$ ** -%] diff --git a/root/lib/site/header.tt2 b/root/lib/site/header.tt2 index 9a0d31b..0d6e2fd 100644 --- a/root/lib/site/header.tt2 +++ b/root/lib/site/header.tt2 @@ -1,6 +1,8 @@ [%# ** Template fuer Seitenkopf ** + ** vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + ** ** $Id$ ** $URL$ ** diff --git a/root/lib/site/html.tt2 b/root/lib/site/html.tt2 index c94e96e..3260c13 100644 --- a/root/lib/site/html.tt2 +++ b/root/lib/site/html.tt2 @@ -2,6 +2,8 @@ Template fuer HTML-Seite als Ganzes + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + $Id$ $URL$ diff --git a/root/lib/site/jscript.tt2 b/root/lib/site/jscript.tt2 index a298054..680870c 100644 --- a/root/lib/site/jscript.tt2 +++ b/root/lib/site/jscript.tt2 @@ -2,6 +2,8 @@ Template fuer Einbindung reines JavaScripts + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + $Id$ $URL$ diff --git a/root/lib/site/jsfiles.tt2 b/root/lib/site/jsfiles.tt2 index 75c9038..0a54a5a 100644 --- a/root/lib/site/jsfiles.tt2 +++ b/root/lib/site/jsfiles.tt2 @@ -2,6 +2,8 @@ Template fuer HTML-Seite als Ganzes + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + $Id$ $URL$ diff --git a/root/lib/site/layout.tt2 b/root/lib/site/layout.tt2 index 825119b..5eb1135 100644 --- a/root/lib/site/layout.tt2 +++ b/root/lib/site/layout.tt2 @@ -1,6 +1,8 @@ [%# ** Template fuer Allgemeines Seiten-Layout ** + ** vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + ** ** $Id$ ** $URL$ ** diff --git a/root/lib/site/statusbar.tt2 b/root/lib/site/statusbar.tt2 index eac6ec6..7ba9d0c 100644 --- a/root/lib/site/statusbar.tt2 +++ b/root/lib/site/statusbar.tt2 @@ -2,6 +2,8 @@ Template fuer den Statusbalken / Menuezeile + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + $Id$ $URL$ diff --git a/root/lib/site/wrapper.tt2 b/root/lib/site/wrapper.tt2 index 257b542..6562f7c 100644 --- a/root/lib/site/wrapper.tt2 +++ b/root/lib/site/wrapper.tt2 @@ -2,6 +2,8 @@ Template fuer HTML-Seite als Ganzes + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + $Id$ $URL$ diff --git a/root/src/autor/autor_form.tt2 b/root/src/autor/autor_form.tt2 index 709c233..f9ac637 100644 --- a/root/src/autor/autor_form.tt2 +++ b/root/src/autor/autor_form.tt2 @@ -1,6 +1,8 @@ [%# Template fuer Autorenangaben + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + $Id$ $URL$ diff --git a/root/src/autor/index.tt2 b/root/src/autor/index.tt2 index 31d1330..8298d56 100644 --- a/root/src/autor/index.tt2 +++ b/root/src/autor/index.tt2 @@ -2,8 +2,10 @@ index.tt2 - Index-Template (Menue) fuer Autoren-Dinge - #$Id$ - #$URL$ + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ -%]
diff --git a/root/src/autor/new.tt2 b/root/src/autor/new.tt2 index c52fbd4..824821a 100644 --- a/root/src/autor/new.tt2 +++ b/root/src/autor/new.tt2 @@ -1,8 +1,10 @@ [%# - Template fuer neuen Autor + Template fuer neuen Autor - $Id$ - $URL$ + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ -%] [%- autor_form_title = 'Neuer Autor' -%] diff --git a/root/src/autor/save_success.tt2 b/root/src/autor/save_success.tt2 index 0024240..5e88d9b 100644 --- a/root/src/autor/save_success.tt2 +++ b/root/src/autor/save_success.tt2 @@ -2,8 +2,10 @@ index.tt2 - Template fuer erfolgreiches Speichern des Autors - #$Id$ - #$URL$ + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ -%]
diff --git a/root/src/books/book_form.tt2 b/root/src/books/book_form.tt2 index f08907f..ebd694c 100644 --- a/root/src/books/book_form.tt2 +++ b/root/src/books/book_form.tt2 @@ -1,8 +1,10 @@ [%# - Template fuer Buchangaben + Template fuer Buchangaben - $Id$ - $URL$ + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ -%] diff --git a/root/src/books/index.tt2 b/root/src/books/index.tt2 index 2bed461..73d6a4a 100644 --- a/root/src/books/index.tt2 +++ b/root/src/books/index.tt2 @@ -2,8 +2,10 @@ message.tt2 - Universal-Template - #$Id$ - #$URL$ + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ -%]
diff --git a/root/src/books/list.tt2 b/root/src/books/list.tt2 index 6500469..5e10e21 100644 --- a/root/src/books/list.tt2 +++ b/root/src/books/list.tt2 @@ -1,6 +1,8 @@ [%# ** Template fuer Buecherliste ** + ** vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + ** ** $Id$ ** $URL$ ** -%] diff --git a/root/src/books/new.tt2 b/root/src/books/new.tt2 index 59abf93..a560371 100644 --- a/root/src/books/new.tt2 +++ b/root/src/books/new.tt2 @@ -1,8 +1,10 @@ [%# - Template fuer neues Buch + Template fuer neues Buch - $Id$ - $URL$ + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ -%] [%- book_form_title = 'Neues Buch' -%] diff --git a/root/src/error.tt2 b/root/src/error.tt2 index 66cf6c6..3d8f587 100644 --- a/root/src/error.tt2 +++ b/root/src/error.tt2 @@ -2,8 +2,10 @@ error.tt2 - Template zur Darstellung eines Template-Fehlers - #$Id$ - #$URL$ + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ -%] [% META title = 'Fehler' %] diff --git a/root/src/index.tt2 b/root/src/index.tt2 index d8f32b4..590aca2 100644 --- a/root/src/index.tt2 +++ b/root/src/index.tt2 @@ -2,8 +2,10 @@ message.tt2 - Universal-Template - #$Id$ - #$URL$ + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ -%] [%- META title = 'Willkommen in Franks Büchersammlung' -%] diff --git a/root/src/not_implemented.tt2 b/root/src/not_implemented.tt2 index 62da1b9..c9f34d2 100644 --- a/root/src/not_implemented.tt2 +++ b/root/src/not_implemented.tt2 @@ -1,8 +1,10 @@ -[%- # - # Template zur Darstellung eines noch nicht implementierten Features - # - # $Id$ - # $URL$ - # +[%# + Template zur Darstellung eines noch nicht implementierten Features + + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ + -%]

Das gewünschte Feature wurde leider noch nicht implementiert.

diff --git a/root/src/verlag/form.css b/root/src/verlag/form.css new file mode 100644 index 0000000..dca05ff --- /dev/null +++ b/root/src/verlag/form.css @@ -0,0 +1,10 @@ +[%# + # Template fuer Stylesheets Verlagsformulare + # + # $Id$ + # $URL$ + # +-%] +/* Stylesheets Verlags-Formulare */ + + diff --git a/root/src/verlag/index.tt2 b/root/src/verlag/index.tt2 index 4889e9e..24faddf 100644 --- a/root/src/verlag/index.tt2 +++ b/root/src/verlag/index.tt2 @@ -2,8 +2,10 @@ index.tt2 - Index-Template (Menue) fuer Verlags-Dinge - #$Id$ - #$URL$ + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ -%]
diff --git a/root/src/verlag/new.tt2 b/root/src/verlag/new.tt2 new file mode 100644 index 0000000..c13ea03 --- /dev/null +++ b/root/src/verlag/new.tt2 @@ -0,0 +1,16 @@ +[%# + + Template fuer neuen Verlag + + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ + +-%] +[%- book_form_title = 'Neuer Verlag' -%] +[% PROCESS verlag/verlag_form.tt2 %] + +
+

[% 'Zurück' %]

+
diff --git a/root/src/verlag/save_success.tt2 b/root/src/verlag/save_success.tt2 new file mode 100644 index 0000000..a370b43 --- /dev/null +++ b/root/src/verlag/save_success.tt2 @@ -0,0 +1,17 @@ +[%# + + save_success.tt2 - Template fuer erfolgreiches Speichern des Verlags + + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ + +-%] +
+ +Der Verlag "[% verlag_edit.name %] wurde erfolgreich gespeichert. + +

OK

+ +
diff --git a/root/src/verlag/verlag_form.tt2 b/root/src/verlag/verlag_form.tt2 new file mode 100644 index 0000000..05369b3 --- /dev/null +++ b/root/src/verlag/verlag_form.tt2 @@ -0,0 +1,39 @@ +[%# + + Template fuer Verlagsangaben + + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ + +-%] + + + +
+ +[%- IF verlag_edit.id %][% END %] + + + + + + + + + + + + + + + + +
[% verlag_form_title %]
 
Name des Verlags:
Kompletter Verlagsname:
 
+
+[%- IF error_message %] +
+Fehler: [% error_message %] +
+[% END -%] diff --git a/root/src/welcome.tt2 b/root/src/welcome.tt2 index 5518856..46c7e2d 100644 --- a/root/src/welcome.tt2 +++ b/root/src/welcome.tt2 @@ -2,8 +2,10 @@ message.tt2 - Universal-Template - #$Id$ - #$URL$ + vim: noai : ts=4 fenc=utf-8 filetype=html expandtab : + + $Id$ + $URL$ -%] [%- META title = 'Standard-Seite' %] diff --git a/script/frbr_books_cgi.pl b/script/frbr_books_cgi.pl index 82fb25b..1e8cda2 100755 --- a/script/frbr_books_cgi.pl +++ b/script/frbr_books_cgi.pl @@ -35,3 +35,7 @@ This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =cut + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/script/frbr_books_create.pl b/script/frbr_books_create.pl index 51a1e3d..3cb6a57 100755 --- a/script/frbr_books_create.pl +++ b/script/frbr_books_create.pl @@ -73,3 +73,7 @@ This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =cut + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/script/frbr_books_fastcgi.pl b/script/frbr_books_fastcgi.pl index 205800e..d899a1b 100755 --- a/script/frbr_books_fastcgi.pl +++ b/script/frbr_books_fastcgi.pl @@ -78,3 +78,7 @@ This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =cut + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/script/frbr_books_server.pl b/script/frbr_books_server.pl index f51db84..442232e 100755 --- a/script/frbr_books_server.pl +++ b/script/frbr_books_server.pl @@ -109,3 +109,7 @@ This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =cut + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : diff --git a/script/frbr_books_test.pl b/script/frbr_books_test.pl index 16e6f12..778e424 100755 --- a/script/frbr_books_test.pl +++ b/script/frbr_books_test.pl @@ -52,3 +52,7 @@ This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself. =cut + +__END__ + +# vim: noai : ts=4 fenc=utf-8 filetype=perl expandtab : -- 2.39.5