--- loncom/interface/londocs.pm 2009/01/30 09:05:36 1.330
+++ loncom/interface/londocs.pm 2009/01/30 10:02:46 1.331
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.330 2009/01/30 09:05:36 tempelho Exp $
+# $Id: londocs.pm,v 1.331 2009/01/30 10:02:46 muellerd Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3148,6 +3148,7 @@ $newrosterform
ENDFORM
$r->print($specialdocumentsform);
+
my %orderhash = (
'aa_eins' => 'New Document',
'bb_zwei' => 'Published Documents',
@@ -3162,7 +3163,9 @@ my %namehash = (
'More Options' => $extresourcesform.'
'.$imspform.'
'.$recoverform,
'drei' => 'dr',
);
-$r->print(&generate_edit_table(\%namehash,\%orderhash));
+my $varcd = 'Course Documents';
+$r->print(&generate_edit_table($varcd,\%namehash,\%orderhash));
+
}
if ($env{'form.pagepath'}) {
$r->print(<'.&mt('Upload Course Documents').'
';
+
+ #foreach my $id (keys(%tablehash)){
+ $form = ''.&mt('Upload '.$varcd).'
';
+
$form .= '
';
foreach my $name (sort(keys(%orderhash))){
if($name eq 'zz_hide'){
@@ -3388,6 +3396,7 @@ sub generate_edit_table {
$form .= ''.$namehash{$field}.'
';
}
$form .= '
';
+#}
return $form;
}