Changeset 6 in bookmarks for trunk/BookmarkApp.pm
- Timestamp:
- 03/23/12 22:43:34 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/BookmarkApp.pm
r5 r6 4 4 use base qw{CGI::Application}; 5 5 6 use CGI::Application::Plugin::TT; 7 6 8 use DBI; 7 9 use Encode; 8 10 use JSON; 9 use Template;10 11 use Bookmarks; 11 12 my $template = Template->new;13 12 14 13 my $dbname = 'new.db'; … … 52 51 -status => 404, 53 52 ); 54 $template->process(53 return $self->tt_process( 55 54 'bookmark.tt', 56 55 $bookmark, 57 \my $output,58 56 ); 59 return $output;60 57 } 61 58 } … … 88 85 $base_url .= '/' if $base_url =~ m{/bookmarks$}; 89 86 90 $template->process(87 return $self->tt_process( 91 88 'list.tt', 92 89 { … … 97 94 resources => \@resources, 98 95 }, 99 \my $output,100 96 ); 101 return $output;102 97 } 103 98 } … … 127 122 -charset => 'UTF-8', 128 123 ); 129 $template->process(124 return $self->tt_process( 130 125 'bookmark.tt', 131 126 $bookmark, 132 \my $output,133 127 ); 134 return $output;135 128 } 136 129 } else {
Note: See TracChangeset
for help on using the changeset viewer.