version 1.340, 2009/02/12 11:35:07
|
version 1.343, 2009/02/16 10:33:32
|
Line 2761 sub handler {
|
Line 2761 sub handler {
|
'extr' => 'External Resource', |
'extr' => 'External Resource', |
'syll' => 'Syllabus', |
'syll' => 'Syllabus', |
'navc' => 'Navigate Contents', |
'navc' => 'Navigate Contents', |
'sipa' => 'Simple Page', |
'sipa' => 'Simple Course Page', |
'sipr' => 'Simple Problem', |
'sipr' => 'Simple Problem', |
'drbx' => 'Drop Box', |
'drbx' => 'Drop Box', |
'scuf' => 'Score Upload Form', |
'scuf' => 'Score Upload Form', |
Line 2929 HIDDENFORM
|
Line 2929 HIDDENFORM
|
} else { |
} else { |
#$postexec='self.close();'; |
#$postexec='self.close();'; |
} |
} |
$hadchanges=0; |
|
if ($hadchanges) { |
|
&mark_hash_old(); |
|
} |
|
&changewarning($r,$postexec); |
|
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. |
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. |
'.sequence'; |
'.sequence'; |
my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. |
my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. |
Line 3064 NASOFORM
|
Line 3059 NASOFORM
|
</form> |
</form> |
NROSTFORM |
NROSTFORM |
|
|
|
my $specialdocumentsform; |
|
|
unless ($env{'form.pagepath'}) { |
unless ($env{'form.pagepath'}) { |
my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"'); |
my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"'); |
|
|
Line 3115 NSYLFORM
|
Line 3112 NSYLFORM
|
</form> |
</form> |
NGFFORM |
NGFFORM |
|
|
|
$specialdocumentsform="<br />$newfolderform<br />$newpageform<br />$newsylform<br />$newgroupfileform"; |
my $specialdocumentsform=(<<SPDOFORM); |
} |
<br />$newfolderform |
$specialdocumentsform.="<br />$newnavform<br />$newsmppageform |
<br />$newpageform |
<br />$newsmpproblemform<br />$newdropboxform |
<br />$newsylform |
<br />$newexuploadform<br />$newbulform |
<br />$newnavform |
<br />$newaboutmeform<br />$newaboutsomeoneform |
<br />$newsmppageform |
<br />$newrosterform"; |
<br />$newsmpproblemform |
if($env{'form.pagepath'}) { |
<br />$newdropboxform |
$specialdocumentsform="<br />$newsmpproblemform<br />$newexuploadform"; |
<br />$newexuploadform |
} |
<br />$newbulform |
|
<br />$newaboutmeform |
|
<br />$newaboutsomeoneform |
|
<br />$newgroupfileform |
|
<br />$newrosterform |
|
SPDOFORM |
|
|
|
|
|
my %orderhash = ( |
my %orderhash = ( |
'aa' => 'New Document', |
'aa' => 'New Document', |
Line 3150 my $tid='1';
|
Line 3140 my $tid='1';
|
my $content='content'; |
my $content='content'; |
my $navigation='navigation'; |
my $navigation='navigation'; |
my $varcd = 'Main Course Documents'; |
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)); |
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type); |
$hadchanges=0; |
|
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type); |
if ($error) { |
if ($error) { |
$r->print('<p><span class="LC_error">'.$error.'</span></p>'); |
$r->print('<p><span class="LC_error">'.$error.'</span></p>'); |
} |
} |
|
if ($hadchanges) { |
|
&mark_hash_old(); |
|
} |
|
|
|
&changewarning($r,''); |
$r->print('</div>'); |
$r->print('</div>'); |
} |
|
if ($env{'form.pagepath'}) { |
if ($env{'form.pagepath'}) { |
} |
} |
} |
} |
Line 3167 $r->print('</div>');
|
Line 3162 $r->print('</div>');
|
$active = 'style="display: block;"'; |
$active = 'style="display: block;"'; |
} |
} |
$r->print('<div class="LC_ContentBox" id="Supplemental Course Documents" '.$active.'>'); |
$r->print('<div class="LC_ContentBox" id="Supplemental Course Documents" '.$active.'>'); |
&changewarning($r); |
|
my $folder=$env{'form.folder'}; |
my $folder=$env{'form.folder'}; |
unless ($folder=~/^supplemental/) { |
unless ($folder=~/^supplemental/) { |
$folder='supplemental'; |
$folder='supplemental'; |
Line 3352 ENDOPTIONFORM
|
Line 3346 ENDOPTIONFORM
|
|
|
sub generate_edit_table { |
sub generate_edit_table { |
my ($tid,$content,$navigation,$varcd,$namehash_ref,$orderhash_ref) = @_; |
my ($tid,$content,$navigation,$varcd,$namehash_ref,$orderhash_ref) = @_; |
my %namehash = %{$namehash_ref}; #name verlinkt mit id |
my %namehash = %{$namehash_ref}; |
my %orderhash = %{$orderhash_ref}; #name mit kürzel verlinkt mit name |
my %orderhash = %{$orderhash_ref}; |
my $form; |
my $form; |
|
|
|
|
|
|
$form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt($varcd).'</h4>'; |
$form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt($varcd).'</h4>'; |
$form .= '<ul id="'.$navigation.$tid.'" class="LC_TabContent">'; |
$form .= '<ul id="'.$navigation.$tid.'" class="LC_TabContent">'; |