[LON-CAPA-cvs] cvs: loncom /auth lonroles.pm /homework grades.pm
raeburn
raeburn@source.lon-capa.org
Fri, 01 May 2009 14:16:14 -0000
raeburn Fri May 1 14:16:14 2009 EDT
Modified files:
/loncom/auth lonroles.pm
/loncom/homework grades.pm
Log:
- Bug 5914.
- Selection of "Scantron Operator" role launches Scantron data upload page (from grades.pm)
- Add header to upload table (until such time as breadcrumbs are updated for grades.pm).
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.219 loncom/auth/lonroles.pm:1.220
--- loncom/auth/lonroles.pm:1.219 Tue Apr 14 23:52:07 2009
+++ loncom/auth/lonroles.pm Fri May 1 14:16:06 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# User Roles Screen
#
-# $Id: lonroles.pm,v 1.219 2009/04/14 23:52:07 raeburn Exp $
+# $Id: lonroles.pm,v 1.220 2009/05/01 14:16:06 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -533,6 +533,12 @@
$redirect_url);
return OK;
}
+ if ($role eq 'sc') {
+ my $redirect_url = '/adm/grades?command=scantronupload';
+ &redirect_user($r,&mt('Loading Data Upload Page'),
+ $redirect_url);
+ return OK;
+ }
}
}
}
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.565 loncom/homework/grades.pm:1.566
--- loncom/homework/grades.pm:1.565 Fri May 1 01:07:49 2009
+++ loncom/homework/grades.pm Fri May 1 14:16:13 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.565 2009/05/01 01:07:49 raeburn Exp $
+# $Id: grades.pm,v 1.566 2009/05/01 14:16:13 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -7740,6 +7740,8 @@
</script>
+<h3>'.&mt('Send scanned bubblesheet data to a course').'</h3>
+
<form enctype="multipart/form-data" action="/adm/grades" name="rules" method="post">
'.$default_form_data.
&Apache::lonhtmlcommon::start_pick_box().