version 1.350, 2013/07/11 18:25:51
|
version 1.352, 2013/07/22 11:46:23
|
Line 64 use HTML::Entities();
|
Line 64 use HTML::Entities();
|
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
|
sub java_not_enabled { |
sub java_not_enabled { |
return "\n".'<span class="LC_error">'. |
if (($env{'browser.mobile'}) && ($env{'browser.mobile'} =~ /^ipad|ipod|iphone$/i)) { |
&mt('The required Java applet could not be started. Please make sure to have Java installed and active in your browser.'). |
return "\n".'<span class="LC_error">'. |
"</span>\n"; |
&mt('The required Java applet could not be started, because Java is not supported by your mobile device.'). |
|
"</span>\n"; |
|
} else { |
|
return "\n".'<span class="LC_error">'. |
|
&mt('The required Java applet could not be started. Please make sure to have Java installed and active in your browser.'). |
|
"</span>\n"; |
|
} |
} |
} |
|
|
sub coursepreflink { |
sub coursepreflink { |
Line 2234 sub course_selection {
|
Line 2240 sub course_selection {
|
$output .= '<label><input type="radio" name="coursepick" value="category" onclick="coursePick(this.form);alert('."'".&mt('Choose categories, from left to right')."'".')" />'.&mt('Pick courses by category:').'</label><br />'; |
$output .= '<label><input type="radio" name="coursepick" value="category" onclick="coursePick(this.form);alert('."'".&mt('Choose categories, from left to right')."'".')" />'.&mt('Pick courses by category:').'</label><br />'; |
$output .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n". |
$output .= '<table><tr><td>'.$$codetitles[0].'<br />'."\n". |
'<select name="'.$standardnames->[0]. |
'<select name="'.$standardnames->[0]. |
'" onChange="setPick(this.form);courseSet('."'$$codetitles[0]'".')">'."\n". |
'" onchange="setPick(this.form);courseSet('."'$$codetitles[0]'".')">'."\n". |
' <option value="-1" />Select'."\n"; |
' <option value="-1" />Select'."\n"; |
my @items = (); |
my @items = (); |
my @longitems = (); |
my @longitems = (); |
Line 2264 sub course_selection {
|
Line 2270 sub course_selection {
|
for (my $i=1; $i<$numtitles; $i++) { |
for (my $i=1; $i<$numtitles; $i++) { |
$output .= '<td>'.$$codetitles[$i].'<br />'."\n". |
$output .= '<td>'.$$codetitles[$i].'<br />'."\n". |
'<select name="'.$standardnames->[$i]. |
'<select name="'.$standardnames->[$i]. |
'" onChange="courseSet('."'$$codetitles[$i]'".')">'."\n". |
'" onchange="courseSet('."'$$codetitles[$i]'".')">'."\n". |
'<option value="-1"><-Pick '.$$codetitles[$i-1].'</option>'."\n". |
'<option value="-1"><-Pick '.$$codetitles[$i-1].'</option>'."\n". |
'</select>'."\n". |
'</select>'."\n". |
'</td>'; |
'</td>'; |