-$values{'author'}, $values{'owner'}
-
-Subject: $values{'subject'}
-Keyword(s): $values{'keywords'}
-Notes: $values{'notes'}
-MIME Type: $values{'mimetag'}
-Language: $values{'language'}
-Copyright/Distribution: $values{'copyrighttag'}
-
-$values{'shortabstract'} -
-\n";
+ $result .= ''.$values{'author'}.','.
+ ' '.$values{'owner'}.'
';
+ foreach my $field
+ (
+ { name=>'subject',
+ translate => 'Subject: [_1]',},
+ { name=>'keywords',
+ translate => 'Keywords: [_1]',},
+ { name=>'notes',
+ translate => 'Notes: [_1]',},
+ { name=>'mimetag',
+ translate => 'MIME Type: [_1]',},
+ { name=>'standards',
+ translate => 'Standards:[_1]',},
+ { name=>'copyrighttag',
+ translate => 'Copyright/Distribution: [_1]',},
+ { name=>'stdno',
+ translate => 'Number of Students: [_1]',},
+ { name=>'avetries',
+ translate => 'Average Tries: [_1]',},
+ { name=>'disc',
+ translate => 'Degree of Discrimination: [_1]',},
+ { name=>'difficulty',
+ translate => 'Degree of Difficulty: [_1]',},
+ { name=>'clear',
+ translate => 'Clear: [_1]',},
+ { name=>'depth',
+ translate => 'Depth: [_1]',},
+ { name=>'helpful',
+ translate => 'Helpful: [_1]',},
+ { name=>'correct',
+ translate => 'Correcy: [_1]',},
+ { name=>'technical',
+ translate => 'Technical: [_1]',},
+ ) {
+ $result.= &mt($field->{'translate'},$values{$field->{'name'}}).
+ "
\n";
+ }
+ $result .= "
'.$values{'shortabstract'}.'
'; + $result .= '