--- loncom/interface/londocs.pm 2009/02/12 11:35:07 1.340
+++ loncom/interface/londocs.pm 2009/02/16 10:33:32 1.343
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.340 2009/02/12 11:35:07 raeburn Exp $
+# $Id: londocs.pm,v 1.343 2009/02/16 10:33:32 biermanm Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2761,7 +2761,7 @@ sub handler {
'extr' => 'External Resource',
'syll' => 'Syllabus',
'navc' => 'Navigate Contents',
- 'sipa' => 'Simple Page',
+ 'sipa' => 'Simple Course Page',
'sipr' => 'Simple Problem',
'drbx' => 'Drop Box',
'scuf' => 'Score Upload Form',
@@ -2929,11 +2929,6 @@ HIDDENFORM
} else {
#$postexec='self.close();';
}
- $hadchanges=0;
- if ($hadchanges) {
- &mark_hash_old();
- }
- &changewarning($r,$postexec);
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
'.sequence';
my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
@@ -3064,6 +3059,8 @@ NASOFORM
NROSTFORM
+my $specialdocumentsform;
+
unless ($env{'form.pagepath'}) {
my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
@@ -3115,23 +3112,16 @@ NSYLFORM
NGFFORM
-
- my $specialdocumentsform=(<
$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',
@@ -3150,13 +3140,18 @@ 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));
-my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
+$r->print(&generate_edit_table($tid,$content,$navigation,$varcd,\%namehash,\%orderhash));
+ $hadchanges=0;
+ my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
if ($error) {
$r->print('
'.$error.'
'); } + if ($hadchanges) { + &mark_hash_old(); + } + + &changewarning($r,''); $r->print(''); - } if ($env{'form.pagepath'}) { } } @@ -3167,7 +3162,6 @@ $r->print(''); $active = 'style="display: block;"'; } $r->print('