/[webpac2]/trunk/lib/WebPAC/Normalize.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/WebPAC/Normalize.pm

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

revision 752 by dpavlin, Sun Oct 8 18:21:26 2006 UTC revision 766 by dpavlin, Tue Oct 31 13:19:47 2006 UTC
# Line 1022  Easy as pie, right? Line 1022  Easy as pie, right?
1022  sub lookup {  sub lookup {
1023          my ($what, $database, $input, $key, $having) = @_;          my ($what, $database, $input, $key, $having) = @_;
1024    
1025          confess "lookup needs 5 arguments: what, database, input, key, having" unless ($#_ == 4);          confess "lookup needs 5 arguments: what, database, input, key, having\n" unless ($#_ == 4);
1026    
1027          warn "## lookup ($database, $input, $key)", $/ if ($debug > 1);          warn "## lookup ($database, $input, $key)", $/ if ($debug > 1);
1028          return unless (defined($lookup->{$database}->{$input}->{$key}));          return unless (defined($lookup->{$database}->{$input}->{$key}));

Legend:
Removed from v.752  
changed lines
  Added in v.766

  ViewVC Help
Powered by ViewVC 1.1.26