/[wait]/cvs-head/lib/WAIT/Document/Ora.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 /cvs-head/lib/WAIT/Document/Ora.pm

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

revision 59 by ulpfr, Fri Jan 4 14:50:26 2002 UTC revision 60 by ulpfr, Fri Jan 4 15:10:53 2002 UTC
# Line 4  Line 4 
4  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
5  # Created On      : Mon Sep 16 19:04:37 1996  # Created On      : Mon Sep 16 19:04:37 1996
6  # Last Modified By: Ulrich Pfeifer  # Last Modified By: Ulrich Pfeifer
7  # Last Modified On: Fri Jan  4 15:45:35 2002  # Last Modified On: Fri Jan  4 15:56:11 2002
8  # Language        : CPerl  # Language        : CPerl
9  # Update Count    : 85  # Update Count    : 86
10  # Status          : Unknown, Use with caution!  # Status          : Unknown, Use with caution!
11  #  #
12  # Copyright (c) 1996-1997, Ulrich Pfeifer  # Copyright (c) 1996-1997, Ulrich Pfeifer
# Line 48  sub FETCH { Line 48  sub FETCH {
48    my $desc = $fh->getline();    my $desc = $fh->getline();
49    $fh = IO::File->new(join('/',$self->{Dir},$file,'author.html'));    $fh = IO::File->new(join('/',$self->{Dir},$file,'author.html'));
50    my $author = $fh->getline() if $fh;    my $author = $fh->getline() if $fh;
51    return { desc => $desc, author => $author};    $fh = IO::File->new(join('/',$self->{Dir},$file,'index.html'));
52      my $index = $fh->getline() if $fh;
53      return { desc => $desc, author => $author, index => $index};
54  }  }
55    
56  sub FIRSTKEY {  sub FIRSTKEY {
Legend:
Removed from v.59  
changed lines
  Added in v.60
  ViewVC Help
Powered by ViewVC 1.1.26