--- loncom/interface/printout.pl 2009/11/17 01:13:51 1.142.6.2 +++ loncom/interface/printout.pl 2010/04/29 10:51:37 1.146 @@ -1,7 +1,7 @@ #!/usr/bin/perl # CGI-script to run LaTeX, dvips, ps2ps, ps2pdf etc. # -# $Id: printout.pl,v 1.142.6.2 2009/11/17 01:13:51 raeburn Exp $ +# $Id: printout.pl,v 1.146 2010/04/29 10:51:37 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -178,7 +178,17 @@ my %perlvar=%{&LONCAPA::Configuration::r &Apache::lonlocal::get_language_handle(); &Apache::loncommon::content_type(undef,'text/html'); $env{'request.noversionuri'} = '/cgi-bin/printout.pl'; -print(&Apache::loncommon::start_page('Creating PDF')); +# Breadcrumbs +#FIXME: Choose better/different breadcrumbs?!? Links? +my $brcrum = [{'href' => '', + 'text' => 'Helper'}, #FIXME: Different origin possible than print out helper? + {'href' => '', + 'text' => 'Preparing Printout'}, + {'href' => '', + 'text' => 'Creating PDF'}]; +print(&Apache::loncommon::start_page('Creating PDF', + undef, + {'bread_crumbs' => $brcrum,})); my $identifier = $ENV{'QUERY_STRING'}; my $texfile = $env{'cgi.'.$identifier.'.file'}; @@ -469,9 +479,11 @@ foreach $texfile (@texfile) { $papera=~s/t/p/; $comma = "fixps --force $new_name_file"; &debug("FIXPS command: $comma"); - &busy_wait_command("$comma 1>/dev/null 2>/dev/null", + &busy_wait_command("$comma 1>$tempo_file 2>/dev/null", "for $status_statement now validating PS", \%prog_state,$tempo_file); + &busy_wait_command("mv $tempo_file $new_name_file", + 'File move', \%prog_state, $new_name_file); if ($laystyle eq 'album' and $numberofcolumns eq '2') { $comma = "psnup $papera -2 -s1.0 $new_name_file"; &debug("PSNUP command: $comma");