version 1.232, 2003/09/09 13:31:08
|
version 1.235, 2003/09/16 20:03:12
|
Line 531 sub details_for_menu {
|
Line 531 sub details_for_menu {
|
|
|
my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}}; |
my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}}; |
my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'}); |
my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'}); |
my ($map,$id,$resource)=split(/___/,$symbolic); |
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic); |
$map=&Apache::lonnet::clutter($map); |
$map=&Apache::lonnet::clutter($map); |
my $name_of_sequence; |
my $name_of_sequence; |
$name_of_sequence = $hash{'title_'.$hash{'ids_'.$map}}; |
$name_of_sequence = $hash{'title_'.$hash{'ids_'.$map}}; |
Line 846 ENDPART
|
Line 846 ENDPART
|
&Apache::lonxml::init_counter(); |
&Apache::lonxml::init_counter(); |
foreach my $curresline (@master_seq) { |
foreach my $curresline (@master_seq) { |
if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
my ($map,$id,$res_url) = split(/___/,$curresline); |
my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline); |
if (&Apache::lonnet::allowed('bre',$res_url)) { |
if (&Apache::lonnet::allowed('bre',$res_url)) { |
my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain, |
my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain, |
$ENV{'request.course.id'},'tex'); |
$ENV{'request.course.id'},'tex'); |
Line 1080 sub printHelper {
|
Line 1080 sub printHelper {
|
# very first screen. |
# very first screen. |
# Detect whether we're coming from construction space |
# Detect whether we're coming from construction space |
if ($ENV{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) { |
if ($ENV{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) { |
$helper->{VARS}->{'filename'} = "/home/$1/public_html/$2"; |
$helper->{VARS}->{'filename'} = "~$1/$2"; |
$helper->{VARS}->{'construction'} = 1; |
$helper->{VARS}->{'construction'} = 1; |
} else { |
} else { |
if ($ENV{'form.postdata'}) { |
if ($ENV{'form.postdata'}) { |
Line 1118 sub printHelper {
|
Line 1118 sub printHelper {
|
$subdir = substr($helper->{VARS}->{'filename'}, |
$subdir = substr($helper->{VARS}->{'filename'}, |
0, rindex($helper->{VARS}->{'filename'}, '/') + 1); |
0, rindex($helper->{VARS}->{'filename'}, '/') + 1); |
} else { |
} else { |
($map, $id, $url) = split(/___/, $symb); |
($map, $id, $url) = &Apache::lonnet::decode_symb($symb); |
$helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url); |
$helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url); |
|
|
if (!$resourceTitle) { # if the resource doesn't have a title, use the filename |
if (!$resourceTitle) { # if the resource doesn't have a title, use the filename |
Line 1132 sub printHelper {
|
Line 1132 sub printHelper {
|
} |
} |
|
|
my $userCanSeeHidden = Apache::lonnavmaps::advancedUser(); |
my $userCanSeeHidden = Apache::lonnavmaps::advancedUser(); |
|
my $userPriviledged = ($ENV{'request.role'}=~m/^cc\./ or |
|
$ENV{'request.role'}=~m/^in\./ or |
|
$ENV{'request.role'}=~m/^ta\./); |
|
|
Apache::lonhelper::registerHelperTags(); |
Apache::lonhelper::registerHelperTags(); |
|
|
Line 1157 sub printHelper {
|
Line 1160 sub printHelper {
|
my $printChoices = []; |
my $printChoices = []; |
my $paramHash; |
my $paramHash; |
|
|
if ($resourceTitle) { |
if ($resourceTitle && $helper->{VARS}->{'postdata'}) { |
push @{$printChoices}, ["<b>$resourceTitle</b> (prints what you just saw on the screen)", 'current_document', 'PAGESIZE']; |
push @{$printChoices}, ["<b>$resourceTitle</b> (what you just saw on the screen)", 'current_document', 'PAGESIZE']; |
} |
} |
|
|
# $r->print($helper->{VARS}->{'postdata'}); |
# $r->print($helper->{VARS}->{'postdata'}); |
|
|
# If we're in a sequence... |
# If we're in a sequence... |
if ($helper->{'VARS'}->{'construction'} ne '1') { |
if (($helper->{'VARS'}->{'construction'} ne '1') && |
|
$helper->{VARS}->{'postdata'}) { |
# Allow problems from sequence |
# Allow problems from sequence |
push @{$printChoices}, ["Problem(s) from <b>$sequenceTitle</b>", 'map_problems', 'CHOOSE_PROBLEMS']; |
push @{$printChoices}, ["<b>Selected problems</b> in $sequenceTitle", 'map_problems', 'CHOOSE_PROBLEMS']; |
# Allow all resources from sequence |
# Allow all resources from sequence |
push @{$printChoices}, ["Everything (problem(s), page(s), html/xml file(s)) from <b>$sequenceTitle</b>", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML']; |
push @{$printChoices}, ["<b>Selected resources</b> in $sequenceTitle", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML']; |
|
|
my $isProblem = '$res->is_problem()'; |
my $isProblem = '$res->is_problem()'; |
$isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden; |
$isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden; |
Line 1179 sub printHelper {
|
Line 1183 sub printHelper {
|
my $helperFragment = <<HELPERFRAGMENT; |
my $helperFragment = <<HELPERFRAGMENT; |
<state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print"> |
<state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print"> |
<message>(mark them then click "next" button) <br /></message> |
<message>(mark them then click "next" button) <br /></message> |
<resource variable="RESOURCES" multichoice="1" toponly='1'> |
<resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"> |
<nextstate>PAGESIZE</nextstate> |
<nextstate>PAGESIZE</nextstate> |
<filterfunc>return $isProblem;</filterfunc> |
<filterfunc>return $isProblem;</filterfunc> |
<mapurl>$map</mapurl> |
<mapurl>$map</mapurl> |
Line 1189 sub printHelper {
|
Line 1193 sub printHelper {
|
|
|
<state name="CHOOSE_PROBLEMS_HTML" title="Select Resource(s) to print"> |
<state name="CHOOSE_PROBLEMS_HTML" title="Select Resource(s) to print"> |
<message>(mark them then click "next" button) <br /></message> |
<message>(mark them then click "next" button) <br /></message> |
<resource variable="RESOURCES" multichoice="1" toponly='1'> |
<resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"> |
<nextstate>PAGESIZE</nextstate> |
<nextstate>PAGESIZE</nextstate> |
<filterfunc>return $isNotMap;</filterfunc> |
<filterfunc>return $isNotMap;</filterfunc> |
<mapurl>$map</mapurl> |
<mapurl>$map</mapurl> |
Line 1203 HELPERFRAGMENT
|
Line 1207 HELPERFRAGMENT
|
|
|
# If the user is priviledged, allow them to print all |
# If the user is priviledged, allow them to print all |
# problems in the course, optionally for selected students |
# problems in the course, optionally for selected students |
if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($helper->{VARS}->{'postdata'}=~/\/res\//)) { |
if ($userPriviledged && ($helper->{VARS}->{'postdata'}=~/\/res\//)) { |
push @{$printChoices}, ['<b>Problems</b> in this course', 'all_problems', 'ALL_PROBLEMS']; |
push @{$printChoices}, ['Selected problems from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS']; |
push @{$printChoices}, ["Problems from <b>$sequenceTitle</b> for selected students", 'problems_for_students', 'CHOOSE_STUDENTS']; |
push @{$printChoices}, ["Selected problems from $sequenceTitle for <b>selected students</b>", 'problems_for_students', 'CHOOSE_STUDENTS']; |
|
|
my $isProblem = '$res->is_problem()'; |
my $isProblem = '$res->is_problem()'; |
$isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden; |
$isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden; |
Line 1215 HELPERFRAGMENT
|
Line 1219 HELPERFRAGMENT
|
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS); |
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS); |
<state name="ALL_PROBLEMS" title="Select Problem(s) to print"> |
<state name="ALL_PROBLEMS" title="Select Problem(s) to print"> |
<message>(mark them then click "next" button) <br /></message> |
<message>(mark them then click "next" button) <br /></message> |
<resource variable="RESOURCES" multichoice="1" suppressEmptySequences='1'> |
<resource variable="RESOURCES" multichoice="1" |
|
suppressEmptySequences='1' addstatus="1"> |
<nextstate>PAGESIZE</nextstate> |
<nextstate>PAGESIZE</nextstate> |
<filterfunc>return $isProblemOrMap;</filterfunc> |
<filterfunc>return $isProblemOrMap;</filterfunc> |
<choicefunc>return $isProblem;</choicefunc> |
<choicefunc>return $isProblem;</choicefunc> |
Line 1226 HELPERFRAGMENT
|
Line 1231 HELPERFRAGMENT
|
<state name="CHOOSE_STUDENTS" title="Select Students and Resources"> |
<state name="CHOOSE_STUDENTS" title="Select Students and Resources"> |
<student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" /> |
<student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" /> |
<message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message> |
<message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message> |
<resource variable="RESOURCES" multichoice="1"> |
<resource variable="RESOURCES" multichoice="1" addstatus="1"> |
<filterfunc>return $isProblem</filterfunc> |
<filterfunc>return $isProblem</filterfunc> |
<mapurl>$map</mapurl> |
<mapurl>$map</mapurl> |
<valuefunc>return $symb</valuefunc> |
<valuefunc>return $symb</valuefunc> |