[Bio] / WebApplication / SimpleWebPage.pm Repository:
ViewVC logotype

Diff of /WebApplication/SimpleWebPage.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Mon Nov 14 19:47:46 2011 UTC revision 1.3, Tue Nov 15 18:04:03 2011 UTC
# Line 52  Line 52 
52      my $user = $application->session->user;      my $user = $application->session->user;
53    
54      my $page = $cgi->param('page');      my $page = $cgi->param('page');
55      my $url = $application->url . "?page=$page";      my $url = $application->url;
56    
57      my $username = ref($user) ? $user->login : "";      my $username = ref($user) ? $user->login : "";
58      my $output = $self->page_content($fig, $cgi, $username, $url);  
59        local $SIG{__DIE__} = sub {
60            my $trace = Devel::StackTrace->new(frame_filter => sub {
61                my($dat) = @_;
62                return ($dat->{args}->[0] eq 'Devel::StackTrace') ? 0 : 1;
63            });
64    
65            die $trace->as_html;
66        };
67    
68        my $output;
69    
70        eval {
71            $output = $self->page_content($fig, $cgi, $username, $url);
72        };
73        if ($@)
74        {
75            $output = "<h1>Error during execution of page $page:</h1>" . $@;
76        }
77    
78      return $output;      return $output;
79  }  }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3