~rgrjr/bookworm

20b8abc61b50cfad729809c14944495857c60bc6 — Bob Rogers 3 years ago cac6bd7 fix-author-order-1
* Bookworm/Book.pm:
   + (web_update_authorship):  Bug fix:  Give the "[Add author]" link a
     proper return address, so we don't go to the book home page.
1 files changed, 6 insertions(+), 3 deletions(-)

M Bookworm/Book.pm
M Bookworm/Book.pm => Bookworm/Book.pm +6 -3
@@ 309,9 309,12 @@ sub web_update_authorship {
	       type => 'self_link' },
	     qw(attribution_order role) ],
	   $authorships), "\n");
    print($q->p($q->a({ href => $q->oligo_query('add-book-author.cgi',
						book_id => $self->book_id) },
		      '[Add author]')),
    my $return_address = $q->oligo_query('book-authorship.cgi',
					 book_id => $self->book_id);
    my $add_author = $q->oligo_query('add-book-author.cgi',
				     return_address => $return_address,
				     book_id => $self->book_id);
    print($q->p($q->a({ href => $add_author }, '[Add author]')),
	  "\n");
    print($q->make_selection_op_buttons
	      (commit => 1, 'Delete', 'To top', 'To bottom',