version 1.688, 2023/04/15 17:53:07
|
version 1.689, 2023/04/15 19:33:17
|
Line 755 sub get_print_dates {
|
Line 755 sub get_print_dates {
|
# get_print_dates but namvaps::course_print_dates are gotten...and not converted |
# get_print_dates but namvaps::course_print_dates are gotten...and not converted |
# to times either. |
# to times either. |
# |
# |
# @param $res - Reference to a resource has from lonnvampas::resource. |
# @param $res - Reference to a resource hash from lonnavmaps::resource. |
# |
# |
# @return (opendate, closedate) |
# @return (opendate, closedate) |
# |
# |
Line 897 sub master_seq_to_person_seq {
|
Line 897 sub master_seq_to_person_seq {
|
|
|
# Iterate on the resource..select the items that are randomly selected |
# Iterate on the resource..select the items that are randomly selected |
# and that are in the seq_hash. Presumably the iterator will take care |
# and that are in the seq_hash. Presumably the iterator will take care |
# of the random ordering part of the deal. |
# of the random ordering part of the deal. |
# |
# |
my $curres; |
my $curres; |
while ($curres = $iterator->next()) { |
while ($curres = $iterator->next()) { |
Line 1155 sub printf_style_subst {
|
Line 1155 sub printf_style_subst {
|
if ($size ne "") { |
if ($size ne "") { |
$subst = substr($subst, 0, $size); |
$subst = substr($subst, 0, $size); |
|
|
# Here's a nice edge case.. suppose the end of the |
# Here's a nice edge case ... suppose the end of the |
# substring is a \. In that case may have just |
# substring is a \. In that case may have just |
# chopped off a TeX escape... in that case, we append |
# chopped off a TeX escape... in that case, we append |
# " " for the trailing character, and let the field |
# " " for the trailing character, and let the field |
Line 2532 sub load_skips {
|
Line 2532 sub load_skips {
|
|
|
my ($helper) = @_; |
my ($helper) = @_; |
|
|
# If this is the first time, unwrap the resources and extra spaces: |
# If this is the first time, unwrap the resources and extra spaces: |
|
|
if (!$skips_loaded) { |
if (!$skips_loaded) { |
@extraspace = (split(/\|\|\|/, $helper->{'VARS'}->{'EXTRASPACE'})); |
@extraspace = (split(/\|\|\|/, $helper->{'VARS'}->{'EXTRASPACE'})); |
Line 3797 sub print_resources {
|
Line 3797 sub print_resources {
|
# nice to put the special in as a postscript comment |
# nice to put the special in as a postscript comment |
# e.g. \special{ps:\ENDOFSTUDENTSTAMP} unfortunately, |
# e.g. \special{ps:\ENDOFSTUDENTSTAMP} unfortunately, |
# The special gets passed the \ and dvips puts it in the output file |
# The special gets passed the \ and dvips puts it in the output file |
# so we will just rely on printout.pl to strip ENDOFSTUDENTSTAMP from the |
# so we will just rely on printout.pl to strip ENDOFSTUDENTSTAMP from the |
# postscript. Each ENDOFSTUDENTSTAMP will go on a line by itself. |
# postscript. Each ENDOFSTUDENTSTAMP will go on a line by itself. |
# |
# |
|
|