--- loncom/publisher/testbankimport.pm	2008/09/24 19:48:29	1.18
+++ loncom/publisher/testbankimport.pm	2009/03/26 16:50:12	1.20
@@ -1,5 +1,5 @@
 # Handler for parsing text upload problem descriptions into .problems
-# $Id: testbankimport.pm,v 1.18 2008/09/24 19:48:29 raeburn Exp $
+# $Id: testbankimport.pm,v 1.20 2009/03/26 16:50:12 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1773,8 +1773,9 @@ sub print_header {
     my $output = &Apache::loncommon::start_page($title,$javascript,
                                              {'add_entries' => $loadentries});
     if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
-        $output .= '<h3><span class="LC_error">'.&mt('Co-Author').': '.$uname.
-                   &mt(' at ').$udom.'</span></h3>';
+        $output .= '<p class="LC_warning">'
+                 .&mt('Co-Author [_1]:[_2]',$uname,$udom)
+                 .'</p>';
     }
     return $output;
 }
@@ -1817,7 +1818,7 @@ sub handler {
     my ($fn,$filename);
     if ($env{'form.filename'}) {
         $fn=$env{'form.filename'};
-        $fn=~s/^http\:\/\/[^\/]+\///;
+        $fn=~s/^https?\:\/\/[^\/]+\///;
         $fn=~s/^\///;
         $fn=~s{(~|priv/)($LONCAPA::username_re)}{};
         $fn=~s/\/+/\//g;