|
version 1.19, 2002/03/08 20:43:06
|
version 1.22, 2002/03/22 22:06:06
|
|
Line 69 sub start_randomlabel {
|
Line 69 sub start_randomlabel {
|
| my $result=''; |
my $result=''; |
| $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
| '/res/adm/includes/GLabel.class'; |
'/res/adm/includes/GLabel.class'; |
| |
push (@Apache::lonxml::namespace,'randomlabel'); |
| my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
my $bgimg= &Apache::lonxml::get_param('bgimg',$parstack,$safeeval); |
| |
|
| if ( $bgimg !~ /^http:/ ) { |
if ( $bgimg !~ /^http:/ ) { |
|
Line 124 sub end_randomlabel {
|
Line 124 sub end_randomlabel {
|
| my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
| my $result=''; |
my $result=''; |
| my $count; |
my $count; |
| |
pop @Apache::lonxml::namespace; |
| |
|
| if ($target eq 'web') { |
if ($target eq 'web') { |
| $count = $Apache::randomlabel::tlabel_cnt; |
$count = $Apache::randomlabel::tlabel_cnt; |
| if( $count != 0) { $result.= "<param name=\"count\" value=\"$count\">"; } |
if( $count != 0) { $result.= "<param name=\"count\" value=\"$count\">"; } |
|
Line 318 sub start_label {
|
Line 317 sub start_label {
|
| $result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::tag_start($target,$token); |
| my $text=&Apache::lonxml::get_all_text("/label",$$parser[-1]); |
my $text=&Apache::lonxml::get_all_text("/label",$$parser[-1]); |
| $result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(). |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(). |
| &Apache::edit::editfield('',$text,'',20,1). |
&Apache::edit::editline('',$text,'',20). |
| &Apache::edit::end_table(); |
&Apache::edit::end_table(); |
| } elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
| my $text=$$parser[-1]->get_text("/label"); |
my $text=$$parser[-1]->get_text("/label"); |
![[BACK]](/icons/back.gif){kind=icon}
Return to randomlabel.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework