--- loncom/interface/lonhtmlcommon.pm 2003/07/25 19:56:37 1.28
+++ loncom/interface/lonhtmlcommon.pm 2003/10/14 18:36:54 1.31
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.28 2003/07/25 19:56:37 matthew Exp $
+# $Id: lonhtmlcommon.pm,v 1.31 2003/10/14 18:36:54 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -56,6 +56,7 @@ html.
package Apache::lonhtmlcommon;
use Time::Local;
+use Apache::lonlocal;
use strict;
@@ -181,6 +182,16 @@ sub date_setter {
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 .= " m\n";
$result .= " s\n";
- $result .= "\n\n";
+ $result .= "".
+ &mt('Select Date')."\n\n";
return $result;
}
@@ -769,16 +783,16 @@ sub Increment_PrgWin {
if (int ($time_est/60) > 0) {
my $min = int($time_est/60);
my $sec = $time_est % 60;
- $time_est = $min.' minutes';
+ $time_est = $min.' '.&mt('minutes');
if ($min < 10) {
if ($sec > 1) {
- $time_est.= ', '.$sec.' seconds';
+ $time_est.= ', '.$sec.' '.&mt('seconds');
} elsif ($sec > 0) {
- $time_est.= ', '.$sec.' second';
+ $time_est.= ', '.$sec.' '.&mt('second');
}
}
} else {
- $time_est .= ' seconds';
+ $time_est .= ' '.&mt('seconds');
}
my $lasttime = &Time::HiRes::time()-$$prog_state{'laststart'};
if ($lasttime > 9) {
@@ -789,9 +803,9 @@ sub Increment_PrgWin {
$lasttime = sprintf("%3.2f",$lasttime);
}
if ($lasttime == 1) {
- $lasttime = '('.$lasttime.' second for '.$extraInfo.')';
+ $lasttime = '('.$lasttime.' '.&mt('second for').' '.&mt($extraInfo).')';
} else {
- $lasttime = '('.$lasttime.' seconds for '.$extraInfo.')';
+ $lasttime = '('.$lasttime.' '.&mt('seconds for').' '.&mt($extraInfo).')';
}
#
my $user_browser = $ENV{'browser.type'} if (exists($ENV{'browser.type'}));
@@ -805,7 +819,7 @@ sub Increment_PrgWin {
}
$r->print('');
+ ': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'.'');
$$prog_state{'laststart'}=&Time::HiRes::time();
$r->rflush();
}