/[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 53 by ulpfr, Mon Dec 31 14:04:38 2001 UTC revision 57 by ulpfr, Fri Jan 4 14:50:26 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: Mon Dec 31 14:45:13 2001  # Last Modified On: Fri Jan  4 15:45:35 2002
8  # Language        : CPerl  # Language        : CPerl
9  # Update Count    : 84  # Update Count    : 85
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 47  sub FETCH { Line 47  sub FETCH {
47    my $fh = IO::File->new(join('/',$self->{Dir},$file,'desc.html'));    my $fh = IO::File->new(join('/',$self->{Dir},$file,'desc.html'));
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();    my $author = $fh->getline() if $fh;
51    return { desc => $desc, author => $author};    return { desc => $desc, author => $author};
52  }  }
53    
Legend:
Removed from v.53  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.26