Advertisement
Guest User

Untitled

a guest
Oct 31st, 2014
138
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.68 KB | None | 0 0
  1. sub display_users{
  2.     my $n = param('n') || 0;
  3.  
  4.     &page_navbar();
  5.  
  6.     my @students = glob("$students_dir/*");
  7.     foreach my $student (@students){
  8.         $student =~ s/\.\/students\///ig;
  9.     }
  10.    
  11.     my $i = $n;
  12.     param('n', $n);
  13.  
  14.     print "<div class=\"container\" align=\"middle\">\n";
  15.     print "<div class=\"row\">\n";
  16.     while ($i < $n+10){
  17.    
  18.         print "<div class=\"panel panel-default\" style=\"width:400px\">
  19.         <div class=\"panel-heading\">
  20.             <div align=\"left\">
  21.          <h3><b>$students[$i]</b></h3>
  22.             </div>
  23.        
  24.        </div>
  25.             <center><img src=\"./students/$students[$i]/profile.jpg\"></centre>
  26.    </div>\n";
  27.  
  28.         $i += 1;
  29.     }
  30.    
  31.     print "</div>\n";
  32.     print "</div>\n";
  33. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement