Parent Directory | Revision Log | Patch
revision 1.17 by dpavlin, Tue Jun 25 13:42:54 2002 UTC | revision 1.18 by dpavlin, Wed Jul 17 16:55:24 2002 UTC | |
---|---|---|
# | Line 49 while(<CF>) { | Line 49 while(<CF>) { |
49 | if (/^database-name:([^=]+)=(.*)$/) { | if (/^database-name:([^=]+)=(.*)$/) { |
50 | my ($db_name,$db_desc) = ($1,$2); | my ($db_name,$db_desc) = ($1,$2); |
51 | $db_desc=~s/^##\w+##//g; | $db_desc=~s/^##\w+##//g; |
52 | $DatabaseDescriptions{$db_name}=$db_desc; | # c_iso_852 is a cludge so that output format would be |
53 | # correct 8859-2 again... | |
54 | $DatabaseDescriptions{$db_name}=c_iso_852($db_desc); | |
55 | } | } |
56 | } | } |
57 | close(CF); | close(CF); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |