[LON-CAPA-cvs] cvs: loncom /interface loncreateuser.pm lonmodifycourse.pm
bisitz
bisitz at source.lon-capa.org
Wed Jan 15 13:47:56 EST 2014
bisitz Wed Jan 15 18:47:56 2014 EDT
Modified files:
/loncom/interface loncreateuser.pm lonmodifycourse.pm
Log:
Improved and consistent navigation and layout by using actionbox
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.385 loncom/interface/loncreateuser.pm:1.386
--- loncom/interface/loncreateuser.pm:1.385 Wed Jan 8 17:18:11 2014
+++ loncom/interface/loncreateuser.pm Wed Jan 15 18:47:56 2014
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.385 2014/01/08 17:18:11 bisitz Exp $
+# $Id: loncreateuser.pm,v 1.386 2014/01/15 18:47:56 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3116,13 +3116,14 @@
if ($env{'form.action'} eq 'singlestudent') {
&enroll_single_student($r,$uhome,$amode,$genpwd,$now,$newuser,$context,
$crstype,$showcredits,$defaultcredits);
- $r->print('<p><a href="javascript:backPage(document.userupdate)">');
- if ($crstype eq 'Community') {
- $r->print(&mt('Enroll Another Member'));
- } else {
- $r->print(&mt('Enroll Another Student'));
- }
- $r->print('</a></p>');
+ my $linktext = ($crstype eq 'Community' ?
+ &mt('Enroll Another Member') : &mt('Enroll Another Student'));
+ $r->print(
+ &Apache::lonhtmlcommon::actionbox([
+ '<a href="javascript:backPage(document.userupdate)">'
+ .($crstype eq 'Community' ?
+ &mt('Enroll Another Member') : &mt('Enroll Another Student'))
+ .'</a>']));
} else {
my @rolechanges = &update_roles($r,$context,$showcredits);
if (keys(%namechanged) > 0) {
@@ -3944,7 +3945,7 @@
}
$r->print('.<br />'.$showstart.'; '.$showend);
if ($startdate <= $now && !$newuser) {
- $r->print('<p> ');
+ $r->print('<p class="LC_info">');
if ($crstype eq 'Community') {
$r->print(&mt('If the member is currently logged-in to LON-CAPA, the new role will be available when the member next logs in.'));
} else {
Index: loncom/interface/lonmodifycourse.pm
diff -u loncom/interface/lonmodifycourse.pm:1.65 loncom/interface/lonmodifycourse.pm:1.66
--- loncom/interface/lonmodifycourse.pm:1.65 Tue Dec 24 19:15:11 2013
+++ loncom/interface/lonmodifycourse.pm Wed Jan 15 18:47:56 2014
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# handler for DC-only modifiable course settings
#
-# $Id: lonmodifycourse.pm,v 1.65 2013/12/24 19:15:11 raeburn Exp $
+# $Id: lonmodifycourse.pm,v 1.66 2014/01/15 18:47:56 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -996,18 +996,19 @@
$reply = '<h3>'.$mainheader.' <span class="LC_nobreak">'.$cdesc.'</span></h3>'."\n".
'<p>'.$reply.'</p>'."\n".
'<form action="/adm/modifycourse" method="post" name="processparms">'.
- &hidden_form_elements().
- '<a href="javascript:changePage(document.processparms,'."'menu'".')">'.
- &mt('Pick another action').'</a>';
+ &hidden_form_elements();
+ my @actions =
+ ('<a href="javascript:changePage(document.processparms,'."'menu'".')">'.
+ &mt('Pick another action').'</a>');
if ($numwarnings) {
my $newrole = $ccrole.'./'.$cdom.'/'.$cnum;
my $escuri = &HTML::Entities::encode('/adm/roles?selectrole=1&'.$newrole.
'=1&destinationurl=/adm/populate','&<>"');
- $reply .= '<br /><a href="'.$escuri.'">'.
- &mt('Go to Automated Enrollment Manager for course').'</a>';
+ push(@actions, '<a href="'.$escuri.'">'.
+ &mt('Go to Automated Enrollment Manager for course').'</a>');
}
- $reply .= '</form>';
+ $reply .= &Apache::lonhtmlcommon::actionbox(\@actions).'</form>';
$r->print($reply);
return;
}
More information about the LON-CAPA-cvs
mailing list