--- 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 .= '