--- loncom/interface/londocs.pm 2009/02/12 15:45:38 1.341
+++ loncom/interface/londocs.pm 2009/02/14 13:27:01 1.342
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.341 2009/02/12 15:45:38 ehlerst Exp $
+# $Id: londocs.pm,v 1.342 2009/02/14 13:27:01 ehlerst Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2929,16 +2929,6 @@ HIDDENFORM
} else {
#$postexec='self.close();';
}
-# $hadchanges=0;
-# my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
-# if ($error) {
-# $r->print('
'.$error.'
');
-# }
-# if ($hadchanges) {
-# &mark_hash_old();
-# }
-#
-# &changewarning($r,$postexec);
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
'.sequence';
my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
@@ -3069,6 +3059,8 @@ NASOFORM
NROSTFORM
+my $specialdocumentsform;
+
unless ($env{'form.pagepath'}) {
my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
@@ -3120,23 +3112,16 @@ NSYLFORM
NGFFORM
-
- my $specialdocumentsform=(<$newfolderform
-
$newpageform
-
$newsylform
-
$newnavform
-
$newsmppageform
-
$newsmpproblemform
-
$newdropboxform
-
$newexuploadform
-
$newbulform
-
$newaboutmeform
-
$newaboutsomeoneform
-
$newgroupfileform
-
$newrosterform
-SPDOFORM
-
+ $specialdocumentsform="
$newfolderform
$newpageform
$newsylform
$newgroupfileform";
+ }
+ $specialdocumentsform.="
$newnavform
$newsmppageform
+
$newsmpproblemform
$newdropboxform
+
$newexuploadform
$newbulform
+
$newaboutmeform
$newaboutsomeoneform
+
$newrosterform";
+if($env{'form.pagepath'}) {
+ $specialdocumentsform="
$newsmpproblemform
$newexuploadform";
+}
my %orderhash = (
'aa' => 'New Document',
@@ -3155,7 +3140,7 @@ my $tid='1';
my $content='content';
my $navigation='navigation';
my $varcd = 'Main Course Documents';
-$r->print(&generate_edit_table($tid,$content,$navigation,$varcd,\%namehash,\%orderhash));
+$r->print(&generate_edit_table($tid,$content,$navigation,$varcd,\%namehash,\%orderhash));
$hadchanges=0;
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
if ($error) {
@@ -3167,7 +3152,6 @@ $r->print(&generate_edit_table($tid,$con
&changewarning($r,'');
$r->print('');
- }
if ($env{'form.pagepath'}) {
}
}
@@ -3362,11 +3346,9 @@ ENDOPTIONFORM
sub generate_edit_table {
my ($tid,$content,$navigation,$varcd,$namehash_ref,$orderhash_ref) = @_;
- my %namehash = %{$namehash_ref}; #name verlinkt mit id
- my %orderhash = %{$orderhash_ref}; #name mit kürzel verlinkt mit name
- my $form;
-
-
+ my %namehash = %{$namehash_ref};
+ my %orderhash = %{$orderhash_ref};
+ my $form;
$form = ''.&mt($varcd).'
';
$form .= '