# The LearningOnline Network with CAPA
# a pile of common html routines
#
# $Id: lonhtmlcommon.pm,v 1.50 2004/02/16 22:32:19 albertel 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/
#
######################################################################
######################################################################
=pod
=head1 NAME
Apache::lonhtmlcommon - routines to do common html things
=head1 SYNOPSIS
Referenced by other mod_perl Apache modules.
=head1 INTRODUCTION
lonhtmlcommon is a collection of subroutines used to present information
in a consistent html format, or provide other functionality related to
html.
=head2 General Subroutines
=over 4
=cut
######################################################################
######################################################################
package Apache::lonhtmlcommon;
use Time::Local;
use Time::HiRes;
use Apache::lonlocal;
use strict;
##############################################
##############################################
=pod
=item authorbombs
=cut
##############################################
##############################################
sub authorbombs {
my $url=shift;
$url=&Apache::lonnet::declutter($url);
my ($udom,$uname)=($url=~/^(\w+)\/(\w+)\//);
my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
foreach (keys %bombs) {
if ($_=~/^$udom\/$uname\//) {
return ''.
&Apache::loncommon::help_open_topic('About_Bombs');
}
}
return '';
}
##############################################
##############################################
sub recent_filename {
my $area=shift;
return 'nohist_recent_'.&Apache::lonnet::escape($area);
}
sub store_recent {
my ($area,$name,$value)=@_;
my $file=&recent_filename($area);
my %recent=&Apache::lonnet::dump($file);
if (scalar(keys(%recent))>10) {
# remove oldest value
my $oldest=time;
my $delkey='';
foreach (keys %recent) {
my $thistime=(split(/\&/,$recent{$_}))[0];
if ($thistime<$oldest) {
$oldest=$thistime;
$delkey=$_;
}
}
&Apache::lonnet::del($file,[$delkey]);
}
# store new value
&Apache::lonnet::put($file,{ $name =>
time.'&'.&Apache::lonnet::escape($value) });
}
sub select_recent {
my ($area,$fieldname,$event)=@_;
my %recent=&Apache::lonnet::dump(&recent_filename($area));
my $return="\n\n";
return $return;
}
=pod
=item textbox
=cut
##############################################
##############################################
sub textbox {
my ($name,$value,$size,$special) = @_;
$size = 40 if (! defined($size));
my $Str = '';
return $Str;
}
##############################################
##############################################
=pod
=item checkbox
=cut
##############################################
##############################################
sub checkbox {
my ($name,$value) = @_;
my $Str = '';
return $Str;
}
##############################################
##############################################
=pod
=item &date_setter
&date_setter returns html and javascript for a compact date-setting form.
To retrieve values from it, use &get_date_from_form().
Inputs
=over 4
=item $dname
The name to prepend to the form elements.
The form elements defined will be dname_year, dname_month, dname_day,
dname_hour, dname_min, and dname_sec.
=item $currentvalue
The current setting for this time parameter. A unix format time
(time in seconds since the beginning of Jan 1st, 1970, GMT.
An undefined value is taken to indicate the value is the current time.
Also, to be explicit, a value of 'now' also indicates the current time.
=item $special
Additional html/javascript to be associated with each element in
the date_setter. See lonparmset for example usage.
=back
Bugs
The method used to restrict user input will fail in the year 2400.
=cut
##############################################
##############################################
sub date_setter {
my ($formname,$dname,$currentvalue,$special,$includeempty) = @_;
if (! defined($currentvalue) || $currentvalue eq 'now') {
unless ($includeempty) {
$currentvalue = time;
} else {
$currentvalue = 0;
}
}
# other potentially useful values: wkday,yrday,is_daylight_savings
my ($sec,$min,$hour,$mday,$month,$year)=('','','','','','');
if ($currentvalue) {
($sec,$min,$hour,$mday,$month,$year,undef,undef,undef) =
localtime($currentvalue);
$year += 1900;
}
my $result = "\n\n";
$result .= <
function $dname\_checkday() {
var day = document.$formname.$dname\_day.value;
var month = document.$formname.$dname\_month.value;
var year = document.$formname.$dname\_year.value;
var valid = true;
if (day < 1) {
document.$formname.$dname\_day.value = 1;
}
if (day > 31) {
document.$formname.$dname\_day.value = 31;
}
if ((month == 1) || (month == 3) || (month == 5) ||
(month == 7) || (month == 8) || (month == 10) ||
(month == 12)) {
if (day > 31) {
document.$formname.$dname\_day.value = 31;
day = 31;
}
} else if (month == 2 ) {
if ((year % 4 == 0) && (year % 100 != 0)) {
if (day > 29) {
document.$formname.$dname\_day.value = 29;
}
} else if (day > 29) {
document.$formname.$dname\_day.value = 28;
}
} else if (day > 30) {
document.$formname.$dname\_day.value = 30;
}
}
function $dname\_opencalendar() {
var calwin=window.open(
"/adm/announcements?pickdate=yes&formname=$formname&element=$dname&month="+
document.$formname.$dname\_month.value+"&year="+
document.$formname.$dname\_year.value,
"LONCAPAcal",
"height=350,width=350,scrollbars=yes,resizable=yes,menubar=no");
}
ENDJS
$result .= " \n";
$result .= " \n";
$result .= " \n";
$result .= " ";
$result .= " \n";
$result .= " m\n";
$result .= " s\n";
$result .= "".
&mt('Select Date')."\n\n";
return $result;
}
##############################################
##############################################
=pod
=item &get_date_from_form
get_date_from_form retrieves the date specified in an &date_setter form.
Inputs:
=over 4
=item $dname
The name passed to &datesetter, which prefixes the form elements.
=item $defaulttime
The unix time to use as the default in case of poor inputs.
=back
Returns: Unix time represented in the form.
=cut
##############################################
##############################################
sub get_date_from_form {
my ($dname) = @_;
my ($sec,$min,$hour,$day,$month,$year);
#
if (defined($ENV{'form.'.$dname.'_second'})) {
my $tmpsec = $ENV{'form.'.$dname.'_second'};
if (($tmpsec =~ /^\d+$/) && ($tmpsec >= 0) && ($tmpsec < 60)) {
$sec = $tmpsec;
}
}
if (defined($ENV{'form.'.$dname.'_minute'})) {
my $tmpmin = $ENV{'form.'.$dname.'_minute'};
if (($tmpmin =~ /^\d+$/) && ($tmpmin >= 0) && ($tmpmin < 60)) {
$min = $tmpmin;
}
}
if (defined($ENV{'form.'.$dname.'_hour'})) {
my $tmphour = $ENV{'form.'.$dname.'_hour'};
if (($tmphour =~ /^\d+$/) && ($tmphour >= 0) && ($tmphour < 24)) {
$hour = $tmphour;
}
}
if (defined($ENV{'form.'.$dname.'_day'})) {
my $tmpday = $ENV{'form.'.$dname.'_day'};
if (($tmpday =~ /^\d+$/) && ($tmpday > 0) && ($tmpday < 32)) {
$day = $tmpday;
}
}
if (defined($ENV{'form.'.$dname.'_month'})) {
my $tmpmonth = $ENV{'form.'.$dname.'_month'};
if (($tmpmonth =~ /^\d+$/) && ($tmpmonth > 0) && ($tmpmonth < 13)) {
$month = $tmpmonth - 1;
}
}
if (defined($ENV{'form.'.$dname.'_year'})) {
my $tmpyear = $ENV{'form.'.$dname.'_year'};
if (($tmpyear =~ /^\d+$/) && ($tmpyear > 1900)) {
$year = $tmpyear - 1900;
}
}
if (($year<70) || ($year>137)) { return undef; }
if (defined($sec) && defined($min) && defined($hour) &&
defined($day) && defined($month) && defined($year) &&
eval(&timelocal($sec,$min,$hour,$day,$month,$year))) {
return &timelocal($sec,$min,$hour,$day,$month,$year);
} else {
return undef;
}
}
##############################################
##############################################
=pod
=item &pjump_javascript_definition()
Returns javascript defining the 'pjump' function, which opens up a
parameter setting wizard.
=cut
##############################################
##############################################
sub pjump_javascript_definition {
my $Str = <'.
&mt('Currently Enrolled').''."\n";
$Str .= ''."\n";
$Str .= ''."\n";
$Str .= ''."\n";
}
########################################################
########################################################
=pod
=item Progess Window Handling Routines
These routines handle the creation, update, increment, and closure of
progress windows. The progress window reports to the user the number
of items completed and an estimate of the time required to complete the rest.
=over 4
=item &Create_PrgWin
Writes javascript to the client to open a progress window and returns a
data structure used for bookkeeping.
Inputs
=over 4
=item $r Apache request
=item $title The title of the progress window
=item $heading A description (usually 1 line) of the process being initiated.
=item $number_to_do The total number of items being processed.
=item $type Either 'popup' or 'inline' (popup is assumed if nothing is
specified)
=item $formname Only useful in the inline case, if a form already exists, this needs to be used and specfiy the name of the form, otherwise the Progress line will be created in a new form of it's own
=item $inputname Only useful in the inline case, if a form and an input of type text exists, use this to specify the name of the input field
=back
Returns a hash containing the progress state data structure.
=item &Update_PrgWin
Updates the text in the progress indicator. Does not increment the count.
See &Increment_PrgWin.
Inputs:
=over 4
=item $r Apache request
=item $prog_state Pointer to the data structure returned by &Create_PrgWin
=item $displaystring The string to write to the status indicator
=back
Returns: none
=item Increment_PrgWin
Increment the count of items completed for the progress window by 1.
Inputs:
=over 4
=item $r Apache request
=item $prog_state Pointer to the data structure returned by Create_PrgWin
=item $extraInfo A description of the items being iterated over. Typically
'student'.
=back
Returns: none
=item Close_PrgWin
Closes the progress window.
Inputs:
=over 4
=item $r Apache request
=item $prog_state Pointer to the data structure returned by Create_PrgWin
=back
Returns: none
=back
=cut
########################################################
########################################################
# Create progress
sub Create_PrgWin {
my ($r, $title, $heading, $number_to_do,$type,$formname,$inputname)=@_;
if (!defined($type)) { $type='popup'; }
my %prog_state;
$prog_state{'type'}=$type;
if ($type eq 'popup') {
$prog_state{'window'}='popwin';
#the whole function called through timeout is due to issues
#in mozilla Read BUG #2665 if you want to know the whole story
&r_print($r,'");
$prog_state{'formname'}='popremain';
$prog_state{'inputname'}="remaining";
} elsif ($type eq 'inline') {
$prog_state{'window'}='window';
if (!$formname) {
&r_print($r,''); }
&Update_PrgWin($r,\%prog_state,&mt('Starting'));
}
$prog_state{'done'}=0;
$prog_state{'firststart'}=&Time::HiRes::time();
$prog_state{'laststart'}=&Time::HiRes::time();
$prog_state{'max'}=$number_to_do;
return %prog_state;
}
# update progress
sub Update_PrgWin {
my ($r,$prog_state,$displayString)=@_;
&r_print($r,'');
$$prog_state{'laststart'}=&Time::HiRes::time();
}
# increment progress state
sub Increment_PrgWin {
my ($r,$prog_state,$extraInfo)=@_;
$$prog_state{'done'}++;
my $time_est= (&Time::HiRes::time() - $$prog_state{'firststart'})/
$$prog_state{'done'} *
($$prog_state{'max'}-$$prog_state{'done'});
$time_est = int($time_est);
if (int ($time_est/60) > 0) {
my $min = int($time_est/60);
my $sec = $time_est % 60;
$time_est = $min.' '.&mt('minutes');
if ($min < 10) {
if ($sec > 1) {
$time_est.= ', '.$sec.' '.&mt('seconds');
} elsif ($sec > 0) {
$time_est.= ', '.$sec.' '.&mt('second');
}
}
} else {
$time_est .= ' '.&mt('seconds');
}
my $lasttime = &Time::HiRes::time()-$$prog_state{'laststart'};
if ($lasttime > 9) {
$lasttime = int($lasttime);
} elsif ($lasttime < 0.01) {
$lasttime = 0;
} else {
$lasttime = sprintf("%3.2f",$lasttime);
}
if ($lasttime == 1) {
$lasttime = '('.$lasttime.' '.&mt('second for').' '.$extraInfo.')';
} else {
$lasttime = '('.$lasttime.' '.&mt('seconds for').' '.$extraInfo.')';
}
#
my $user_browser = $ENV{'browser.type'} if (exists($ENV{'browser.type'}));
my $user_os = $ENV{'browser.os'} if (exists($ENV{'browser.os'}));
if (! defined($user_browser) || ! defined($user_os)) {
(undef,$user_browser,undef,undef,undef,$user_os) =
&Apache::loncommon::decode_user_agent();
}
if ($user_browser eq 'explorer' && $user_os =~ 'mac') {
$lasttime = '';
}
&r_print($r,'');
$$prog_state{'laststart'}=&Time::HiRes::time();
}
# close Progress Line
sub Close_PrgWin {
my ($r,$prog_state)=@_;
if ($$prog_state{'type'} eq 'popup') {
&r_print($r,''."\n");
} elsif ($$prog_state{'type'} eq 'inline') {
&Update_PrgWin($r,$prog_state,&mt('Done'));
}
undef(%$prog_state);
}
sub r_print {
my ($r,$to_print)=@_;
if ($r) {
$r->print($to_print);
$r->rflush();
} else {
print($to_print);
}
}
# ------------------------------------------------------- Puts directory header
sub crumbs {
my ($uri,$target,$prefix,$form)=@_;
my $output=' '.$prefix.'/';
if ($ENV{'user.adv'}) {
my $path=$prefix.'/';
foreach (split('/',$uri)) {
unless ($_) { next; }
$path.=$_;
unless ($path eq $uri) { $path.='/'; }
my $linkpath=$path;
if ($form) {
$linkpath="javascript:$form.action='$path';$form.submit();";
}
$output.=''.$_.'/';
}
} else {
$output.=$uri;
}
unless ($uri=~/\/$/) { $output=~s/\/$//; }
return $output.' ';
}
1;
__END__