version 1.130, 2003/10/16 19:59:00
|
version 1.135, 2003/10/24 21:09:24
|
Line 274 of the element the selection from the se
|
Line 274 of the element the selection from the se
|
sub browser_and_searcher_javascript { |
sub browser_and_searcher_javascript { |
return <<END; |
return <<END; |
var editbrowser = null; |
var editbrowser = null; |
function openbrowser(formname,elementname,only,omit) { |
function openbrowser(formname,elementname,only,omit,titleelement) { |
var url = '/res/?'; |
var url = '/res/?'; |
if (editbrowser == null) { |
if (editbrowser == null) { |
url += 'launch=1&'; |
url += 'launch=1&'; |
Line 288 sub browser_and_searcher_javascript {
|
Line 288 sub browser_and_searcher_javascript {
|
if (omit != null) { |
if (omit != null) { |
url += 'omit=' + omit + '&'; |
url += 'omit=' + omit + '&'; |
} |
} |
|
if (titleelement != null) { |
|
url += 'titleelement=' + titleelement + '&'; |
|
} |
url += 'element=' + elementname + ''; |
url += 'element=' + elementname + ''; |
var title = 'Browser'; |
var title = 'Browser'; |
var options = 'scrollbars=1,resizable=1,menubar=0'; |
var options = 'scrollbars=1,resizable=1,menubar=0'; |
Line 296 sub browser_and_searcher_javascript {
|
Line 299 sub browser_and_searcher_javascript {
|
editbrowser.focus(); |
editbrowser.focus(); |
} |
} |
var editsearcher; |
var editsearcher; |
function opensearcher(formname,elementname) { |
function opensearcher(formname,elementname,titleelement) { |
var url = '/adm/searchcat?'; |
var url = '/adm/searchcat?'; |
if (editsearcher == null) { |
if (editsearcher == null) { |
url += 'launch=1&'; |
url += 'launch=1&'; |
Line 304 sub browser_and_searcher_javascript {
|
Line 307 sub browser_and_searcher_javascript {
|
url += 'catalogmode=interactive&'; |
url += 'catalogmode=interactive&'; |
url += 'mode=edit&'; |
url += 'mode=edit&'; |
url += 'form=' + formname + '&'; |
url += 'form=' + formname + '&'; |
|
if (titleelement != null) { |
|
url += 'titleelement=' + titleelement + '&'; |
|
} |
url += 'element=' + elementname + ''; |
url += 'element=' + elementname + ''; |
var title = 'Search'; |
var title = 'Search'; |
var options = 'scrollbars=1,resizable=1,menubar=0'; |
var options = 'scrollbars=1,resizable=1,menubar=0'; |
Line 2663 $uname, optional the username of the use
|
Line 2669 $uname, optional the username of the use
|
|
|
sub check_if_partid_hidden { |
sub check_if_partid_hidden { |
my ($id,$symb,$udom,$uname) = @_; |
my ($id,$symb,$udom,$uname) = @_; |
my $hiddenparts=&Apache::lonnet::EXT('resource.0.parameter_hiddenparts', |
my $hiddenparts=&Apache::lonnet::EXT('resource.0.hiddenparts', |
$symb,$udom,$uname); |
$symb,$udom,$uname); |
my @hiddenlist=split(/,/,$hiddenparts); |
my @hiddenlist=split(/,/,$hiddenparts); |
foreach my $checkid (@hiddenlist) { |
foreach my $checkid (@hiddenlist) { |
Line 2677 sub check_if_partid_hidden {
|
Line 2683 sub check_if_partid_hidden {
|
|
|
=pod |
=pod |
|
|
=item DrawGraph |
=item DrawBarGraph |
|
|
Returns a link to cgi-bin/graph |
|
|
|
=cut |
=cut |
|
|
############################################################ |
############################################################ |
############################################################ |
############################################################ |
sub DrawGraph { |
sub DrawBarGraph { |
my ($Title,$xlabel,$ylabel,$Max,$colors,@Values)=@_; |
my ($Title,$xlabel,$ylabel,$Max,$colors,@Values)=@_; |
# |
# |
|
if (! defined($colors)) { |
|
$colors = ['#33ff00', |
|
'#0033cc', '#990000', '#aaaa66', '#663399', '#ff9933', |
|
'#66ccff', '#ff9999', '#cccc33', '#660000', '#33cc66', |
|
]; |
|
} |
|
# |
my $identifier = time.'_'.int(rand(1000)); |
my $identifier = time.'_'.int(rand(1000)); |
if (! @Values || ref($Values[0]) ne 'ARRAY') { |
if (! @Values || ref($Values[0]) ne 'ARRAY') { |
return ''; |
return ''; |
Line 2697 sub DrawGraph {
|
Line 2709 sub DrawGraph {
|
my $NumSets=1; |
my $NumSets=1; |
foreach my $array (@Values) { |
foreach my $array (@Values) { |
next if (! ref($array)); |
next if (! ref($array)); |
$ValuesHash{$identifier.'.data.'.$NumSets++} = join(',',@$array); |
$ValuesHash{'cgi.'.$identifier.'.data.'.$NumSets++} = |
|
join(',',@$array); |
} |
} |
# |
# |
$Title = '' if (! defined($Title)); |
$Title = '' if (! defined($Title)); |
Line 2713 sub DrawGraph {
|
Line 2726 sub DrawGraph {
|
$Max = int($Max); |
$Max = int($Max); |
} |
} |
# |
# |
&Apache::lonnet::appenv($identifier.'.title' => $Title, |
&Apache::lonnet::appenv('cgi.'.$identifier.'.title' => $Title, |
$identifier.'.xlabel' => $xlabel, |
'cgi.'.$identifier.'.xlabel' => $xlabel, |
$identifier.'.ylabel' => $ylabel, |
'cgi.'.$identifier.'.ylabel' => $ylabel, |
$identifier.'.Max' => $Max, |
'cgi.'.$identifier.'.Max' => $Max, |
$identifier.'.NumBars' => $NumBars, |
'cgi.'.$identifier.'.NumBars' => $NumBars, |
$identifier.'.NumSets' => $NumSets, |
'cgi.'.$identifier.'.NumSets' => $NumSets, |
$identifier.'.Colors' => join(',',@{$colors}), |
'cgi.'.$identifier.'.Colors' => join(',',@{$colors}), |
%ValuesHash); |
%ValuesHash); |
return '<img src="/cgi-bin/graph.png?'.$identifier.'" border="1" />'; |
return '<img src="/cgi-bin/graph.png?'.$identifier.'" border="1" />'; |
} |
} |