--- loncom/interface/slotrequest.pm 2009/08/05 13:40:10 1.100 +++ loncom/interface/slotrequest.pm 2009/08/05 16:12:53 1.101 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler for requesting to have slots added to a students record # -# $Id: slotrequest.pm,v 1.100 2009/08/05 13:40:10 bisitz Exp $ +# $Id: slotrequest.pm,v 1.101 2009/08/05 16:12:53 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2064,25 +2064,29 @@ sub display_filter { sub upload_start { my ($r)=@_; - $r->print(&Apache::grades::checkforfile_js()); - my $result.=''."\n"; - $result.='
'."\n"; - $result.=' '. - &mt('Specify a file containing the slot definitions.'). - '
'."\n"; - my $upfile_select=&Apache::loncommon::upfile_select_html(); - my $ignore=&mt('Ignore First Line'); - $result.=< - -$upfile_select -
- - -ENDUPFORM - $result.='
'."\n"; - $result.=''."\n"; - $r->print($result); + $r->print( + &Apache::grades::checkforfile_js() + .'

'.&mt('Specify a file containing the slot definitions.').'

' + .'
' + .'' + .&Apache::lonhtmlcommon::start_pick_box() + .&Apache::lonhtmlcommon::row_title(&mt('File')) + .&Apache::loncommon::upfile_select_html() + .&Apache::lonhtmlcommon::row_closure() + .&Apache::lonhtmlcommon::row_title( + '') + .'' + .&Apache::lonhtmlcommon::row_closure(1) + .&Apache::lonhtmlcommon::end_pick_box() + .'

' + .'' + .'

' + .'
' + ); } sub csvuploadmap_header { @@ -2104,7 +2108,7 @@ sub csvuploadmap_header { Total number of records found in file: $distotal
Enter as many fields as you can. The system will inform you and bring you back to this page if the data selected is insufficient to create the slots.
- + @@ -2129,7 +2133,7 @@ sub csvuploadmap_footer { -
+
ENDPICK }