# The LearningOnline Network with CAPA # a pile of common html routines # # $Id: lonhtmlcommon.pm,v 1.2 2002/07/22 21:21:32 www Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # package Apache::lonhtmlcommon; use strict; sub MapOptions { my ($data, $page)=@_; my $Str = ''; $Str .= ''."\n"; } sub Title { my ($pageName)=@_; my $Str = ''; $Str .= ''.$pageName.''."\n"; $Str .= ''."\n"; $Str .= ''."\n"; $Str .= '

'; $Str .= '

Course: '; $Str .= $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; $Str .= '

'."\n"; $Str .= '

'; $Str .= '

'."\n"; # $Str .= '

Current Time: '.localtime(time).'

'."\n"; return $Str; } sub CreateStatisticsMainMenu { my ($status, $reports)=@_; my $Str = ''; $Str .= ''."\n"; $Str .= ''."\n"; $Str .= ''."\n"; $Str .= ''."\n"; $Str .= ''."\n"; $Str .= ''."\n"; $Str .= ''."\n"; $Str .= '

		Analysis Reports:	Student Status:
{'reportSelected'} eq $reports->{$_}) { $Str .= ' selected=""'; } $Str .= '>'.$reports->{$_}.''."\n"; } $Str .= '	'; $Str .= &StatusOptions($status, 'Statistics'); $Str .= '

'."\n"; $Str .= '

'."\n"; return $Str; } =pod =item &CreateTableHeadings() This function generates the column headings for the chart. =over 4 Inputs: $CacheData, $studentInformation, $headings, $spacePadding $CacheData: pointer to a hash tied to the cached data database $studentInformation: a pointer to an array containing the names of the data held in a column and is used as part of a key into $CacheData $headings: The names of the headings for the student information $spacePadding: The spaces to go between columns Output: $Str $Str: A formatted string of the table column headings. =back =cut sub CreateStudentInformationHeadings { my ($data,$studentInformation,$headings,$displayString)=@_; my $Str=''; for(my $index=0; $index<(scalar @$headings); $index++) { # if(!&ShouldShowColumn($data, 'ChartHeading'.$index)) { # next; # } my $data=$headings->[$index]; my $linkdata=$studentInformation->[$index]; my $tempString = $displayString; $tempString =~ s/LINKDATA/$linkdata/; $tempString =~ s/DISPLAYDATA/$data/; $Str .= $tempString; } return $Str; } =pod =item &FormatStudentInformation() This function produces a formatted string of the student's information: username, domain, section, full name, and PID. =over 4 Input: $cache, $name, $studentInformation, $spacePadding $cache: This is a pointer to a hash that is tied to the cached data $name: The name and domain of the current student in name:domain format $studentInformation: A pointer to an array holding the names used to remove data from the hash. They represent the name of the data to be removed. $spacePadding: Extra spaces that represent the space between columns Output: $Str $Str: Formatted string. =back =cut sub FormatStudentInformation { my ($cache,$name,$studentInformation,$spacePadding)=@_; my $Str=''; my $data; for(my $index=0; $index<(scalar @$studentInformation); $index++) { if(!&ShouldShowColumn($cache, 'ChartHeading'.$index)) { next; } $data=$cache->{$name.':'.$studentInformation->[$index]}; $Str .= $data; my @dataLength=split(//,$data); my $length=scalar @dataLength; $Str .= (' 'x($cache->{$studentInformation->[$index].'Length'}- $length)); $Str .= $spacePadding; } return $Str; } 1; __END__