--- loncom/interface/londocs.pm 2009/02/04 14:45:51 1.337 +++ loncom/interface/londocs.pm 2009/02/12 11:35:07 1.340 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.337 2009/02/04 14:45:51 ehlerst Exp $ +# $Id: londocs.pm,v 1.340 2009/02/12 11:35:07 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1899,6 +1899,7 @@ END } my $orig_url = $url; + $orig_url=~s{http(:|:)//https(:|:)//}{https$2//}; my $external = ($url=~s{^http(|s)(:|:)//}{/adm/wrapper/ext/}); if ((!$isfolder) && ($residx) && ($folder!~/supplemental/) && (!$ispage)) { my $symb=&Apache::lonnet::symbclean( @@ -2888,7 +2889,7 @@ HIDDENFORM } # --------------------------------------------------------- Main tab structure my $activeClass = 1; - $r->print('
'); # --------------------------------------------------------- Standard documents if (($standard) && ($allowed) && (!$forcesupplement)) { my $active = 'style="display: none;"'; @@ -3166,6 +3167,7 @@ $r->print('
'); $active = 'style="display: block;"'; } $r->print('
'); + &changewarning($r); my $folder=$env{'form.folder'}; unless ($folder=~/^supplemental/) { $folder='supplemental'; @@ -3365,6 +3367,7 @@ sub generate_edit_table { $form .= '
  • '.&mt($orderhash{$name}).'
  • '; } } + $form .= ''; $form .= '
    '; foreach my $field (keys(%namehash)){ $form .= '';