version 1.262, 2005/05/26 20:49:23
|
version 1.265, 2005/06/04 19:09:17
|
Line 673 sub help_open_menu {
|
Line 673 sub help_open_menu {
|
foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) { |
foreach (\$color,\$function,\$topic,\$component_help,\$faq,\$bug,\$origurl) { |
$$_ = &Apache::lonnet::escape($$_); |
$$_ = &Apache::lonnet::escape($$_); |
} |
} |
|
|
if (!$stayOnPage) { |
if (!$stayOnPage) { |
$link = "javascript:helpMenu('open')"; |
$link = "javascript:helpMenu('open')"; |
} else { |
} else { |
Line 684 sub help_open_menu {
|
Line 683 sub help_open_menu {
|
my $template; |
my $template; |
if ($text ne "") { |
if ($text ne "") { |
$template .= |
$template .= |
"<table bgcolor='#773311' cellspacing='1' cellpadding='1' border='0'><tr>". |
"<table bgcolor='#CC3300' cellspacing='1' cellpadding='1' border='0'><tr>". |
"<td bgcolor='#886622'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>"; |
"<td bgcolor='#CC6600'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>"; |
} |
} |
my $nothing=&Apache::lonhtmlcommon::javascript_nothing(); |
my $nothing=&Apache::lonhtmlcommon::javascript_nothing(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
Line 713 function helpMenu(target) {
|
Line 712 function helpMenu(target) {
|
return; |
return; |
} |
} |
function writeHelp(caller) { |
function writeHelp(caller) { |
caller.document.write('$html<head><title>LON-CAPA Help Menu</title><meta http-equiv="pragma" content="no-cache"></head>') |
caller.document.writeln('$html<head><title>LON-CAPA Help Menu</title><meta http-equiv="pragma" content="no-cache"></head>') |
caller.document.write("<frameset rows='105,*' border='0'><frame name='bannerframe' src='$banner_link'><frame name='bodyframe' src='$details_link'></frameset>") |
caller.document.writeln("<frameset rows='105,*' border='0'><frame name='bannerframe' src='$banner_link'><frame name='bodyframe' src='$details_link'></frameset>") |
caller.document.write("</html>") |
caller.document.writeln("</html>") |
caller.document.close() |
caller.document.close() |
caller.focus() |
caller.focus() |
} |
} |
Line 3264 Separate a record into fields $record sh
|
Line 3263 Separate a record into fields $record sh
|
|
|
=cut |
=cut |
|
|
|
sub takeleft { |
|
my $index=shift; |
|
return substr('0000'.$index,-4,4); |
|
} |
|
|
sub record_sep { |
sub record_sep { |
my $record=shift; |
my $record=shift; |
my %components=(); |
my %components=(); |
Line 3274 sub record_sep {
|
Line 3278 sub record_sep {
|
my $field=$_; |
my $field=$_; |
$field=~s/^(\"|\')//; |
$field=~s/^(\"|\')//; |
$field=~s/(\"|\')$//; |
$field=~s/(\"|\')$//; |
$components{$i}=$field; |
$components{&takeleft($i)}=$field; |
$i++; |
$i++; |
} |
} |
} elsif ($env{'form.upfiletype'} eq 'tab') { |
} elsif ($env{'form.upfiletype'} eq 'tab') { |
Line 3283 sub record_sep {
|
Line 3287 sub record_sep {
|
my $field=$_; |
my $field=$_; |
$field=~s/^(\"|\')//; |
$field=~s/^(\"|\')//; |
$field=~s/(\"|\')$//; |
$field=~s/(\"|\')$//; |
$components{$i}=$field; |
$components{&takeleft($i)}=$field; |
$i++; |
$i++; |
} |
} |
} else { |
} else { |
Line 3301 sub record_sep {
|
Line 3305 sub record_sep {
|
$field=~s/^\s*$delimiter//; |
$field=~s/^\s*$delimiter//; |
$field=~s/$delimiter\s*$//; |
$field=~s/$delimiter\s*$//; |
} |
} |
$components{$i}=$field; |
$components{&takeleft($i)}=$field; |
$i++; |
$i++; |
} |
} |
} |
} |
Line 3458 sub csv_samples_select_table {
|
Line 3462 sub csv_samples_select_table {
|
$display.'</option>'); |
$display.'</option>'); |
} |
} |
$r->print('</select></td><td>'); |
$r->print('</select></td><td>'); |
if (defined($sone{$_})) { $r->print($sone{$_}."</br>\n"); } |
if (defined($sone{$_})) { $r->print($sone{$_}."<br />\n"); } |
if (defined($stwo{$_})) { $r->print($stwo{$_}."</br>\n"); } |
if (defined($stwo{$_})) { $r->print($stwo{$_}."<br />\n"); } |
if (defined($sthree{$_})) { $r->print($sthree{$_}."</br>\n"); } |
if (defined($sthree{$_})) { $r->print($sthree{$_}."<br />\n"); } |
$r->print('</td></tr>'); |
$r->print('</td></tr>'); |
$i++; |
$i++; |
} |
} |