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

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

revision 887 by dpavlin, Thu Jun 21 23:54:42 2007 UTC revision 888 by dpavlin, Mon Sep 3 15:28:33 2007 UTC
# Line 98  sub new { Line 98  sub new {
98    
99                  # this is a book description node                  # this is a book description node
100                  my $etext_no = $booknode->getAttribute ('ID');                  my $etext_no = $booknode->getAttribute ('ID');
101                  $etext_no =~ s/^etext//;                  $etext_no =~ s/^etext// if $etext_no;
102    
103                  my $row = {                  my $row = {
104                          '001' => [ $etext_no ],                          '001' => [ $etext_no ],
Legend:
Removed from v.887  
changed lines
  Added in v.888
  ViewVC Help
Powered by ViewVC 1.1.26