View | Details | Raw Unified | Return to bug 10605
Collapse All | Expand All

(-)a/opac/opac-sendbasket.pl (-17 / +6 lines)
Lines 124-150 if ( $email_add ) { Link Here
124
124
125
    # Getting template result
125
    # Getting template result
126
    my $template_res = $template2->output();
126
    my $template_res = $template2->output();
127
    my $body;
128
127
129
    # Analysing information and getting mail properties
128
    # Analysing information and getting mail properties
130
    if ( $template_res =~ /<SUBJECT>\n(.*)\n?<END_SUBJECT>/s ) {
129
    $mail{subject} = $template_res =~ /<SUBJECT>\n(.*)\n?<END_SUBJECT>/s
131
        $mail{'subject'} = $1;
130
        ? $1 : "no subject";
132
    }
133
    else { $mail{'subject'} = "no subject"; }
134
131
135
    my $email_header = "";
132
    my ($email_header) = $template_res =~ /<HEADER>\n(.*)\n?<END_HEADER>/s;
136
    if ( $template_res =~ /<HEADER>\n(.*)\n?<END_HEADER>/s ) {
137
        $email_header = encode_qp($1);
138
    }
139
133
140
    my $email_file = "basket.txt";
134
    my $email_file = $template_res =~ /<FILENAME>\n(.*)\n?<END_FILENAME>/s
141
    if ( $template_res =~ /<FILENAME>\n(.*)\n?<END_FILENAME>/s ) {
135
        ? $1 : "basket.txt";
142
        $email_file = $1;
143
    }
144
136
145
    if ( $template_res =~ /<MESSAGE>\n(.*)\n?<END_MESSAGE>/s ) {
137
    my ($body) = $template_res =~ /<MESSAGE>\n(.*)\n?<END_MESSAGE>/s;
146
        $body = encode_qp($1);
147
    }
148
138
149
    my $boundary = "====" . time() . "====";
139
    my $boundary = "====" . time() . "====";
150
140
151
- 

Return to bug 10605