version 1.337, 2009/02/04 14:45:51
|
version 1.343, 2009/02/16 10:33:32
|
Line 1899 END
|
Line 1899 END
|
} |
} |
|
|
my $orig_url = $url; |
my $orig_url = $url; |
|
$orig_url=~s{http(:|:)//https(:|:)//}{https$2//}; |
my $external = ($url=~s{^http(|s)(:|:)//}{/adm/wrapper/ext/}); |
my $external = ($url=~s{^http(|s)(:|:)//}{/adm/wrapper/ext/}); |
if ((!$isfolder) && ($residx) && ($folder!~/supplemental/) && (!$ispage)) { |
if ((!$isfolder) && ($residx) && ($folder!~/supplemental/) && (!$ispage)) { |
my $symb=&Apache::lonnet::symbclean( |
my $symb=&Apache::lonnet::symbclean( |
Line 2760 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 2888 HIDDENFORM
|
Line 2889 HIDDENFORM
|
} |
} |
# --------------------------------------------------------- Main tab structure |
# --------------------------------------------------------- Main tab structure |
my $activeClass = 1; |
my $activeClass = 1; |
$r->print('<div class="LC_ContentBoxSpecial"><ul class="LC_TabContent" id="mainnav">'); |
$r->print('<ul class="LC_TabContentBigger" id="mainnav">'); |
if (($standard) && ($allowed) && (!$forcesupplement)) { |
if (($standard) && ($allowed) && (!$forcesupplement)) { |
my $active = ''; |
my $active = ''; |
if($activeClass == 1){ |
if($activeClass == 1){ |
Line 2905 HIDDENFORM
|
Line 2906 HIDDENFORM
|
$r->print('<li '.$active.'onclick="javascript:showPage(this,\'Supplemental Course Documents\',\'mainnav\',\'maincoursedoc\');">'.&mt('Supplemental Course Documents').'</li>'); |
$r->print('<li '.$active.'onclick="javascript:showPage(this,\'Supplemental Course Documents\',\'mainnav\',\'maincoursedoc\');">'.&mt('Supplemental Course Documents').'</li>'); |
} |
} |
$r->print('<li onclick="javascript:showPage(this,\'Special Admin Options\',\'mainnav\',\'maincoursedoc\');">'.&mt('Special Admin Options').'</li>'); |
$r->print('<li onclick="javascript:showPage(this,\'Special Admin Options\',\'mainnav\',\'maincoursedoc\');">'.&mt('Special Admin Options').'</li>'); |
$r->print('</ul><div id="maincoursedoc" style="margin:0 0;padding:0 0;">'); |
$r->print('</ul><div class="LC_ContentBoxSpecial" style="margin:0 0;padding:0 0;"><div id="maincoursedoc" style="margin:0 0;padding:0 0;">'); |
# --------------------------------------------------------- Standard documents |
# --------------------------------------------------------- Standard documents |
if (($standard) && ($allowed) && (!$forcesupplement)) { |
if (($standard) && ($allowed) && (!$forcesupplement)) { |
my $active = 'style="display: none;"'; |
my $active = 'style="display: none;"'; |
Line 2928 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 3063 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 3114 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 3149 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 3350 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">'; |
Line 3365 sub generate_edit_table {
|
Line 3359 sub generate_edit_table {
|
$form .= '<li onclick="javascript:showPage(this, \''.$tid.$orderhash{$name}.'\', \''.$navigation.$tid.'\',\''.$content.$tid.'\');">'.&mt($orderhash{$name}).'</li>'; |
$form .= '<li onclick="javascript:showPage(this, \''.$tid.$orderhash{$name}.'\', \''.$navigation.$tid.'\',\''.$content.$tid.'\');">'.&mt($orderhash{$name}).'</li>'; |
} |
} |
} |
} |
|
$form .= '</ul>'; |
$form .= '<div id="'.$content.$tid.'" style="padding: 0 0; margin: 0 0;">'; |
$form .= '<div id="'.$content.$tid.'" style="padding: 0 0; margin: 0 0;">'; |
foreach my $field (keys(%namehash)){ |
foreach my $field (keys(%namehash)){ |
$form .= '<div id="'.$tid.$field.'" class="LC_ContentBox" style="display: none;">'.$namehash{$field}.'</div>'; |
$form .= '<div id="'.$tid.$field.'" class="LC_ContentBox" style="display: none;">'.$namehash{$field}.'</div>'; |