Subversion Repositories wimsdev

Rev

Rev 6959 | Rev 6985 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6959 Rev 6967
Line 11... Line 11...
11 
my %ref= ();
 11 
my %ref= ();
12 
my $ref=\%ref;
 12 
my $ref=\%ref;
13 
my @list=listclass();
 13 
my @list=listclass();
14 
my $dirout="../class";
 14 
my $dirout="../class";
15 
$ref=refclass(@list);
 15 
$ref=refclass(@list);
16 
my @Key = ('supervisor','domain','level','lang','institution','description','addr','keywords','title', 'info');
 16 
my @Key = ('supervisor','domain','level','lang','institution','description','addr','keywords','title', 'information');
17 
my @Lang= ('fr','en','it','nl') ;
 17 
my @Lang= ('fr','en','it','nl') ;
18 
my %T = ('version' => 'version',
 18 
my %T = ('version' => 'version',
19 
'lang' => 'language',
 19 
'lang' => 'language',
20 
'description' => 'title',
 20 
'description' => 'title',
21 
'supervisor' => 'author',
 21 
'supervisor' => 'author',
22 
'institution' => 'description',
 22 
'institution' => 'description',
23 
'level' => 'level',
 23 
'level' => 'level',
24 
'info' => 'info',
 24 
'information' => 'information',
25 
);
 25 
);
26 
my %keywords=();
 26 
my %keywords=();
27 
 
 27 
 
28 
for my $key (@Key) {
 28 
for my $key (@Key) {
29 
  my $text='';
 29 
  my $text='';