/[Z3950-HTML-Scraper]/server.pl
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 /server.pl

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

revision 13 by dpavlin, Fri Oct 22 21:12:46 2010 UTC revision 14 by dpavlin, Fri Oct 22 21:31:08 2010 UTC
# Line 168  sub render { Line 168  sub render {
168    
169  print "render ", dump($this);  print "render ", dump($this);
170    
171    my $from = 'COBISS';
172    
173    my $usemap = eval "${from}::usemap;";
174    warn "# $from usermap ",dump($usemap);
175    
176      my $attributes = {};      my $attributes = {};
177      my $prefix     = "";      my $prefix     = "";
178      foreach my $attr ( @{ $this->{attributes} } ) {      foreach my $attr ( @{ $this->{attributes} } ) {
# Line 176  print "render ", dump($this); Line 181  print "render ", dump($this);
181          $attributes->{$type} = $value;          $attributes->{$type} = $value;
182      }      }
183      if ( defined( my $use = $attributes->{1} ) ) {      if ( defined( my $use = $attributes->{1} ) ) {
184          if ( defined( my $field = COBISS::usemap($use) ) ) {          if ( defined( my $field = $usemap->{$use} ) ) {
185              $prefix = $field;              $prefix = $field;
186          }          }
187          else {          else {
Legend:
Removed from v.13  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.26