/[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 778 by dpavlin, Sun Nov 5 14:51:59 2006 UTC revision 779 by dpavlin, Sun Nov 5 14:52:04 2006 UTC
# Line 100  sub new { Line 100  sub new {
100                  $etext_no =~ s/^etext//;                  $etext_no =~ s/^etext//;
101    
102                  my $row = {                  my $row = {
                         '000' => [ $mfn ],  
103                          '001' => [ $etext_no ],                          '001' => [ $etext_no ],
104                  };                  };
105    

Legend:
Removed from v.778  
changed lines
  Added in v.779

  ViewVC Help
Powered by ViewVC 1.1.26