SF.net SVN: ledger-smb: [1948] trunk/bin/io.pl

[..hidden..]

Revision: 1948
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1948&view=rev
Author:   tetragon
Date:     2007-12-05 11:54:26 -0800 (Wed, 05 Dec 2007)

Log Message:
-----------
Fixing some errors from the copying of the email form templating

Modified Paths:
--------------
    trunk/bin/io.pl

Modified: trunk/bin/io.pl
===================================================================
--- trunk/bin/io.pl	2007-12-05 19:44:52 UTC (rev 1947)
+++ trunk/bin/io.pl	2007-12-05 19:54:26 UTC (rev 1948)
@@ -1334,11 +1334,11 @@
         options => [{text => 'HTML', value => 'html'}],
         }
     if ( ${LedgerSMB::Sysconfig::latex} ) {
-        push @{$options{media}{options}}, {
+        push @{$options{format}{options}}, {
             text => $locale->text('Postscript'),
             value => 'postscript',
             };
-        push @{$options{media}{options}}, {
+        push @{$options{format}{options}}, {
             text => $locale->text('PDF'),
             value => 'pdf',
             };
@@ -1356,83 +1356,6 @@
     # $locale->text('Queued')
     # $locale->text('Scheduled')
 
-    $options{status} = (
-        printed => 'Printed',
-        emailed => 'E-mailed',
-        queued => 'Queued',
-        recurring => 'Scheduled',
-    );
-    if ( $form->{media} eq 'email' ) {
-        $media = qq|<select name=sendmode>
-	    <option value=attachment $form->{SM}{attachment}>|
-          . $locale->text('Attachment') . qq|
-	    <option value=inline $form->{SM}{inline}>|
-          . $locale->text('In-line')
-          . qq|</select>|;
-    }
-    else {
-        $media = qq|<select name=media>
-	    <option value="screen">| . $locale->text('Screen');
-
-        if (   %{LedgerSMB::Sysconfig::printer}
-            && ${LedgerSMB::Sysconfig::latex} )
-        {
-            for ( sort keys %{LedgerSMB::Sysconfig::printer} ) {
-                $media .= qq|
-            <option value="$_">$_|;
-            }
-        }
-        if ( ${LedgerSMB::Sysconfig::latex} ) {
-            $media .= qq|
-            <option value="queue">| . $locale->text('Queue');
-        }
-        $media .= qq|</select>|;
-
-        # set option selected
-        $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/;
-
-    }
-
-    $form->{selectformat} = qq|<option value="html">html\n|;
-
-    #	    <option value="txt">|.$locale->text('Text');
-
-    if ( ${LedgerSMB::Sysconfig::latex} ) {
-        $form->{selectformat} .= qq|
-            <option value="postscript">| . $locale->text('Postscript') . qq|
-	    <option value="pdf">| . $locale->text('PDF');
-    }
-
-    $format = qq|<select name=format>$form->{selectformat}</select>|;
-    $format =~ s/(<option value="\Q$form->{format}\E")/$1 selected/;
-    $format .= qq|
-  <input type=hidden name=selectformat value="|
-      . $form->escape( $form->{selectformat}, 1 ) . qq|">|;
-
-    print qq|
-<table width=100%>
-  <tr>
-    <td>$type</td>
-    <td>$lang</td>
-    <td>$format</td>
-    <td>$media</td>
-|;
-
-    if (   %{LedgerSMB::Sysconfig::printer}
-        && ${LedgerSMB::Sysconfig::latex}
-        && $form->{media} ne 'email' )
-    {
-        print qq|
-    <td nowrap>| . $locale->text('Copies') . qq|
-    <input name=copies size=2 value=$form->{copies}></td>
-|;
-    }
-
-    # $locale->text('Printed')
-    # $locale->text('E-mailed')
-    # $locale->text('Queued')
-    # $locale->text('Scheduled')
-
     %status = (
         printed   => 'Printed',
         emailed   => 'E-mailed',


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.