Subversion Repositories VORC

Rev

Rev 167 | Rev 204 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 167 Rev 169
Line 332... Line 332...
332
   ])
332
   ])
333
  );
333
  );
Line 334... Line 334...
334
 
334
 
335
  print $actionbutton;
335
  print $actionbutton;
336
  print $h->close ("form");
336
  print $h->close ("form");
-
 
337
  
-
 
338
  print $h->p ($h->input ({ type=>"button", onClick=>"window.location.href='email_users.pl?type=class&ID=$R->{$primary}';", value=>"Email Users" })) unless $LVL < RollerCon::ADMIN;
337
 
339
  
Line 338... Line 340...
338
  my $dbh = WebDB::connect ();
340
  my $dbh = WebDB::connect ();
Line 339... Line 341...
339
  
341