$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', @@ -3137,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(''.$error.'
'); } -$r->print('