version 1.182.4.1, 2009/05/20 21:32:53
|
version 1.182.4.5, 2009/08/13 16:12:51
|
Line 77 sub confirm_success {
|
Line 77 sub confirm_success {
|
my ($message,$failure)=@_; |
my ($message,$failure)=@_; |
if ($failure) { |
if ($failure) { |
return '<span class="LC_error">'."\n" |
return '<span class="LC_error">'."\n" |
.'<img src="/adm/lonIcons/navmap.wrong.gif" /> '."\n" |
.'<img src="/adm/lonIcons/navmap.wrong.gif" alt="'.&mt('Error').'" /> '."\n" |
.$message."\n" |
.$message."\n" |
.'</span>'."\n"; |
.'</span>'."\n"; |
} else { |
} else { |
return '<span class="LC_success">'."\n" |
return '<span class="LC_success">'."\n" |
.'<img src="/adm/lonIcons/navmap.correct.gif" /> '."\n" |
.'<img src="/adm/lonIcons/navmap.correct.gif" alt="'.&mt('OK').'" /> '."\n" |
.$message."\n" |
.$message."\n" |
.'</span>'."\n"; |
.'</span>'."\n"; |
} |
} |
Line 130 sub dragmath_js {
|
Line 130 sub dragmath_js {
|
my ($popup) = @_; |
my ($popup) = @_; |
return <<ENDDRAGMATHJS; |
return <<ENDDRAGMATHJS; |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function mathedit(textarea, doc) { |
function mathedit(textarea, doc) { |
targetEntry = textarea; |
targetEntry = textarea; |
targetDoc = doc; |
targetDoc = doc; |
newwin = window.open("/adm/dragmath/applet/$popup.html","","width=565,height=500,resizable"); |
newwin = window.open("/adm/dragmath/applet/$popup.html","","width=565,height=500,resizable"); |
} |
} |
|
// ]]> |
</script> |
</script> |
|
|
ENDDRAGMATHJS |
ENDDRAGMATHJS |
Line 430 sub date_setter {
|
Line 432 sub date_setter {
|
my $result = "\n<!-- $dname date setting form -->\n"; |
my $result = "\n<!-- $dname date setting form -->\n"; |
$result .= <<ENDJS; |
$result .= <<ENDJS; |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function $dname\_checkday() { |
function $dname\_checkday() { |
var day = document.$formname.$dname\_day.value; |
var day = document.$formname.$dname\_day.value; |
var month = document.$formname.$dname\_month.value; |
var month = document.$formname.$dname\_month.value; |
Line 490 document.$formname.$dname\_year.value,
|
Line 493 document.$formname.$dname\_year.value,
|
} |
} |
|
|
} |
} |
|
// ]]> |
</script> |
</script> |
ENDJS |
ENDJS |
$result .= ' <span style="white-space: nowrap;">'; |
$result .= ' <span style="white-space: nowrap;">'; |
Line 501 ENDJS
|
Line 505 ENDJS
|
unshift(@Months,'If you can read this an error occurred'); |
unshift(@Months,'If you can read this an error occurred'); |
if ($includeempty) { $monthselector.="<option value=''></option>"; } |
if ($includeempty) { $monthselector.="<option value=''></option>"; } |
for(my $m = 1;$m <=$#Months;$m++) { |
for(my $m = 1;$m <=$#Months;$m++) { |
$monthselector .= qq{ <option value="$m" }; |
$monthselector .= qq{ <option value="$m"}; |
$monthselector .= "selected " if ($m-1 eq $month); |
$monthselector .= ' selected="selected"' if ($m-1 eq $month); |
$monthselector .= '> '.&mt($Months[$m]).' </option>'; |
$monthselector .= '> '.&mt($Months[$m]).' </option>'."\n"; |
} |
} |
$monthselector.= ' </select>'; |
$monthselector.= ' </select>'; |
# Day |
# Day |
my $dayselector = qq{<input type="text" name="$dname\_day" $state value="$mday" size="3" $special onchange="javascript:$dname\_checkday()" />}; |
my $dayselector = qq{<input type="text" name="$dname\_day" $state value="$mday" size="3" $special onchange="javascript:$dname\_checkday()" />}; |
# Year |
# Year |
my $yearselector = qq{<input type="year" name="$dname\_year" $state value="$year" size="5" $special onchange="javascript:$dname\_checkday()" />}; |
my $yearselector = qq{<input type="text" name="$dname\_year" $state value="$year" size="5" $special onchange="javascript:$dname\_checkday()" />}; |
# |
# |
my $hourselector = qq{<select name="$dname\_hour" $special $state >}; |
my $hourselector = qq{<select name="$dname\_hour" $special $state >}; |
if ($includeempty) { |
if ($includeempty) { |
$hourselector.=qq{<option value=''></option>}; |
$hourselector.=qq{<option value=''></option>}; |
} |
} |
for (my $h = 0;$h<24;$h++) { |
for (my $h = 0;$h<24;$h++) { |
$hourselector .= qq{<option value="$h" }; |
$hourselector .= qq{<option value="$h"}; |
$hourselector .= "selected " if (defined($hour) && $hour == $h); |
$hourselector .= ' selected="selected"' if (defined($hour) && $hour == $h); |
$hourselector .= ">"; |
$hourselector .= ">"; |
my $timest=''; |
my $timest=''; |
if ($h == 0) { |
if ($h == 0) { |
Line 605 Inputs:
|
Line 609 Inputs:
|
|
|
=item $dname |
=item $dname |
|
|
The name passed to &datesetter, which prefixes the form elements. |
The name passed to &date_setter, which prefixes the form elements. |
|
|
=item $defaulttime |
=item $defaulttime |
|
|
Line 975 sub Create_PrgWin {
|
Line 979 sub Create_PrgWin {
|
#the whole function called through timeout is due to issues |
#the whole function called through timeout is due to issues |
#in mozilla Read BUG #2665 if you want to know the whole story |
#in mozilla Read BUG #2665 if you want to know the whole story |
&r_print($r,'<script type="text/javascript">'. |
&r_print($r,'<script type="text/javascript">'. |
|
'// <![CDATA['. |
"var popwin; |
"var popwin; |
function openpopwin () { |
function openpopwin () { |
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
Line 985 sub Create_PrgWin {
|
Line 990 sub Create_PrgWin {
|
&mt('Starting').'" /><\\/form>'.$end_page. |
&mt('Starting').'" /><\\/form>'.$end_page. |
"\');". |
"\');". |
"popwin.document.close();}". |
"popwin.document.close();}". |
"\nwindow.setTimeout(openpopwin,0)</script>"); |
"\nwindow.setTimeout(openpopwin,0). |
|
'// ]]>'. |
|
'</script>"); |
$prog_state{'formname'}='popremain'; |
$prog_state{'formname'}='popremain'; |
$prog_state{'inputname'}="remaining"; |
$prog_state{'inputname'}="remaining"; |
} elsif ($type eq 'inline') { |
} elsif ($type eq 'inline') { |
Line 1018 sub Create_PrgWin {
|
Line 1025 sub Create_PrgWin {
|
# update progress |
# update progress |
sub Update_PrgWin { |
sub Update_PrgWin { |
my ($r,$prog_state,$displayString)=@_; |
my ($r,$prog_state,$displayString)=@_; |
&r_print($r,'<script type="text/javascript">'.$$prog_state{'window'}.'.document.'. |
&r_print($r,'<script type="text/javascript">'. |
|
'// <![CDATA['. |
|
$$prog_state{'window'}.'.document.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'inputname'}.'.value="'. |
$displayString.'";</script>'); |
$displayString.'";'. |
|
'// ]]>'. |
|
'</script>'); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
} |
} |
|
|
Line 1074 sub Increment_PrgWin {
|
Line 1085 sub Increment_PrgWin {
|
if ($user_browser eq 'explorer' && $user_os =~ 'mac') { |
if ($user_browser eq 'explorer' && $user_os =~ 'mac') { |
$lasttime = ''; |
$lasttime = ''; |
} |
} |
&r_print($r,'<script>'.$$prog_state{'window'}.'.document.'. |
&r_print($r,'<script>'. |
|
'// <![CDATA['. |
|
$$prog_state{'window'}.'.document.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'done'}.'/'.$$prog_state{'max'}. |
$$prog_state{'done'}.'/'.$$prog_state{'max'}. |
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'.'</script>'); |
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'. |
|
'// ]]>'. |
|
'</script>'); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
} |
} |
|
|
Line 1086 sub Increment_PrgWin {
|
Line 1101 sub Increment_PrgWin {
|
sub Close_PrgWin { |
sub Close_PrgWin { |
my ($r,$prog_state)=@_; |
my ($r,$prog_state)=@_; |
if ($$prog_state{'type'} eq 'popup') { |
if ($$prog_state{'type'} eq 'popup') { |
&r_print($r,'<script>popwin.close()</script>'."\n"); |
&r_print($r,'<script>'. |
|
'// <![CDATA['. |
|
'popwin.close()'. |
|
'// ]]>'. |
|
'</script>'."\n"); |
} elsif ($$prog_state{'type'} eq 'inline') { |
} elsif ($$prog_state{'type'} eq 'inline') { |
&Update_PrgWin($r,$prog_state,&mt('Done')); |
&Update_PrgWin($r,$prog_state,&mt('Done')); |
} |
} |
Line 1167 sub spellheader {
|
Line 1186 sub spellheader {
|
|
|
my $nothing=&javascript_nothing(); |
my $nothing=&javascript_nothing(); |
return (<<ENDCHECK); |
return (<<ENDCHECK); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
//<!-- BEGIN LON-CAPA Internal |
//<!-- BEGIN LON-CAPA Internal |
var checkwin; |
var checkwin; |
|
|
Line 1178 function spellcheckerwindow(string) {
|
Line 1198 function spellcheckerwindow(string) {
|
checkwin.document.close(); |
checkwin.document.close(); |
} |
} |
// END LON-CAPA Internal --> |
// END LON-CAPA Internal --> |
|
// ]]> |
</script> |
</script> |
ENDCHECK |
ENDCHECK |
} |
} |
Line 1251 sub htmlareaselectactive {
|
Line 1272 sub htmlareaselectactive {
|
my @fields=@_; |
my @fields=@_; |
unless (&htmlareabrowser()) { return ''; } |
unless (&htmlareabrowser()) { return ''; } |
if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); } |
if (&htmlareablocked()) { return '<br />'.&enablelink(@fields); } |
my $output='<script type="text/javascript" defer="1">'; |
my $output='<script type="text/javascript" defer="1">'. |
|
'// <![CDATA['; |
my $lang = &htmlarea_lang(); |
my $lang = &htmlarea_lang(); |
foreach my $field (@fields) { |
foreach my $field (@fields) { |
$output.=" |
$output.=" |
Line 1264 sub htmlareaselectactive {
|
Line 1286 sub htmlareaselectactive {
|
oFCKeditor.Config['DefaultLanguage'] = '$lang'; |
oFCKeditor.Config['DefaultLanguage'] = '$lang'; |
}"; |
}"; |
} |
} |
$output.="\nwindow.status='Activated Editfields';\n</script><br />". |
$output.="\nwindow.status='Activated Editfields';\n". |
|
'// ]]>'. |
|
'</script><br />'. |
&disablelink(@fields); |
&disablelink(@fields); |
return $output; |
return $output; |
} |
} |
Line 1620 sub course_selection {
|
Line 1644 sub course_selection {
|
my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_; |
my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_; |
my $output = qq| |
my $output = qq| |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
// <![CDATA[ |
function coursePick (formname) { |
function coursePick (formname) { |
for (var i=0; i<formname.coursepick.length; i++) { |
for (var i=0; i<formname.coursepick.length; i++) { |
if (formname.coursepick[i].value == 'category') { |
if (formname.coursepick[i].value == 'category') { |
Line 1642 sub course_selection {
|
Line 1667 sub course_selection {
|
formname.courselist = ''; |
formname.courselist = ''; |
} |
} |
} |
} |
|
// ]]> |
</script> |
</script> |
|; |
|; |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
Line 1787 sub topic_bar {
|
Line 1813 sub topic_bar {
|
return ' |
return ' |
<div class="LC_topic_bar"> |
<div class="LC_topic_bar"> |
<img alt="'.&mt('Step [_1]',$imgnum). |
<img alt="'.&mt('Step [_1]',$imgnum). |
'"src="/res/adm/pages/bl_step'.$imgnum.'.gif" /> |
'" src="/res/adm/pages/bl_step'.$imgnum.'.gif" /> '.$title |
<span>'.$title.'</span> |
|
</div> |
</div> |
'; |
'; |
} |
} |