--- loncom/interface/spreadsheet/lonspreadsheet.pm 2007/08/18 00:04:41 1.51 +++ loncom/interface/spreadsheet/lonspreadsheet.pm 2010/12/03 21:33:56 1.58 @@ -1,5 +1,5 @@ # -# $Id: lonspreadsheet.pm,v 1.51 2007/08/18 00:04:41 albertel Exp $ +# $Id: lonspreadsheet.pm,v 1.58 2010/12/03 21:33:56 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -64,6 +64,7 @@ use Apache::lonnet; use Apache::lonhtmlcommon; use Apache::lonlocal; use Apache::loncoursedata(); +use Apache::lonquickgrades(); use HTML::Entities(); ## @@ -73,12 +74,12 @@ use HTML::Entities(); sub textfield { my ($title,$name,$value)=@_; return "\n
$title:
".
- '';
+ '';
}
sub hiddenfield {
my ($name,$value)=@_;
- return ''."\n";
+ return ''."\n";
}
sub selectbox {
@@ -86,7 +87,7 @@ sub selectbox {
my $selout="\n
$title:
".'';
@@ -140,13 +141,13 @@ sub file_dialogs {
if ($spreadsheet->is_default()) {
$filename = 'Default';
}
- my $save_dialog = '
-
- $link
+ $link
\n\n";
#
+ my $headline = &mt('File Dialogs');
$result .=<
\n
@@ -199,16 +201,6 @@ END
sub handler {
my $r=shift;
#
- # Overload checking
- #
- # Check this server
- my $loaderror=&Apache::lonnet::overloaderror($r);
- if ($loaderror) { return $loaderror; }
- # Check the course homeserver
- $loaderror= &Apache::lonnet::overloaderror($r,
- $env{'course.'.$env{'request.course.id'}.'.home'});
-# if ($loaderror) { return $loaderror; }
- #
# HTML Header
#
if ($r->header_only) {
@@ -404,8 +396,17 @@ ENDSCRIPT
bug => 'Spreadsheet'});
$r->print(&Apache::loncommon::start_page('Grades Spreadsheet',$js).
&Apache::lonhtmlcommon::breadcrumbs('Spreadsheet',
- 'Spreadsheet_About').
- ''.&Apache::loncommon::end_page());
+ $r->print('');
+ &Apache::lonquickgrades::endGradeScreen($r);
+ $r->print(&Apache::loncommon::end_page());
$spreadsheet->clear_package();
return OK;
}