Changeset 21856 for main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm
- Timestamp:
- 2010-03-31T23:08:43+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm
r21411 r21856 138 138 139 139 140 141 sub write_infodb_rawentry 142 { 143 144 my $infodb_handle = shift(@_); 145 my $infodb_key = shift(@_); 146 my $infodb_val = shift(@_); 147 148 print $infodb_handle "[$infodb_key]\n"; 149 print $infodb_handle "$infodb_val\n"; 150 print $infodb_handle '-' x 70, "\n"; 151 } 152 153 154 140 155 sub delete_infodb_entry 141 156 {
Note:
See TracChangeset
for help on using the changeset viewer.