version 1.260, 2005/04/22 20:50:07
|
version 1.263, 2005/05/30 19:50:43
|
Line 687 sub help_open_menu {
|
Line 687 sub help_open_menu {
|
"<table bgcolor='#773311' cellspacing='1' cellpadding='1' border='0'><tr>". |
"<table bgcolor='#773311' cellspacing='1' cellpadding='1' border='0'><tr>". |
"<td bgcolor='#886622'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>"; |
"<td bgcolor='#886622'><a href=\"$link\"><font color='#FFFFFF' size='2'>$text</font></a>"; |
} |
} |
|
my $nothing=&Apache::lonhtmlcommon::javascript_nothing(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $helpicon=&lonhttpdurl("/adm/lonIcons/helpgateway.gif"); |
my $helpicon=&lonhttpdurl("/adm/lonIcons/helpgateway.gif"); |
$template .= <<"ENDTEMPLATE"; |
$template .= <<"ENDTEMPLATE"; |
Line 698 function helpMenu(target) {
|
Line 699 function helpMenu(target) {
|
if (target == 'open') { |
if (target == 'open') { |
var newWindow = null; |
var newWindow = null; |
try { |
try { |
newWindow = window.open("/adm/rat/empty.html","helpmenu","HEIGHT=$height,WIDTH=$width,resizable=yes,scrollbars=yes" ) |
newWindow = window.open($nothing,"helpmenu","HEIGHT=$height,WIDTH=$width,resizable=yes,scrollbars=yes" ) |
} |
} |
catch(error) { |
catch(error) { |
writeHelp(caller); |
writeHelp(caller); |
Line 3263 Separate a record into fields $record sh
|
Line 3264 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 3273 sub record_sep {
|
Line 3279 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 3282 sub record_sep {
|
Line 3288 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 3300 sub record_sep {
|
Line 3306 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 3457 sub csv_samples_select_table {
|
Line 3463 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++; |
} |
} |