version 1.330, 2009/01/30 09:05:36
|
version 1.331, 2009/01/30 10:02:46
|
Line 3148 $newrosterform
|
Line 3148 $newrosterform
|
ENDFORM |
ENDFORM |
|
|
$r->print($specialdocumentsform); |
$r->print($specialdocumentsform); |
|
|
my %orderhash = ( |
my %orderhash = ( |
'aa_eins' => 'New Document', |
'aa_eins' => 'New Document', |
'bb_zwei' => 'Published Documents', |
'bb_zwei' => 'Published Documents', |
Line 3162 my %namehash = (
|
Line 3163 my %namehash = (
|
'More Options' => $extresourcesform.'<br />'.$imspform.'<br />'.$recoverform, |
'More Options' => $extresourcesform.'<br />'.$imspform.'<br />'.$recoverform, |
'drei' => 'dr', |
'drei' => 'dr', |
); |
); |
$r->print(&generate_edit_table(\%namehash,\%orderhash)); |
my $varcd = 'Course Documents'; |
|
$r->print(&generate_edit_table($varcd,\%namehash,\%orderhash)); |
|
|
} |
} |
if ($env{'form.pagepath'}) { |
if ($env{'form.pagepath'}) { |
$r->print(<<ENDBLOCK); |
$r->print(<<ENDBLOCK); |
Line 3369 ENDOPTIONFORM
|
Line 3372 ENDOPTIONFORM
|
|
|
|
|
sub generate_edit_table { |
sub generate_edit_table { |
my ($namehash_ref,$orderhash_ref) = @_; |
my ($varcd,$namehash_ref,$orderhash_ref) = @_; |
#my %optionhash = %{$optionhash_ref}; #id verlinkt mit inhalt |
#my %optionhash = %{$optionhash_ref}; #id verlinkt mit inhalt |
|
#my %tablehash = %{$tablehash_ref}; |
my %namehash = %{$namehash_ref}; #name verlinkt mit id |
my %namehash = %{$namehash_ref}; #name verlinkt mit id |
my %orderhash = %{$orderhash_ref}; #name mit kürzel verlinkt mit name |
my %orderhash = %{$orderhash_ref}; #name mit kürzel verlinkt mit name |
|
#my %tablehash = %{$tablehash_ref}; |
my $form; |
my $form; |
$form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt('Upload Course Documents').'</h4>'; |
|
|
#foreach my $id (keys(%tablehash)){ |
|
$form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt('Upload '.$varcd).'</h4>'; |
|
|
$form .= '<ul class="LC_TabContent">'; |
$form .= '<ul class="LC_TabContent">'; |
foreach my $name (sort(keys(%orderhash))){ |
foreach my $name (sort(keys(%orderhash))){ |
if($name eq 'zz_hide'){ |
if($name eq 'zz_hide'){ |
Line 3388 sub generate_edit_table {
|
Line 3396 sub generate_edit_table {
|
$form .= '<div id="'.$field.'" class="LC_ContentBox" style="display: none;">'.$namehash{$field}.'</div>'; |
$form .= '<div id="'.$field.'" class="LC_ContentBox" style="display: none;">'.$namehash{$field}.'</div>'; |
} |
} |
$form .= '</div></div>'; |
$form .= '</div></div>'; |
|
#} |
return $form; |
return $form; |
} |
} |
|
|