/[SQLSession]/trunk/lib/SQLSession/Dispatcher.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/SQLSession/Dispatcher.pm

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

revision 75 by dpavlin, Sun Jan 28 11:36:37 2007 UTC revision 78 by dpavlin, Mon Jan 29 20:11:20 2007 UTC
# Line 39  before '*' => run { Line 39  before '*' => run {
39  };  };
40    
41    
   
42  under qr{sql/(\d+)} => run {  under qr{sql/(\d+)} => run {
43    
44          my $q = SQLSession::Model::Query->new();          my $q = SQLSession::Model::Query->new();
# Line 47  under qr{sql/(\d+)} => run { Line 46  under qr{sql/(\d+)} => run {
46    
47  #       warn "q = ",dump( $q );  #       warn "q = ",dump( $q );
48    
49          set sql_query => $q->sql_query;          set q => $q;
         set name => $q->name;  
         set database => $q->on_database->id;  
50    
51          show '/sql';          show '/sql';
52    
Legend:
Removed from v.75  
changed lines
  Added in v.78
  ViewVC Help
Powered by ViewVC 1.1.26