--- loncom/interface/loncreateuser.pm 2009/11/12 16:09:10 1.325 +++ loncom/interface/loncreateuser.pm 2009/11/18 21:24:40 1.327 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.325 2009/11/12 16:09:10 raeburn Exp $ +# $Id: loncreateuser.pm,v 1.327 2009/11/18 21:24:40 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -552,10 +552,10 @@ sub print_username_entry_form { &mt('View/Modify existing role:').''. '
' .&mt('There are no records to display.') .'
' ); - $r->print($form_footer); - return; } - # Content to display, so create navigation and display table + # Form Footer + $r->print( + '' + .'' + .''); + return; +} - # Create Navigation: - # Navigation Script - my $nav_script = <<"ENDSCRIPT"; +sub userlogdisplay_nav { + my ($formname,$curr,$more_records) = @_; + my ($nav_script,$nav_links); + if (ref($curr) eq 'HASH') { + # Create Navigation: + # Navigation Script + $nav_script = <<"ENDSCRIPT"; ENDSCRIPT - # Navigation Buttons - my $nav_links; - $nav_links = ''; - if (($curr{'page'} > 1) || ($more_records)) { - if ($curr{'page'} > 1) { - $nav_links .= ' '; - } - if ($more_records) { - $nav_links .= ''; + # Navigation Buttons + $nav_links = '
'; + if (($curr->{'page'} > 1) || ($more_records)) { + if ($curr->{'page'} > 1) { + $nav_links .= ' '; + } + if ($more_records) { + $nav_links .= ''; + } } + $nav_links .= '
'; } - $nav_links .= ''; - - # Table Header - my $tableheader = - &Apache::loncommon::start_data_table_header_row() - .'